replace print with message in create.clone.genome.distribution.plot.R

uclahs-cds · Feb 21, 2025 · 8148a55 · 8148a55
1 parent 95ddb59
commit 8148a55
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/create.clone.genome.distribution.plot.R b/R/create.clone.genome.distribution.plot.R
@@ -49,7 +49,7 @@ create.clone.genome.distribution.plot <- function(
     plt.list <- list();
     for (s in unique(snv.df$ID)) {
         # Iterate through each sample -------------------------------------------------------------
-        print(paste('Plotting clone distribution across the genome for sample:', s));
+        message(paste('Plotting clone distribution across the genome for sample:', s));
 
         sample.df <- droplevels(snv.df[snv.df$ID == s, ]);
         sample.df <- unique(sample.df[, c('clone.id', 'genome.pos', 'SNV.id', 'ID')]);