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

【问题标题】：How to pass the values of a tbl_df column as choices in a shiny widget?如何将 tbl_df 列的值作为闪亮小部件中的选项传递？
【发布时间】：2016-07-06 00:40:06
【问题描述】：

我正在尝试动态构建一些小部件，方法是使用 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 表传递到闪亮的小部件函数的正确方法是什么？这甚至值得推荐吗？

【问题讨论】：

标签： r shiny dplyr

【解决方案1】：

可能很简单

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

【讨论】：