ShinySky select2Input错误

Question

以下是我为一个非常基本的闪亮应用程序编写的代码。它需要软件包shiny以及来自github的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。