R/db_search.R

In twitteR: R Based Twitter Client

search_twitter_and_store = function(searchString, table_name="tweets", lang=NULL, 
                                    locale=NULL, geocode=NULL, retryOnRateLimit=120, ...) {
  if (table_exists(table_name)) {
    since_id = get_latest_tweet_id(table_name)
  } else {
    since_id = NULL
  }
  
  new_tweets = suppressWarnings(searchTwitter(searchString, n=5000, sinceID=since_id, lang=lang, 
                                              locale=locale, retryOnRateLimit=retryOnRateLimit, ...))
  if (length(new_tweets) > 0) {
    store_tweets_db(new_tweets, table_name)
  }
  
  length(new_tweets)
}