From 45d2dadfafd762fa4646b8020e19d68836f4993b Mon Sep 17 00:00:00 2001 From: noriakis Date: Sat, 20 Apr 2024 13:13:00 +0900 Subject: [PATCH] app update for selectInput --- inst/extdata/app_stana.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/inst/extdata/app_stana.R b/inst/extdata/app_stana.R index 795fab8..89d2878 100644 --- 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]) })