r - R Shiny：有条件地要求用户选择pickerInput

Question

我pickerInput在应用程序中有两个值。首先，geography用户可以选择查看state（默认）或county数据。如果用户选择county，我想要求他们从第二个中选择一个状态pickerInput，这只是一个状态列表。不需要用户在 时选择状态input$geography == "state"。

我考虑过把它放在 a 里面，modalDialogue但它不起作用。我也尝试了一个updatePickerInput也不起作用。

有条件地要求用户从 a 中选择一个值的最佳方法是pickerInput什么？

谢谢你。

Answer 1

这是一个解决方案shinyjs：

library(shiny)
library(shinyWidgets)
library(shinyjs)

ui <- fluidPage(

  useShinyjs(),

  pickerInput("pick_1", choices = c("state","county"), multiple = FALSE, selected = "state"),
  shinyjs::hidden(
    pickerInput("pick_2", choices = state.name, multiple = TRUE)
  )


)

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

  observe({
    toggleElement("pick_2", condition = input$pick_1 == "state")

  })


}

shinyApp(ui, server)