fix sequence number plot

ggabernet · May 20, 2024 · 4401e8c · 4401e8c
1 parent 46f8eb6
commit 4401e8c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/assets/repertoire_comparison.Rmd b/assets/repertoire_comparison.Rmd
@@ -106,8 +106,9 @@ The full table can be found under [Table_sequences_assembled](repertoire_compari
 ```{r seq_assembled, echo=FALSE, warning=FALSE, results='asis'}
 tab_seqs_assembled <- read.table("./Table_sequences_assembled.tsv", header=TRUE, sep="\t", check.names = FALSE)
 
+# Splitting on last underscore for sample_id
 if (any(is.na(tab_seqs_assembled$sample_id))) {
-  tab_seqs_assembled$sample_id <- sapply(tab_seqs_assembled$file_0, function(x) unlist(strsplit(as.character(x), "_"))[1])
+  tab_seqs_assembled$sample_id <- sapply(tab_seqs_assembled$file_0, function(x) unlist(strsplit(as.character(x), "_\\s*(?=[^_]+$)", perl=TRUE))[1])
 }
 
 dat <- tab_seqs_assembled %>%

diff --git a/modules/local/rename_file.nf b/modules/local/rename_file.nf
@@ -12,7 +12,7 @@ process RENAME_FILE {
     tuple val(meta), path(file)
 
     output:
-    tuple val(meta), path("${meta.id}_${file.name}")  , emit: file
+    tuple val(meta), path("${meta.id}.${file.extension}")  , emit: file
 
     script:
     """