SampleID annotations table

sipss · May 23, 2024 · 98962f1 · 98962f1
1 parent 50a6a54
commit 98962f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/create_annotations_table.R b/R/create_annotations_table.R
@@ -65,7 +65,7 @@ create_annotations_table <- function(
     include.dirs = FALSE
   )
   annotations <- tibble::tibble(
-    SampleID = tools::file_path_sans_ext(filenames, compression = TRUE),
+    SampleID = sapply(filenames, function(x) sub("\\.mea(\\.gz)?$", "", basename(x))),
     FileName = filenames
   )
   if (verbose) {