Updated method for extracting transect names from filenames in extract_csv().

Author: kstierhoff

R/utils.R

@@ -9,9 +9,13 @@ extract_csv <- function(filename) {
   tmp <- data.table::fread(filename, sep = ",")
 
   # Extract transect name from the file name
-  transect <- tail(unlist(stringr::str_split(filename, "/")), n = 1) %>%
-    stringr::str_split("_") %>%
-    purrr::pluck(1, 2)
+  # New method using regex, to better handle variations in filenames
+  tranect <- stringr::str_extract(filename, pattern = "\\d{3}(-\\d+)?\\b")
+
+  # Original method, which failed when names weren't properly separated by underscores
+  # transect <- tail(unlist(stringr::str_split(filename, "/")), n = 1) %>%
+  #   stringr::str_split("_") %>%
+  #   purrr::pluck(1, 2)
 
   # Are data from CPS?
   is.cps <- ifelse(stringr::str_detect(filename, "CPS"), TRUE, FALSE)