Shiny：基于选定级别的 SelectizeInput 条件更新

Question

我想根据条件input.c_l_check=='y' 使用选定的值s_l 更新selectizeInput

ShinyUi <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput('s_l', 'D to show:', levels(data$D), selected = levels(data$D)),

      radioButtons("c_l_check", "D to colour:", list("Yes"='y', "No"='n'), selected = 'n'),

      conditionalPanel( condition = "input.c_l_check=='y'",
        selectizeInput( inputId = "c_l", label = "D to color:", multiple  = T, choices = NULL))
      ...

  ))

ShinyServer <- function(input, output, session) {

  # Updating selectize input
  updateSelectizeInput(session, 'c_l', choices = 'input$s_l', server = TRUE) 

  ...
}

# Run the application 
shinyApp(ui = ShinyUi, server = ShinyServer)

但是，它使用input$s_l 而不是它的值进行更新。

Answer 1

应该是： updateSelectizeInput(session, 'c_l', choices = input$s_l, server = TRUE)

即input$s_l 应该不带引号。

编辑：

这是一个工作示例：

data <- data.frame(D = iris$Species)

ShinyUi <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput('s_l', 'D to show:', levels(data$D), selected = levels(data$D)),

      radioButtons("c_l_check", "D to colour:", list("Yes"='y', "No"='n'), selected = 'n'),

      conditionalPanel( condition = "input.c_l_check=='y'",
                        selectizeInput( inputId = "c_l", label = "D to color:", multiple  = T, choices = NULL))


    ),
    mainPanel()
    ))

  ShinyServer <- function(input, output, session) {
    observe({
      # Updating selectize input
      updateSelectizeInput(session, 'c_l', choices = input$s_l, server = TRUE) 
    })


  }

  # Run the application 
  shinyApp(ui = ShinyUi, server = ShinyServer)