R-maps.R

library(leaflet)
new_icon <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = "red"
)
content <- paste(sep = "<br/>",
                 "<b>11 Davidson road</b>",
                 "Newstead 3286",
                 "Hamilton"
)
my_map <- leaflet() %>%
  addTiles() %>%
  addAwesomeMarkers(lat = 37.77781, lng = 175.34493,
                    icon = new_icon,
                    popup = "Newstead nice cafe") %>%
  addPopups(lat = 37.76921, lng = 175.33892, content,
            options = popupOptions(closeButton = TRUE)
  )
my_map