knitr::opts_chunk$set(echo = TRUE)
library(leaflet)

Salamanca, New York, USA

Locations around my original hometown that I plan to visit with my family in the future, including the cemetery where my paternal family has been buried for over 200 years.

coords <- data.frame(lat = c(42.251505,42.15793, 42.038990326799997, 42.261648), lng = c(-78.804313, -78.73506, -78.843833113100004, -79.031360), popup = c("Little Valley Cemetary", "Tony's Tastee Freeze", "Cain Hollow Campground", "Valley View Cheese Co"))
coords %>% leaflet() %>%
        addTiles() %>%
         addMarkers(popup = coords$popup)