r语言 - ShinySky select2Input Bug

Question

这是我的一个非常基本的shiny应用程序的代码。它需要从github的shiny包以及shinysky库:https://github.com/AnalytixWare/ShinySky

下面是一个可复制的例子:

 testing <- function() {
  shinyApp(ui = fluidPage(
   sidebarLayout(
    sidebarPanel(
      select2Input("select2Input3",
                   "Multiple Select 2 Input",
                   choices = c("a","b","c"),
                   selected = c("b","a"), 
                   type = "select")  
      ),mainPanel(
        ))
  ), server = function(input, output){})
}
testing()

我很困惑，为什么即使我有选择c("a"，"b"，"c")，下拉菜单只会选择b，没有其他选择。我也试过只是选择= "b"，但没有运气。我看了闪亮天空的例子，我看不出我错过了什么。视频教程展示了相同类型的下拉菜单，但选择了"b"，但用户也可以点击下拉菜单中的"a"或"c":https://www.youtube.com/watch?feature=player_embedded&v=9T4F-j76Vf0&noredirect=1

我可能错过了一些明显的东西，但我现在似乎找不到它。谢谢你！

Answer 1

你必须在你的select2Input中添加参数"multiple"并将其设置为TRUE(就像在视频中一样)。默认为FALSE。

select2Input("select2Input3",
               "Multiple Select 2 Input",
               choices = c("a","b","c"),
               selected = c("b","a"), 
               type = "select",
               multiple=TRUE)

编辑:它也不适合我。select2Input可能需要更新。他的例子shinysky::run.shinysky.example()不再适用于Select2.