Update plotHeatmap.R

fix ConsensusCNA
AntonioDeFalco · Jan 16, 2024 · 90b45b9 · 90b45b9
1 parent 3e747ad
commit 90b45b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plotHeatmap.R b/R/plotHeatmap.R
@@ -963,7 +963,7 @@ plotCNAline <- function(segmList, segmListSpec, samp, nSub, colors_samp = NULL){
 
 plotConsensusCNA <- function(samp, nSub, organism = "human", pathOutput = "./output/", colors_samp = NULL){
 
-  allFile <- list.files(pathOutput, pattern = paste0(samp,"_subclone[1-9]_CN.seg") )
+  allFile <- list.files(pathOutput, pattern = paste0(samp,"_subclone[1-9]{1,2}_CN.seg") )
   segmList <- lapply(allFile, function(i) read.table(paste0(pathOutput,i), sep="\t", header=TRUE, as.is=TRUE))
 
   segmList <- lapply(segmList, function(x) {