leaflet03.r

# creat map widget:
map <- leaflet() %>% addTiles() %>%
  addCircleMarkers(lng = file_sub$lon,
                   lat = file_sub$lat,
                   color = pal(file_sub$hours),
                   popup = paste0(file_sub$dateTime, "<br/>",
                                  round(file_sub$lon, 6), "<br/>",
                                  round(file_sub$lat, 6))) %>%
  addLegend(position = "topleft", pal = pal, values = file_sub$hours, title = "hours past<br/>midnight")
map