## Not run:
# # List of twitter accounts
# users <- c('MarsRovers', 'senatormenendez', 'sciencemagazine')
#
# # Getting the twitts (first gen the token)
# key <- tw_gen_token('myapp','key', 'secret')
# tweets <- lapply(users, tw_api_get_statuses_user_timeline, twitter_token=key)
#
# # Processing the data (and taking a look)
# tweets <- do.call(rbind, tweets)
# head(tweets)
# ## End(Not run)
Run the code above in your browser using DataLab