if (FALSE) {
library(leaflet)
library(htmltools)
library(htmlwidgets)
page <- tagList(
leaflet() %>% addTiles(),
onStaticRenderComplete(
"HTMLWidgets.find('.leaflet').setZoom(4);"
)
)
print(page, browse = TRUE)
}
Run the code above in your browser using DataLab