R_leaflet_maps_tooltips.R

library(tidyverse)
library(leaflet)
library(geojsonio)
library(htmlwidgets)
library(htmltools)

nycmarkers <- read.csv("nycmarkers.csv", stringsAsFactors=F)  # with "lat", "lon" and "string" columns

nycshapefile <- geojsonio::geojson_read("nycshapefile.geojson", what = "sp")

nycmap <- leaflet(nycmarkers) %>% 
  addProviderTiles("CartoDB.Positron") %>%
  setView(-73.978241, 40.698266, zoom = 12) %>% 
  addPolygons(data=nycshapefile,
              col = 'firebrick',
              stroke = FALSE, 
              fillOpacity = 0.5, 
              smoothFactor = 0.5) %>%
  addCircleMarkers(label=~string, 
                   #labelOptions = labelOptions(noHide = T),
                   popup = ~htmlEscape(string),
                   weight = 3, 
                   radius=8, 
                   color="#999999"
  )
  
nycmap

saveWidget(nycmap, file="nycmap.html", selfcontained = FALSE)