Boulder, CO, US vs Madrid, ES

Leaflet Map

Boulder vs Madrid

paste("Date & Time : ",Sys.time())

## [1] "Date & Time :  2019-04-20 20:03:02"

df <- data.frame(lat = c(40.0149918, 40.4165000),
                 lng = c(-105.2705536, -3.7025600),
                 legend = c("Boulder, CO, US.", "Madrid, ES."),
                 popup = c("<a href='https://bouldercolorado.gov/'>Boulder, CO</a>", "<a href='http://www.comunidad.madrid/'>Madrid, ES</a>"),
                 color = c("black","green"))
icons <- awesomeIconList(blue = makeAwesomeIcon(icon= 'flag', markerColor = 'black', iconColor = 'white'), green = makeAwesomeIcon(icon= 'flag', markerColor = 'green', iconColor = 'white'))

  leaflet() %>%
  addTiles() %>%
  addPolylines(lat = df$lat, lng = df$lng) %>%
  addAwesomeMarkers(lat = df$lat, lng = df$lng, popup = df$popup, icon = icons) %>%
  addLegend(labels = df$legend, colors = df$color)