diff loop_col_scale.r @ 0:abc8da8c12ba draft

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

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/loop_col_scale.r	Wed Jan 04 13:21:41 2023 +0000
@@ -0,0 +1,14 @@
+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)
+    )
+  }