twitteR wie nach zwei Hashtags zu suchen

Question

Code hier eingebenIst es möglich, nach zwei verschiedenen hastags in einem searchTwitter Befehl zu suchen?

Beispiel

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 = "")) 

ich für hastags aussehen wollen #dn und #park Ich kann es separat tun, wie unten

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) 

Die Frage ist, ob diese beiden können in einem gequetscht werden?

Answer 1

Probieren Sie etwas wie dieses

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

Mit tolower auf Tweets kann einige Fehlerbehandlung benötigen - Sie viele Infos über die auf dem Netz finden.