Merge pull request #94 from drkrynstrng/fileext

Fix file extension bug
NCEAS · Nov 21, 2018 · 03dda4d · 03dda4d
2 parents 960a471 + 114a2a4
commit 03dda4d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/download_d1_data.R b/R/download_d1_data.R
@@ -168,7 +168,7 @@ download_d1_data <- function(data_url, path) {
 
   # change downloaded data object name to data_name
   data_files <- list.files(new_dir, full.names = TRUE)
-  data_files_ext <- stringr::str_extract(data_files, ".[^.]{2,4}$")
+  data_files_ext <- stringr::str_extract(data_files, ".[^.]{1,4}$")
   file.rename(data_files, file.path(new_dir, paste0(data_name, data_files_ext)))
 
   entity_meta_general <- list(File_Name = data_name,