Fix clc / efforts

Author: elgabbas

R/dwf_clc_plot.R

@@ -182,6 +182,7 @@ clc_plot <- function(clc_name, clc_map, eu_map, crosswalk, path_jpeg) {
             stringr::str_sub(labels$label[YY], 1, 70), ".jpeg") %>%
             stringr::str_replace_all("/", "_") %>%
             stringr::str_replace_all(" ", "_") %>%
+            stringr::str_remove_all(",") %>%
             stringr::str_to_lower() %>%
             fs::path(path_jpeg_2, .)
           tile_path_nozero <- stringr::str_replace(
@@ -266,6 +267,7 @@ clc_plot <- function(clc_name, clc_map, eu_map, crosswalk, path_jpeg) {
             stringr::str_sub(labels$label[YY], 1, 70), ".jpeg") %>%
             stringr::str_replace_all("/", "_") %>%
             stringr::str_replace_all(" ", "_") %>%
+            stringr::str_remove_all(",") %>%
             stringr::str_to_lower() %>%
             fs::path(path_jpeg_2_free, .)
           tile_path_free_nozero <- stringr::str_replace(

R/dwf_efforts_request.R

@@ -174,7 +174,7 @@ efforts_request <- function(
       erase_after = download_details$eraseAfter,
       download_link = download_details$downloadLink,
       size = download_details$size,
-      total_records = download_details$total_records,
+      total_records = download_details$totalRecords,
       n_datasets = download_details$numberDatasets,
       status = download_details$status,
       # size of data in megabytes
@@ -192,7 +192,7 @@ efforts_request <- function(
     dplyr::mutate(citation = purrr::map_chr(request, attr, "citation"))
 
   ecokit::cat_time("Requesting efforts data was finished", level = 2L)
-
+  
   # # ..................................................................... ###
 
   # Save efforts request data ------