add inputs to initial

ices-taf · Oct 16, 2024 · 15ad182 · 15ad182
1 parent 0a898e1
commit 15ad182
Show file tree

Hide file tree

Showing 8 changed files with 1,137 additions and 4 deletions.
diff --git a/README.md b/README.md
@@ -1 +1 @@
-# 2024_ETC_EIAs
+# 2024_ETC_EIAs
diff --git a/boot/DATA.bib b/boot/DATA.bib
@@ -4,5 +4,5 @@ @Misc{google_sheets
   title      = {},
   period     = {},
   access     = {Public},
-  source     = {script},
+  source     = {folder},
 }
diff --git a/boot/initial/data/google_sheets/Aquaculture-Med.csv b/boot/initial/data/google_sheets/Aquaculture-Med.csv
diff --git a/boot/initial/data/google_sheets/Aquaculture-NEA.csv b/boot/initial/data/google_sheets/Aquaculture-NEA.csv
diff --git a/boot/initial/data/google_sheets/Fisheries-Med.csv b/boot/initial/data/google_sheets/Fisheries-Med.csv
diff --git a/boot/initial/data/google_sheets/Fisheries-NEA.csv b/boot/initial/data/google_sheets/Fisheries-NEA.csv
diff --git a/report.R b/report.R
@@ -4,6 +4,7 @@
 ## After:
 
 library(icesTAF)
+library(glue)
 
 mkdir("report")
 
@@ -12,6 +13,7 @@ all_data <- readRDS("data/all_data.rds")
 
 sankeys <- list()
 
+# tab <- "Fisheries-NEA"
 for (tab in names(all_data)) {
   mkdir(glue("report/{tab}"))
   data <- all_data[[tab]]

diff --git a/boot/google_sheets.R → worksheet.R b/boot/google_sheets.R → worksheet.R
@@ -19,7 +19,9 @@ data <-
     ranges,
     function(range) {
       x <- read_sheet(glue(base), range = range)
-      write.taf(x, file = paste0(gsub(" ", "", range), ".csv"), quote = TRUE)
+      fname <- paste0(gsub(" ", "", range), ".csv")
+      write.taf(x, file = taf.boot.path("initial", "data", "google_sheets", fname), quote = TRUE)
       x
     },
-    simplify = FALSE)
+    simplify = FALSE
+  )