diff loop_col_scale.r @ 0:7e6cc3da1189 draft

planemo upload for repository https://github.com/Marie59/champ_blocs commit 8b6fcddd239979c11977472de6cbb349690758c8

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/loop_col_scale.r	Fri Dec 02 16:13:18 2022 +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)
+    )
+  }