我正在构建一个使用'twitteR'R包下载推文的Web应用程序,修改这些推文并通过'闪亮'的R Web应用程序显示它们。执行将推文下载并处理到数据帧中的代码没有问题:
do.call('rbind', lapply(userTimeline('nutwition_log'), as.data.frame))
。你可以自己在终端(加载 twitteR 库)中运行它,并看到它下载推文数据并将结果数据帧打印到屏幕上。
但是,当我在"闪亮"应用程序(服务器端)中使用这种调用时......例如。。。
服务器。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)
})
})
用户界面。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 coerce class 'structure("status", package = "twitteR")' into a data.frame
Error in as.data.frame.default(X[[1L]], ...) :
cannot coerce class 'structure("status", package = "twitteR")' into a data.frame
。我想做的只是能够更改正在下载和修改其推文的用户,然后输出结果数据帧(...datasetInput()
返回,加载到output$view
)到mainPanel()
。我不知道为什么这不起作用。
任何帮助都会很棒!
我想我已经明白了:https://github.com/rstudio/shiny/commit/0b469f09df7e2ca3bbdb2ddadc8473a8126a9431
在正确测试并整合到新的 Shiny 版本中之前,您可以使用 devtools 直接从 GitHub 安装来对其进行测试:
library(devtools)
install_github('shiny', 'rstudio')
谢谢,很高兴修复了那个!
我不确定这是否是一个错误,但这里肯定有一些奇怪的事情,Joe Cheng 和他的同事想知道。它的工作原理是这样的:
服务器。R
library(shiny)
library(twitteR)
shinyServer(function(input, output) {
datasetInput <- reactive(function() {
tweets <- userTimeline(input$subscriber)
tmp <- lapply(1:length(tweets),function(x) data.frame(
text=tweets[[x]]$text,
created=tweets[[x]]$created,
screename=tweets[[x]]$getScreenName()))
do.call(rbind,tmp)
})
output$view <- reactiveTable(function() {
head(datasetInput(), n = input$obs)
})
})
所以这不是data.frames的问题,而是与twitteR为引用类status
的对象设置方法的方式有关。通过访问器引用字段来运行完全相同的代码似乎运行良好。
感觉就像"又一个S4/参考类之谜"。