Question sur l'erreur Plyr: Erreur dans as.double (y): ne peut pas forcer le type 'S4' à un vecteur de type 'double'

Question

Je suis en train de mettre à jour un projet que j'avais précédemment. Ce code a fonctionné il y a quelques mois, en attendant j'ai amélioré R et plyr. Je pense que j'étais sur R1.10 et maintenant je suis sur R1.35, je ne suis pas sûr de la version de plyr que je courais avant mais ma version installée actuelle est de 1.2.

Voici ce que je suis en train de courir:

library(plyr) 
library(twitteR) 

tw <- head(ldply(searchTwitter("rstats", session=getCurlHandle(), n=10), function(x) data.frame(text=text(x), favorited=favorited(x), created=created(x), truncated=truncated(x), id=id(x), statusSource=statusSource(x), screenName=screenName(x)))) 

Je reçois toujours le même message d'erreur maintenant.

Error in as.double(y) : 
    cannot coerce type 'S4' to vector of type 'double' 

Tout conseil serait apprécié.

Merci,

Jason

Answer 1

Dans votre milieu de confusion sur ce que les versions que vous utilisez (il n'y avait pas une version R 1.35 !!), il y a plusieurs problèmes. (Pour connaître les versions de R et de packages que vous exécutez, essayez sessionInfo().)

D'abord, l'erreur que vous obtenez vient de votre utilisation de text(). Il devrait être statusText(). Deuxièmement, il semble que certaines des fonctions/méthodes ne sont pas exportées dans le paquet NAMESPACE. Vous pouvez le faire fonctionner en spécifiant l'espace de noms correct lors de l'appel de la fonction, comme dans l'exemple ci-dessous, mais vous devez envoyer un courriel au responsable du paquet (Jeff Gentry - coordonnées CRAN). Vous pouvez vous référer à des fonctions non exportées en utilisant l'opérateur :::. ::: prend le paquet/nom d'espace de noms sur le côté gauche, avec le nom de la fonction sur le côté droit, par exemple:

twitteR:::statusSource(x) 

Voici une version de travail complète de votre exemple:

library(plyr) 
library(twitteR) 
## simplify the call to see what is going on - function first 
fooFun <- function(x) { 
    data.frame(text = statusText(x), favorited=favorited(x), 
       created=created(x), truncated=twitteR:::truncated(x), 
       id=id(x), statusSource=twitteR:::statusSource(x), 
       screenName=screenName(x)) 
} 
## now ldply it 
out <- ldply(searchTwitter("rstats", session = getCurlHandle(), n = 10), fooFun) 
## show some of it: 
head(out) 

Answer 2

Cela fonctionne dans la version actuelle de la R (2.12.0) et la version 0.91 de TWITTER:

tw <- ldply(searchTwitter("rstats", session=getCurlHandle(), n=10), 
       function(x) c(text=x@text, favorited=x@favorited, created=x@created, 
          truncated=x@truncated, id=x@id, statusSource=x@statusSource, 
          screenName=x@screenName) 
         ) 

Je recevais la même erreur que vous étiez jusqu'à ce que je suis passé à l'opérateur « @ » pour une ccessant les valeurs de slot.