Use full cell type names in sidebar selection for heatmap

fungenomics · Jul 29, 2021 · 63a4017 · 63a4017
1 parent 7f3ba15
commit 63a4017
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/clusters/ui.R b/clusters/ui.R
@@ -76,14 +76,15 @@ ui <- function(request){
                                                            "Pons" = "joint_pons"))
                  ),
 
+                 # Input for heatmap tab
                  conditionalPanel(condition = "input.tabs == 'heatmap'",
-                                  checkboxGroupInput("heatmap_cells", label = "Cell type(s) for heatmap", 
-                                                     choices = list("Progenitors/cyc.",
+                                  checkboxGroupInput("heatmap_cells", label = "Cell type(s)", 
+                                                     choices = list("Progenitors/cycling" = "Progenitors/cyc.",
                                                                     "Oligodendrocytes",
                                                                     "Ependymal", 
                                                                     "Astrocytes",
                                                                     "Neurons",
-                                                                    "Non-neuroect.",
+                                                                    "Non-neuroectoderm" = "Non-neuroect.",
                                                                     "Other"),
                                                      selected = c("Oligodendrocytes",
                                                                   "Ependymal",