---
title: "Location Based Services Assignment 01"
author: "Erik Neller"
date: "`r Sys.Date()`"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(ggplot2)
library(DataExplorer)
library(raster)
library(rworldmap)
library(sp)
library(sf) # https://aur.archlinux.org/packages/udunits
```

## Croatian Destinations
Write an R script that creates a map of Croatia. On
the map, mark 3 places you would like to visit.
Use the rworldmap library. Use Geonames to obtain
coordinates: https://www.geonames.org


```{r croatia}
library(rworldmap)
world <- getMap(resolution = "low")
plot(world, xlim = c(13, 20), ylim = c(42, 47)
     , asp = 1
     , col = "white"
     ,bg = "lightblue",        # background (sea) color
)
destinations <- data.frame(
  lat = c(45.82, 43.506, 45.07),
  lon = c(15.97, 16.40, 14.56),
  name = c("Zagreb", "Split", "Krk")
)
points(destinations$lon, destinations$lat, col = "red", cex = .6)
```