August 12, 2017

library(leaflet)
## Warning: package 'leaflet' was built under R version 4.0.2
new_icon <- awesomeIcons(
  icon = 'ios-close',
  iconColor = 'black',
  library = 'ion',
  markerColor = "red"
)

content <- paste(sep = "<br/>",
  "<b>Alliance university</b>",
  "chandapura anekal road road",
  "bengaluru, 562106"
)

my_map <- leaflet() %>%
    addTiles() %>%
    addAwesomeMarkers(lat = 12.7293942, lng = 77.70711,
        icon = new_icon,
        popup = "Good Coffee at the local CCD") %>%
    addPopups(lat = 12.7293942, lng = 77.70711, content,
        options = popupOptions(closeButton = FALSE)
    )
my_map