In SGMAP-AGD/opensignauxfaibles: Open Signaux Faibles

library("opensignauxfaibles")
library("readr")
library("rmarkdown")
df_liste <- read_csv("data-raw/list_siret/list_2017_12.csv", col_types = list(siret = col_character()))

df_liste

for (k in df_liste$siret[5:9]) {

  cat(k, "\n")

  rmarkdown::render(

    input = "inst/fiche_visite.Rmd",
    output_format = "pdf_document",
    params = list(
      siret = k
    ),
    output_file = paste0("../output/fiches/fiche_", k, ".pdf")
  )

}