From 90b45b9b374e95170301bb09814ada88d93268de Mon Sep 17 00:00:00 2001
From: Antonio De Falco <antoniodf92na@gmail.com>
Date: Tue, 16 Jan 2024 17:49:48 +0100
Subject: [PATCH] Update plotHeatmap.R

fix ConsensusCNA
---
 R/plotHeatmap.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/plotHeatmap.R b/R/plotHeatmap.R
index af30fba..e6319b6 100644
--- 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) {