渲染表不能在Shiny中工作

Question

我無法使用renderTable。這是我得到的錯誤：

錯誤UseMethod（「xtable」）：因爲沒有適用的方法「xtable」適用於類「性格」

同樣的目標，我想最終輸出是僅2列

1. 串聯2-4列
2. 第5列

---

#server.R 
shinyServer(function(input, output) { 

    content_data <- renderTable({ 

    ga$getData(id, start.date="2015-10-01", end.date=Sys.Date()-1, 
       metrics = "ga:pageViews", 
       dimensions = "ga:date, ga:day, ga:month, ga:year", 
       sort = "ga:date", 
       filter = paste0("ga:pagePath=@/tp", input$text))[,2:5] 
    }) 
    output$table1 <- renderTable(content_data()) 
}) 

#ui.R 
shinyUI(fluidPage(

    textInput("text", label = h3("City"), value = "Enter city name..."), 

    hr(), 
    fluidRow(column(12, tableOutput("table1"))) 

)) 

Answer 1

要調用內renderTablerenderTable。嘗試與此服務器功能：

shinyServer(function(input, output) { 
    output$table1 <- renderTable({ 
     ga$getData(id, start.date="2015-10-01", end.date=Sys.Date()-1, 
       metrics = "ga:pageViews", 
       dimensions = "ga:date, ga:day, ga:month, ga:year", 
       sort = "ga:date", 
       filter = paste0("ga:pagePath=@/tp", input$text))[,2:5] 
    })   
}) 

對於串聯，你必須renderTable之前對數據進行處理。像這樣的東西應該工作（下次請張貼可重現的例子）。

shinyServer(function(input, output) { 

content_data <- reactive({ 
    df<-ga$getData(id, start.date="2015-10-01", end.date=Sys.Date()-1, 
      metrics = "ga:pageViews", 
      dimensions = "ga:date, ga:day, ga:month, ga:year", 
      sort = "ga:date")[,2:5] 
    #return concatenated 2-4 and 5 
    cbind(paste(df[2],df[3],df[4]),df[5]) 
}) 

output$table1 <- renderTable(content_data) 
})