Shiny中多参数选择的checkboxGroupInput替代方案？

我有一个闪亮的应用程序，用来分析30年的气候数据。我希望用户能够在30年内选择任意多的年份，以便在彼此的顶部绘制。显然，可以使用checkboxGroupInput，但是，在屏幕上显示30个复选框在视觉上并不令人满意

---

是否有其他选择（如下拉“多选”）可用？

看起来shinyWidgets包中的pickerInput（）或checkboxGroupButtons会起作用。

看起来像pickerInput（）或者shinyWidgets软件包中的checkboxGroupButtons就可以了。

简单的替代方法是

选择Input

和

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)

库（闪亮）
图书馆（shinyWidgets）
ui简单的选择是
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)

库（闪亮）
图书馆（shinyWidgets）
用户界面