bug fix: handling of custom colors for numeric annotations

morinlab · Jun 18, 2024 · 0d1e234 · 0d1e234
1 parent cabfacf
commit 0d1e234
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/prettyOncoplot.R b/R/prettyOncoplot.R
@@ -700,8 +700,10 @@ prettyOncoplot = function(maf_df,
     replace(is.na(.), "NA")
   # Only keep the annotation colors for the remaining patients
   for(column in colnames(metadata_df)){
-    remaining <- unique(metadata_df[column]) %>% pull()
-    colours[[column]] <- (colours[column] %>% unname %>% unlist)[remaining]
+    if((!missing(numericMetadataColumns)) & (!column %in% numericMetadataColumns)){
+        remaining <- unique(metadata_df[column]) %>% pull()
+        colours[[column]] <- (colours[column] %>% unname %>% unlist)[remaining]
+    }
   }
 
   ch = ComplexHeatmap::oncoPrint(mat[intersect(genes, genes_kept),patients_kept],