app update for selectInput

noriakis · Apr 20, 2024 · 45d2dad · 45d2dad
1 parent c58c8a1
commit 45d2dad
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/inst/extdata/app_stana.R b/inst/extdata/app_stana.R
@@ -143,7 +143,7 @@ ui <-  fluidPage(
                 ),
 
                 column(3, align="center",
-                    selectizeInput('cv', "Clinical variables",
+                    selectInput('cv', "Clinical variables",
                         choices = NULL, multiple=TRUE),
                     uiOutput("col")
                 ),
@@ -307,9 +307,9 @@ server <- function(input, output, session) {
         ## Load metadata onto reactive
         values$meta <- meta
 
-        updateSelectizeInput(session, 'cv',
+        updateSelectInput(session, 'cv',
             choices = colnames(meta),
-            server = TRUE,
+            # server = TRUE,
             selected = first_choice[input$site])
     })