Question

我正在尝试动态构建一些小部件，方法是使用dplyr连接到数据库，然后将某些列中的唯一值作为不同小部件中的选项传递。为了使代码可重现，我给出了一个示例，我在1列的tbl_df中转换内置向量'state.abb'，我想这应该像tbl远程托管一样。

我的 ui.R 文件如下所示：

library(shiny)
library(dplyr)

shinyUI(fluidPage(

  titlePanel("Test"),

  fluidRow(

  #this part works
    column(4,
    checkboxGroupInput('tbl1', '',
                       state.abb, 
                       selected = state.abb)
    ),

    #this doesn't work
    column(4,
           checkboxGroupInput('tbl2', '',
                              tbl_df(as.data.frame(state.abb)), 
                              selected = tbl_df(as.data.frame(state.abb)))
    )


    ))
  )

我的 server.R 为空

library(shiny)
library(dplyr)
shinyServer(function(input, output) {      

})

当我运行应用程序时，我会看到第一个清单，但第二个清单没有显示，因为tbl_df(as.data.frame(state.abb))不是矢量。

将值从dplyr表传递到闪亮的窗口小部件函数的正确方法是什么？这甚至是值得推荐的吗？

Answer 1

可能很简单

tbl_df(as.data.frame(state.abb))[[1]]

如何将tbl_df列的值作为闪亮小部件中的选项传递？

1 个答案: