geoffjentry

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
}