Skip to content

Instantly share code, notes, and snippets.

@geoffjentry geoffjentry/gist:8226180

Last active Jan 2, 2016
Embed
What would you like to do?
Remove retweets
load("code2013.rda")
# Find/remove the tweets flagged as retweets
is_retweets = which(sapply(code2013, function(x) x$getIsRetweet()))
if (length(is_retweets) > 0) {
filtered_tweets = code2013[-is_retweets]
} else {
filtered_tweets = code2013
}
statuses = sapply(filtered_tweets, function(x) x$getText())
# Find and remove RT based retweets. This will be overeager but we're not losing many
# tweets anyways
manual_retweets = grep("[[:space:]]?rt", statuses)
if (length(manual_retweets) > 0) {
filtered_tweets = filtered_tweets[-manual_retweets]
statuses = statuses[-manual_retweets]
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.