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

我试图通过使用dplyr连接到数据库，然后将某些列中的唯一值作为不同小部件中的选择传递，来动态构建一些小部件。为了使代码可重现，我举一个示例，在其中将内置向量'state.abb'转换为1列的tbl_df，我认为它应该像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表传递到闪亮的小部件函数中的正确方法是什么？这甚至值得推荐吗？