incorrect extension grab

wincowgerDEV · Jan 5, 2024 · 3133956 · 3133956
1 parent cc1c773
commit 3133956
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/read_multi.R b/R/read_multi.R
@@ -39,7 +39,7 @@ read_any <- function(file, ...) {
     os <- read_opus(file = file, ...)
   } else if (grepl("(\\.asp$)|(\\.spa$)|(\\.spc$)|(\\.jdx$)",
                    ignore.case = T, file)) {
-    ex <- strsplit(basename(file), split="\\.")[[1]][-1]
+    ex <- gsub(".*\\.", "", file)
     os <- do.call(paste0("read_", tolower(ex)), list(file = file, ...))
   } else if (grepl("(\\.zip$)", ignore.case = T, file)) {
     os <- read_zip(file = file, ...)