0

这是我的一个非常基本的闪亮应用程序的代码。它需要闪亮的包以及来自 github 的闪亮天空库：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

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

4

1 回答 1

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。

于 2015-07-14T16:09:41.323 回答