leaflet-marker-methods-example.R

library(devtools)
install_github('ReportMort/leaflet')
library(leaflet)

m <- leaflet()
m <- addTiles(m)
m <- addMarkers(m, lng=174.768, lat=-36.852, popup="The birthplace of R", layerId='layer1')
m <- addMarkers(m, lng=174.788, lat=-36.852, popup="East of the birthplace of R", layerId='layer2')
m
# test toggle open
m <- toggleMarkerPopup(m, 'layer1')
m
# test toggle close
m <- toggleMarkerPopup(m, 'layer1')
m
# test open
m <- openMarkerPopup(m, 'layer2')
m
m <- openMarkerPopup(m, 'layer1')
m
# test close
m <- closeMarkerPopup(m, 'layer1')
m
# test passing vector of content
m <- setMarkerPopupContent(m, c('layer1', 'layer2'), c('New Content 1', 'New Content 2'))
m
# test element recycling
m <- setMarkerPopupContent(m, c('layer1', 'layer2'), c('New Content 1'))
m
# test unbind
m <- unbindMarkerPopup(m, c('layer1', 'layer2'))
m
# test clear marker popups (clears bound popups, not ones added using addPopups)
m <- clearMarkerPopups(m)
m