R 渲染表不在工作状态

我无法使用

可渲染

。这就是我得到的错误：

UseMethod（“xtable”）中出错：“xtable”没有适用于“character”类对象的方法

另外，我希望最终输出仅为2列

连接2-4列

第5栏

---

#server.R
shinyServer（功能（输入、输出）{
content\u data您正在调用
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]
  })        
})

如果您理解此问题，则可能会重复。请帮助我如何在UI基础表1上添加图表。我想创建输出$plot1，但我既不能使用内容数据也不能使用表格1。您应该能够使用
renderPlot（）
和
content\u data（）[1]
或
content\u data（）[2]创建绘图.
My bad。请尝试此操作。
output$Plot1
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]
  })        
})

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