Shinyでデータセットを反応させるにはどうすればいいですか？

Question

光沢のあるアプリケーションで反応性のあるデータセットを使用して、そのデータセットを使用する他のオブジェクトをreactiveDfの値に従って再レンダリングできるようにしたいと思います。

この例では1つのテーブルだけを出力していますが、私のアプリでは他のチャートとテーブルがあり、その考え方はサブセットreactiveDfでレンダリングをトリガーすることです。また、私はdplyrを使ってそれをしたいと思います。今

library(shiny) 
library(dplyr) 
ui <- shinyUI(fluidPage(
    sidebarLayout(
     sidebarPanel(
     checkboxGroupInput('Category', '', 
          unique(mtcars$carb), selected = unique(mtcars$carb))), 
     # Show table of the rendered dataset 
     mainPanel(
     tableOutput("df") 
    ) 
    ) 
)) 


server <- shinyServer(function(input, output) { 

    reactiveDf <- reactive({tbl_df(mtcars) %>% 
            filter(carb %in% input$Category)}) 

    output$df <- renderTable({reactiveDf}) 
}) 

shinyApp(ui = ui, server = server) 

私はこのアプリを実行すると、私が手：

Listening on http://127.0.0.1:7032 
Warning: Error in UseMethod: no applicable method for 'xtable' 
applied to an object of class "reactive" 

そしてtableOutput()は表示されません。

Answer 1

反応性は、私は `STR（tbl_df（mtcars））` `私はクラス 'tbl_df' を取得、 'TBL' を行う場合ので、あなたは括弧...

library(shiny) 
library(dplyr) 
ui <- shinyUI(fluidPage(
    sidebarLayout(
    sidebarPanel(
     checkboxGroupInput('Category', '', 
         unique(mtcars$carb), selected = unique(mtcars$carb))), 
    # Show table of the rendered dataset 
    mainPanel(
     tableOutput("df") 
    ) 
) 
)) 


server <- shinyServer(function(input, output) { 

    reactiveDf <- reactive({return(tbl_df(mtcars) %>% 
     filter(carb %in% input$Category))}) 

    output$df <- renderTable({reactiveDf()}) 
}) 

shinyApp(ui = ui, server = server)