if (auth_has_default()) {
# find users from tweets
tweets <- search_tweets("r")
users_data(tweets)
full_search <- cbind(tweets, users_data(tweets))
# from tweets from users
users <- search_users("r")
tweets_data(users)
full_users <- cbind(users, tweets_data(users))
}
Run the code above in your browser using DataLab