Skip to content

Instantly share code, notes, and snippets.

@geoffjentry

geoffjentry/gist:8226180

Last active Mar 2, 2021
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]
}
@Nikunj-Goyal

This comment has been minimized.

Copy link

@Nikunj-Goyal Nikunj-Goyal commented Mar 2, 2021

this is no longer work. can u make a new version? i need this

https://gist.github.com/FocusWho/5a8e74895293eae0071cec612477c72f

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment