move highcharter to suggest

HuntsmanCancerInstitute · Dec 9, 2024 · 14a791c · 14a791c
1 parent fb3461a
commit 14a791c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -16,17 +16,17 @@ Imports:
     SummarizedExperiment,
     Biobase,
     S4Vectors,
-    highcharter,
     pheatmap,
     RColorBrewer,
-    htmlwidgets,
     openxlsx,
     biomaRt,
     dendsort,
     ggrepel,
     ggplot2
 Suggests:
     clusterProfiler,
+    highcharter,
+    htmlwidgets,
     fgsea,
     dendextend
 License: GPL-3

diff --git a/R/plot_pca.R b/R/plot_pca.R
@@ -77,7 +77,8 @@ plot_pca <- function(object, intgroup="trt", tooltip, label, ntop = 500, relevel
 		   p
 	   }else{
 		   if(!label %in% names(colMetadata) ) stop("name is missing from colData(object)")
-           p + ggrepel::geom_text_repel(ggplot2::aes(label=colMetadata[[label]]), cex=3, box.padding=.2, show.legend=FALSE)
+        dotlabels <- colMetadata[[label]]
+        p + ggrepel::geom_text_repel(ggplot2::aes(label=dotlabels), cex=3, box.padding=.2, show.legend=FALSE)
 	   }
    }else{
       # if tooltip is missing use column names