如何傳遞tbl_df列的值作爲閃亮小工具中的選項？

我想動態地構建一些小部件，通過使用dplyr連接到數據庫，然後將特定列中的唯一值作爲不同小部件中的選項傳遞。爲了使代碼具有可重現性，我給出了一個例子，我將tbl_df中的內置向量'state.abb'轉換爲1列，我猜應該像遠程託管tbl一樣工作。如何傳遞tbl_df列的值作爲閃亮小工具中的選項？

我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表中的值傳遞給閃亮的窗口小部件函數的正確方法是什麼？這甚至是值得推薦的嗎？

來源

2016-07-06 Dambo

可能是簡單的

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

來源

2016-07-06 08:09:23 Batanichek

如何傳遞tbl_df列的值作爲閃亮小工具中的選項？

回答

相關問題