````{cat, engine.opts = list(file = "template.rmd")}
```r}" } library(leaflet) leaflet() %>% addTiles() %>% # Add default OpenStreetMap map tiles addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")
```` ```r insert_leaflet <- function(layout = "l-body") { knitr::knit_child(text = knitr::knit_expand("template.rmd", layout = layout)) }
r insert_leaflet('l-body')
r insert_leaflet('l-body-outset')
r insert_leaflet('l-page')
r insert_leaflet('l-screen')
r insert_leaflet('l-screen-inset')
r insert_leaflet('l-screen-inset shaded')
unlink("template.rmd")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.