Remove file extensions and check duplicated file names

Boehringer-Ingelheim · Nov 19, 2024 · 96fa7de · 96fa7de
1 parent e91f221
commit 96fa7de
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -98,7 +98,11 @@ load_data_files <- function(file_paths) {
     return(data)
   })
 
-  names(data_list) <- basename(file_paths)
+  names(data_list) <- tools::file_path_sans_ext(basename(file_paths))
+
+  if (any(duplicated(names(data_list)))) {
+    stop("load_data_files(): Duplicate file names detected. Please ensure all file names are unique.")
+  }
 
   return(data_list)
 }