渲染表没有在光亮中工作

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

您正在renderTable中调用renderTable。尝试使用以下服务器功能：

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)
})