Small fix for chelsa and EASIN functions

Author: elgabbas

R/dwf_chelsa_prepare.R

@@ -80,7 +80,7 @@ chelsa_prepare <- function(
 
   chelsa_metadata <- list.files(
     path = path_dwnload_links, recursive = TRUE, full.names = TRUE,
-    pattern = "dwnload_links_Climatologies_.+txt$") %>%
+    pattern = "dwnload_links_climatologies_.+txt$") %>%
     dplyr::tibble(url_file = .) %>%
     # Add download links
     dplyr::mutate(
@@ -97,7 +97,7 @@ chelsa_prepare <- function(
       # Extract time period
       time_period = purrr::map_chr(
         url_file, stringr::str_remove_all,
-        pattern = "dwnload_links_Climatologies_|.txt"),
+        pattern = "dwnload_links_climatologies_|.txt"),
 
       # File extension
       extension = purrr::map_chr(url, tools::file_ext),

R/dwf_easin_download.R

@@ -97,10 +97,10 @@ easin_download <- function(
       }
 
       # nolint start
-      Skip <- (chunk_n - 1) * n_search
+      skip <- (chunk_n - 1) * n_search
       # `exclude/dps/1` excludes GBIF observations
       url <- stringr::str_glue(
-        "{easin_url}/{species_key}/exclude/dps/1/{Skip}/{n_search}")
+        "{easin_url}/{species_key}/exclude/dps/1/{skip}/{n_search}")
       # nolint end
 
       download_try <- 0

R/dwf_easin_taxonomy.R

@@ -60,7 +60,7 @@ easin_taxonomy <- function(
     # The API has been changed in April 2023; the main change: using
     # 'apixg/catxg' instead of 'api/cat'
     url <- stringr::str_glue(
-      "{easin_url}/kingdom/{kingdom}/skip/{Skip}/take/{n_search}")
+      "{easin_url}/kingdom/{kingdom}/skip/{skip}/take/{n_search}")
 
     # Extract species data as tibble
     taxa_data <- try(RCurl::getURL(url, .mapUnicode = FALSE), silent = TRUE)