R闪亮:有条件要求用户选择pickerInput

Question

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

我已经考虑过把这个放在一个modalDialogue中，但是它不起作用。我还尝试了一个updatePickerInput，它也不起作用。

有条件地要求用户从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)