Removing periods from created folder elements (hopefully fixes weird …

…Windows issue)
NCEAS · Apr 11, 2024 · 10fc577 · 10fc577
1 parent fe05006
commit 10fc577
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/R/download_EML_data.R b/R/download_EML_data.R
@@ -122,6 +122,11 @@ download_EML_data <- function(data_url, meta_obj, meta_id, data_id, metadata_nod
   data_name <- gsub(" ", "", data_name) # remove spaces
   meta_name <- gsub("[^a-zA-Z0-9. -]+", "_", meta_id) #remove special characters & replace with _
 
+  # Also remove periods from various objects
+  meta_name <- gsub(pattern = "\\.", replacement = "_", x = meta_name)
+  data_name <- gsub(pattern = "\\.", replacement = "_", x = data_name)
+  data_extension <- gsub(pattern = "\\.", replacement = "_", x = data_extension)
+
   # Assemble a new folder name
   new_dir <- file.path(path, paste(meta_name, data_name, data_extension,
                                     sep = "__"))

diff --git a/R/download_ISO_data.R b/R/download_ISO_data.R
@@ -118,6 +118,11 @@ ISO_type <- metadata2 %>% filter(name == "doc.children.MD_Metadata.children.meta
   data_name <- gsub(" ", "", data_name) # remove spaces
   meta_name <- gsub("[^a-zA-Z0-9. -]+", "_", meta_id) #remove special characters & replace with _
 
+  # Also remove periods from various objects
+  meta_name <- gsub(pattern = "\\.", replacement = "_", x = meta_name)
+  data_name <- gsub(pattern = "\\.", replacement = "_", x = data_name)
+  data_extension <- gsub(pattern = "\\.", replacement = "_", x = data_extension)
+
   # Assemble a new folder name
   new_dir <- file.path(path, paste(meta_name, data_name, data_extension,
                                    sep = "__"))