Zip the resources forecast folder

weecology · Dec 24, 2023 · 61fec80 · 61fec80
1 parent b7e35bb
commit 61fec80
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/fill_dir.R b/R/fill_dir.R
@@ -322,4 +322,8 @@ fill_models <- function (main               = ".",
 post_process <- function(main= ".") {
   settings <- read_directory_settings(main = main)
   zip_unzip("zip", forecasts_path(main = main))
+  resource_forecasts = file.path(main, settings$subdirectories$resources, settings$repository, settings$subdirectories$forecasts)
+  resource_forecasts = normalizePath(resource_forecasts, mustWork = FALSE)
+  zip_unzip("zip", forecast_path = resource_forecasts)
+  paste0("Zipping ", forecasts_path(main = main), " ", resource_forecasts)
 }