Merge pull request #171 from uclahs-cds/hwinata-replace-print-with-me…

…ssage

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

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')]);