小编use*_*990的帖子

我正在构建一个使用'twitteR'R包下载推文的网络应用程序,修改这些推文并通过"闪亮的"R网络应用程序显示它们.执行下载和处理推文到数据框的代码没有问题:

do.call('rbind', lapply(userTimeline('nutwition_log'), as.data.frame))

...你可以在你的终端(加载了twitteR库)中运行它,并看到它下载了推文数据并将结果数据框打印到屏幕上.

但是,当我在"闪亮"应用程序(服务器端)中使用此类调用时......例如......

server.R:

library(shiny)
library(twitteR)
shinyServer(function(input, output) {

  datasetInput <- reactive(function() {
    tweets <- userTimeline(input$subscriber)
    do.call('rbind', lapply(tweets, as.data.frame))
  })

  output$view <- reactiveTable(function() {
    head(datasetInput(), n = input$obs)
  })

})

ui.R:

library(shiny)
library(twitteR)

shinyUI(pageWithSidebar(
  headerPanel('FitnessTrack'),
  sidebarPanel(
    selectInput("subscriber", "Select Subscriber:", 
                choices = c("nutwition_log", "anotherAccount")),
    numericInput("obs", "Number of observations to view:", 10)
  ),
  mainPanel(
    tableOutput("view")
  )
))

...我收到以下错误:

Error in as.data.frame.default(X[[1L]], ...) : 
  cannot coerce class 'structure("status", package = "twitteR")' into a data.frame
Error in as.data.frame.default(X[[1L]], ...) : 
  cannot …