diff --git a/merge-lbm-seq.R b/merge-lbm-seq.R index 5ec6991..5d460d6 100644 --- a/merge-lbm-seq.R +++ b/merge-lbm-seq.R @@ -6,7 +6,7 @@ path <- args[1] -base_folder <- str_remove(string = path, pattern = "/tmp[0-9]*$") +base_folder <- str_remove(string = path, pattern = "/tmp[0-9]*/?$") print(base_folder) epoch <- str_extract(string = path, pattern = "(?<=tmp)([0-9]*)")