Fix chelsa and clc

Author: elgabbas

R/dwf_chelsa_process.R

@@ -264,10 +264,8 @@ chelsa_process <- function(
           return(TRUE)
         }
 
-        netcdf_okay <- suppressWarnings(
-          ecokit::check_tiff(file_nc, warning = FALSE))
-        tif_okay <- suppressWarnings(
-          ecokit::check_tiff(file_tif, warning = FALSE))
+        netcdf_okay <- ecokit::check_tiff(file_nc, warning = FALSE)
+        tif_okay <- ecokit::check_tiff(file_tif, warning = FALSE)
         need_processing <- isFALSE(netcdf_okay && tif_okay)
 
         if (need_processing) {
@@ -316,9 +314,6 @@ chelsa_process <- function(
           return(FALSE)
         }
 
-        if (file.exists(file_nc)) fs::file_delete(file_nc)
-        if (file.exists(file_tif)) fs::file_delete(file_tif)
-
         # Set `GTIFF_SRS_SOURCE` configuration option to EPSG to use
         # official parameters (overriding the ones from GeoTIFF keys)
         # see: https://stackoverflow.com/questions/78007307
@@ -363,8 +358,6 @@ chelsa_process <- function(
               command = chelsa_to_process$download_command[[x]],
               ignore.stdout = TRUE, ignore.stderr = TRUE)
           }
-          if (file.exists(file_nc)) fs::file_delete(file_nc)
-          if (file.exists(file_tif)) fs::file_delete(file_tif)
         }
 
         if (inherits(try_n, "try-error")) {

R/dwf_chelsa_project.R

@@ -114,7 +114,6 @@ chelsa_project <- function(
     "extdata", "LandMask.nc", package = "IASDT.R", mustWork = TRUE) %>%
     terra::rast() %>%
     terra::crop(crop_extent) %>%
-    suppressWarnings() %>% # suppress warning on LUMI while cropping
     terra::classify(cbind(0, NA))
 
   # # ..................................................................... ###
@@ -201,12 +200,17 @@ chelsa_project <- function(
     paste0("explanation=", metadata$explanation))
 
   # save as *.nc file
-  terra::writeCDF(
-    r_map,
-    filename = metadata$path_out_netcdf, varname = var_name_for_nc,
-    unit = metadata$unit, zname = metadata$time_period,
-    atts = attributes, overwrite = TRUE, compression = compression_level)
 
+  ecokit::quietly({
+    terra::writeCDF(
+      r_map,
+      filename = metadata$path_out_netcdf, varname = var_name_for_nc,
+      unit = metadata$unit, zname = metadata$time_period,
+      atts = attributes, overwrite = TRUE, compression = compression_level)
+
+  },
+  "is not a Latitude/Y dimension.",
+  "is not a Longitude/X dimension.")
   # # ..................................................................... ###
 
   return(invisible(NULL))

R/dwf_clc_plot.R

@@ -404,7 +404,7 @@ clc_plot <- function(clc_name, clc_map, eu_map, crosswalk, path_jpeg) {
       grDevices::dev.off()
     })
 
-  rm(maps, common_legend, prefix, out_path, last_update, env = environment())
+  rm(maps, common_legend, prefix, out_path, last_update, envir = environment())
 
   invisible(NULL)
 }