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")


folkehelseinstituttet/dashboards_ui documentation built on May 12, 2020, 10:10 p.m.