R Shiny: условно требует, чтобы пользователь выбрал 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)