R光沢のあるモジュール：親サーバからの反応性のあるデータを呼び出す

Question

私はモジュールの外から反応性のあるデータでR光沢のあるモジュールを呼び出そうとしているので、チュートリアルを読み、 '（）'をcallModule引数に含めないでくださいデータ。しかし、私はエラーメッセージを受け取りました： Warning: Error in as.vector: cannot coerce type 'closure' to vector of type 'listそれをした後。ここで

は、モジュールのコードです：

pieTableUI <- function(id, header, titleInfo, width = 6) { 

ns <- NS(id) 

infoClick <- h3(header, 
       tipify(
       el = icon("info-circle"), trigger = "hover click", 
       title = titleInfo 
      )) 

tagList(
tabBox(
    tabPanel("Pie Chart", 
      infoClick, 
      htmlOutput(ns("piechart"))), 
    tabPanel("Table", 
      infoClick, 
      htmlOutput(ns("table"))), 
    width = width 
    ) 
) 
} 

pieTable <- function(input, output, session, dataChart, x, y) { 

output$piechart <- renderGvis({ 
gvisPieChart_HCSC(dataChart, x, y) 
}) 

output$table <- renderGvis({ 
gvisTable(dataChart) 
}) 

} 

そして私は、モジュールと呼ばれる：agegroup_dataは、サーバーからの反応データフレームである

callModule(pieTable, "agegroupplot", dataChart = agegroup_data, x = "AGE_GROUP_CLEAN", y = "n") 

。

Answer 1

私は、dataChartの後にかっこを追加していないということが、pieTableの機能の本体にあると思います。反応式の値を取得するには、関数と同様に呼び出す必要があります。

pieTable <- function(input, output, session, dataChart, x, y) { 

    output$piechart <- renderGvis({ 
     gvisPieChart_HCSC(dataChart(), x, y) 
    }) 

    output$table <- renderGvis({ 
    gvisTable(dataChart()) 
    }) 

}