R/twitS1.R

In Tom-Laetsch/Rtwit:

#' Request Twitter User Timeline Once
#' 
#' Make a single request to extract tweets with query specifications.
#' @param twitter_token Your twitter_token; e.g. from twitToken() function.
#' @param query A user_timeline query; e.g. from twitUTQuery() function.
#' @export
#' @examples
#' twitter_token <- twitToken(consumer_key, consumer_secret, access_token, access_secret)
#' query <- twitSQuery(screen_name = 'thomas_laetsch')
#' user.data <- twitS1(twitter_token, query)
#' user.json.data <- httr::content(user.data)
twitS1 <- function(twitter_token, query){
    require(httr)
    url <- "https://api.twitter.com/1.1/search/tweets.json"
    url.data <- httr::GET(url, query = query, httr::config(token = twitter_token))
    return(url.data)
}