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