My Favorite Flyfishing Spots

library(tidyverse)
library(leaflet)

flyFishingSites <- read.csv("data/FishingCoordinates.csv")
flyFishingSites

##         lat       lng
## 1 -54.02134 -68.47273
## 2 -53.85072 -68.15381
## 3 -39.94733 -71.07094
## 4 -47.04227 -72.81863
## 5 -41.32218 -72.98042
## 6 -41.61040 -72.23528

fishingLodges <- c(
"<a href='http://aurelialodge.com/2017/'>Aurelia Lodge</a>",
"<a href='https://www.fishingmariabehety.com/'>Maria Behety Lodge</a>",
"<a href='https://www.junindelosandesturismo.com/'>Junín de los Andes</a>",
"<a href='https://greenlodgebaker.com/'>Green Baker Lodge</a>",
"<a href='https://turismo.ptovaras.cl/'>Puerto Varas</a>",
"<a href='https://puertopuelo.cl'>Posada Puelo</a>"
)

flyFishingSites %>% leaflet() %>% addTiles() %>%
addMarkers(lat=flyFishingSites$lat, lng=flyFishingSites$lng, popup =fishingLodges)