@@ -22,6 +22,7 @@ Depends:

 Imports:

     AnnotationDbi,

     bs4Dash,

+    colorspace,

     ComplexHeatmap,

     dendextend,

     DESeq2,

@@ -70,7 +71,7 @@ Encoding: UTF-8

 VignetteBuilder: knitr

 URL: https://github.com/federicomarini/GeneTonic

 BugReports: https://github.com/federicomarini/GeneTonic/issues

-RoxygenNote: 7.1.0

+RoxygenNote: 7.1.1

 Roxygen: list(markdown = TRUE)

 biocViews:

     GUI, GeneExpression, Software, Transcription, Transcriptomics, Visualization,

@@ -89,6 +89,7 @@ importFrom(bs4Dash,bs4ValueBox)

 importFrom(bs4Dash,bs4ValueBoxOutput)

 importFrom(bs4Dash,renderbs4InfoBox)

 importFrom(bs4Dash,renderbs4ValueBox)

+importFrom(colorspace,rainbow_hcl)

 importFrom(dendextend,branches_attr_by_clusters)

 importFrom(dendextend,set)

 importFrom(dplyr,"%>%")

@@ -12,6 +12,7 @@

 #' bs4SidebarMenuItem bs4TabItem bs4TabItems bs4ValueBox

 #' bs4ValueBoxOutput renderbs4InfoBox renderbs4ValueBox

 #' bs4TabPanel bs4TabCard

+#' @importFrom colorspace rainbow_hcl

 #' @importFrom ComplexHeatmap Heatmap HeatmapAnnotation draw

 #' @importFrom dendextend branches_attr_by_clusters set

 #' @importFrom DESeq2 vst counts estimateSizeFactors normalizationFactors sizeFactors

@@ -1151,6 +1151,7 @@ GeneTonic <- function(dds,

     output$distill_graph <- renderVisNetwork({

       ig <- reactive_values$distillat()$distilled_em

+      # TODO: define color palette

       colpal <- colorspace::rainbow_hcl(length(unique(V(ig)$color)))[V(ig)$color]

       V(ig)$color.background <- scales::alpha(colpal, alpha = 0.8)

       V(ig)$color.highlight <- scales::alpha(colpal, alpha = 1)