final changes

vizapp/shinyapp/server.R

@@ -131,7 +131,15 @@ server <- function(input, output, session) {
           choices = giveChoicesMetaNone(current_obj()@meta.data),
           server=T,
           selected = NULL)
+          de_choices <- levels(Idents(current_obj()))
+          updateSelectizeInput(session, "condition1",
+                              choices  = c(de_choices, "None"),
+                              selected = "None", server = TRUE)
+          updateSelectizeInput(session, "condition2",
+                              choices  = c(de_choices, "None"),
+                              selected = "None", server = TRUE)
         })
+       
     #############################
     ## FILTER REFACTOR SECTION ##
     #############################
@@ -970,6 +978,13 @@ server <- function(input, output, session) {
             choices = giveChoicesMetaNone(current_obj()@meta.data),
             server=T,
             selected = NULL)
+            de_choices <- levels(Idents(current_obj()))
+            updateSelectizeInput(session, "condition1",
+                                choices  = c(de_choices, "None"),
+                                selected = "None", server = TRUE)
+            updateSelectizeInput(session, "condition2",
+                                choices  = c(de_choices, "None"),
+                                selected = "None", server = TRUE)
         }
     })