rmd <- sapply(unique(fd::norway_locations()$county_code), function(x) { knitr::knit_expand(glue::glue("{x}_child_{params$tag}.Rmd"), location_code = x, x_tag = params$tag) } ) rmd <- paste(rmd, collapse = "\\newpage\n") rendered <- knitr::knit(text = rmd, quiet = TRUE) cat(rendered, sep = "\n")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.