twitteR comment rechercher deux hashtags

Question

entrer le code ici est-il possible de rechercher deux hastags différentes dans une commande searchTwitter?

Exemple

my_h <- as.POSIXlt(Sys.time()) 
my_h <- strptime(my_h, format = "%Y-%m-%d %H:%M:%S", tz = "CET") 

hrs <- function(u) { 
    x <- u * 3600 
    return(x) 
} 
my_h <- my_h - hrs(24) 
my_h <- data.frame(day = strptime(my_h, "%Y-%m-%d", tz = "")) 

Je veux chercher hastags #dn et #park je peux le faire séparément ci-dessous

tweets<-twListToDF(searchTwitter("#dn", n=5000, since = as.character(my_h$day))) 
write.table(tweets, "all_dn_tweets.csv", row.names = F, append = T, sep = ";", col.names = F) 

tweets<-twListToDF(searchTwitter("#park", n=5000, since = as.character(my_h$day))) 
write.table(tweets, "all_park_tweets.csv", row.names = F, append = T, sep = ";", col.names = F) 

La question est de savoir si ces deux peuvent être entassés dans une?

Answer 1

Essayez quelque chose comme ça

hashtags <- c("#metallica", "#slayer") 
needle <- paste(hashtags, collapse = " OR ") 
tweets <- searchTwitter(needle, n = 10) 
df <- twListToDF(tweets) 
for (hashtag in hashtags) { 
    write.csv(df[grep(hashtag, tolower(df$text), fixed = TRUE), ], paste0(hashtag, ".csv")) 
} 

En utilisant tolower sur tweets peut avoir besoin d'une manipulation d'erreurs - vous trouverez beaucoup d'infos sur ce sur le web.