Further revised transect name/number extraction using regex.

Author: kstierhoff

R/utils.R

@@ -9,8 +9,12 @@ extract_csv <- function(filename) {
   tmp <- data.table::fread(filename, sep = ",")
 
   # Extract transect name from the file name
-  # New method using regex, to better handle variations in filenames
-  transect <- stringr::str_extract(filename, pattern = "\\d{3}(-\\d+)?\\b")
+  # New method using regex, to better handle variations in file names
+  transect <- stringr::str_extract(filename, pattern = "_\\d{3}[\\w\\d\\W]([\\d]{1})?") %>%
+    # Replace leading underscore
+    stringr::str_replace("_", "") %>%
+    # Replace trailing special characters
+    stringr::str_replace("[^a-zA-Z0-9]$", "")
 
   # Original method, which failed when names weren't properly separated by underscores
   # transect <- tail(unlist(stringr::str_split(filename, "/")), n = 1) %>%