Unzip forecasts files in resources.

setup_production() creates a resource dir with a forecast dir

R/fill_dir.R

@@ -203,6 +203,12 @@ fill_resources <- function (main = ".") {
 
  update_directory_configuration(main = main)
 
+ # unzip the resource forecast zipped files
+ resource_forecasts = file.path(main, settings$subdirectories$resources, settings$repository, settings$subdirectories$forecasts)
+ resource_forecasts = normalizePath(resource_forecasts, mustWork = FALSE)
+ if (file.exists(resource_forecasts)) {
+ zip_unzip("unzip", forecast_path = resource_forecasts)
+ }
  invisible( )
 
 }
@@ -237,14 +243,17 @@ fill_forecasts <- function (main = ".") {
  messageq(paste0(" Located ", length(files), " forecast file(s) in resources to be moved to directory ..."), quiet = settings$quiet)
  messageq(" ... moving ... ", quiet = settings$quiet)
 
+ # zip the forecast files before copying them back
+ zip_unzip("zip", forecast_path = forecasts_path(main = main))
+
  copied <- file.copy(from = files, 
  to = forecasts_path(main = main), 
  recursive = TRUE)
 
  messageq(paste0(" ... ", sum(copied), " files moved. "), quiet = settings$quiet)
 
- # unzip the forecast zipped files
- zip_unzip("unzip", forecast_path = forecasts_path(main = main))
+ # zip the forecast zipped files
+ zip_unzip("zip", forecast_path = forecasts_path(main = main))
  invisible( )
 
 }