Fix chelsa and clc

Author: elgabbas

DESCRIPTION

@@ -3,7 +3,7 @@ Package: IASDT.R
 Title: Modelling the distribution of invasive alien plant species in
     Europe
 Version: 0.1.09
-Date: 2025-09-18
+Date: 2025-09-19
 Authors@R: 
     person("Ahmed", "El-Gabbas", , "ahmed.el-gabbas@ufz.de", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2225-088X"))

R/dwf_chelsa_prepare.R

@@ -33,7 +33,7 @@ chelsa_prepare <- function(
 
   # Avoid "no visible binding for global variable" message
   # https://www.r-bloggers.com/2019/08/no-visible-binding-for-global-variable/
-  variable <- path_down <- time_period <- extension <- climate_scenario <-
+  variable <- path_download <- time_period <- extension <- climate_scenario <-
     path_chelsa_in <- path_file <- path_out_tif <- path_out_netcdf <-
     path_chelsa_out <- path_dwnload_links <- url <- path_dir <- url_file <-
     climate_model <- exclude <- chelsa_base_url <- NULL
@@ -158,7 +158,7 @@ chelsa_prepare <- function(
     dplyr::filter(stringr::str_detect(variable, selected_vars)) %>%
     dplyr::mutate(
 
-      path_down = purrr::map_chr(
+      path_download = purrr::map_chr(
         .x = path_file, .f = ~ fs::path(path_chelsa_in, .x)),
 
       path_out_tif = purrr::map_chr(
@@ -172,7 +172,7 @@ chelsa_prepare <- function(
         .x = path_out_netcdf, .f = stringr::str_replace_all,
         pattern = ".tif$", replacement = ".nc"),
       down_command = purrr::map2_chr(
-        .x = url, .y = path_down,
+        .x = url, .y = path_download,
         .f = ~ stringr::str_glue(
           'curl -k -L --connect-timeout 240 --max-time 1200 --retry 5 \\
           "{.x}" -o "{.y}" --silent')),
@@ -219,7 +219,7 @@ chelsa_prepare <- function(
       data_to_down <- chelsa_metadata %>%
         dplyr::mutate(
           exclude = furrr::future_map_lgl(
-            .x = path_down,
+            .x = path_download,
             .f = ~ {
 
               if (file.exists(.x)) {
@@ -259,7 +259,7 @@ chelsa_prepare <- function(
         X = seq_len(nrow(data_to_down)),
         FUN = function(x) {
 
-          path_out <- data_to_down$path_down[x]
+          path_out <- data_to_down$path_download[x]
           try_n <- 0
 
           repeat {

R/dwf_chelsa_project.R

@@ -37,7 +37,7 @@ chelsa_project <- function(
   # Check metadata columns
   needed_columns <- c(
     "scale", "offset", "path_out_tif", "climate_model", "climate_scenario",
-    "variable", "url", "path_down", "long_name", "explanation",
+    "variable", "url", "path_download", "long_name", "explanation",
     "path_out_netcdf", "unit", "time_period")
   missing_columns <- setdiff(needed_columns, names(metadata))
   if (length(missing_columns) > 0) {
@@ -54,9 +54,9 @@ chelsa_project <- function(
 
   # # ..................................................................... ###
 
-  if (!file.exists(metadata$path_down)) {
+  if (!file.exists(metadata$path_download)) {
     ecokit::stop_ctx(
-      "Input file does not exist", path = metadata$path_down,
+      "Input file does not exist", path = metadata$path_download,
       include_backtrace = TRUE)
   }
 
@@ -126,8 +126,8 @@ chelsa_project <- function(
   # later consider the scale and offset information manually. This is more safe
   # as I found that some of the future projections do not include such
   # information in the tiff files.
-  r_map <- terra::rast(metadata$path_down, raw = TRUE) %>%
-    stats::setNames(basename(metadata$path_down)) %>%
+  r_map <- terra::rast(metadata$path_download, raw = TRUE) %>%
+    stats::setNames(basename(metadata$path_download)) %>%
     # crop to European boundaries although it is not necessary to crop the input
     # maps into the European boundaries, we will crop the data prior to
     # projection. Cropping will make the values of the raster read from memory
@@ -191,7 +191,7 @@ chelsa_project <- function(
   # global attributes to be added to the *.nc file
   attributes <- c(
     paste0("url=", metadata$url),
-    paste0("original_file=", metadata$path_down),
+    paste0("original_file=", metadata$path_download),
     paste0("variable=", metadata$variable),
     paste0("time_period=", metadata$time_period),
     paste0("climate_model=", metadata$climate_model),

R/dwf_clc_process.R

@@ -590,7 +590,8 @@ clc_process <- function(
       future::plan("sequential", gc = TRUE)
     } else {
       ecokit::set_parallel(
-        n_cores = n_cores_plot, level = 1L, strategy = strategy)
+        n_cores = n_cores_plot, level = 1L, strategy = strategy,
+        future_max_size = 1000L)
       withr::defer(future::plan("sequential", gc = TRUE))
     }
 

README.md

@@ -81,4 +81,4 @@ If you use the `IASDT.R` package, please cite it as:
 > <a href="https://biodt.eu" target="_blank">https://biodt.eu</a>.
 
 <span style="     color: grey !important;">Last update:
-2025-09-18</span>
+2025-09-19</span>