Альтернативы checkboxGroupInput для выбора нескольких параметров в Shiny?

Question

У меня есть блестящее приложение, которое используется для анализа 30-летних климатических данных. Я бы хотел, чтобы пользователь мог выбирать столько лет, сколько ему хотелось бы в течение 30 лет, чтобы строить друг на друга. Очевидно, что можно использовать checkboxGroupInput, однако отображение 30 флажков на экране не является визуально приятным.

Существуют ли альтернативы (такие как выпадающий список "множественный выбор")?

Answer 1

Простая альтернатива будет selectInput с multiple = TRUE. Если вы не возражаете против использования внешнего пакета, ответ bwc пригодится. Смотрите следующую демонстрацию:

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(selectInput("choiceSelectize", "Choose one or more:", choices = 1:10, multiple = TRUE),
                 pickerInput("choicePicker", "Choose one or more:", choices = 1:10, multiple = TRUE)),
    mainPanel("Plain shiny Select Input:", verbatimTextOutput("outSelectize"),
              "ShinyWidgets Picker Input:", verbatimTextOutput("outPicker"))
  )
)

server <- function(input, output) {

  output$outSelectize <- renderPrint({
    input$choiceSelectize
  })

  output$outPicker <- renderPrint({
    input$choicePicker
  })
}

shinyApp(ui, server)

Answer 2

Похоже, что pickerInput () или checkboxGroupButtons из пакета woolWidgets добьются цели.