annotate loop_col_scale.r @ 1:ffaa9a71b2d2 draft

planemo upload for repository https://github.com/Marie59/champ_blocs commit 0d86db7d42b608c386a54500064f5f9c9d7019a4

library("rmarkdown")

df <- indic
df_full <- indic_full
dir.create("results")
slices <- unique(df$Site)[!is.na(unique(df$Site))]

for (v in slices) {
    rmarkdown::render(report,
         output_file = paste0(v, ".docx"),
         output_dir = file.path("results"),
         params = list(Site = v)
    )
  }