Testing behavior of leaflets
insert_leaflet <- function(layout = "l-body") { knitr::knit_child(text = knitr::knit_expand("template.rmd", layout = layout)) }
library(leaflet) leaflet() %>% addTiles() %>% # Add default OpenStreetMap map tiles addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")
unlink("template.rmd")