Hi Ross,
# minimum example for R
install.packages("httr")
install.packages("base64enc")
library("httr")
library("base64enc")
appname <- ",,,"
key <- "..."
secret <- "..."
# base64 encoding
kands <- paste(key, secret, sep=":")
base64kands <- base64encode(charToRaw(kands))
base64kandsb <- paste("Basic", base64kands, sep=" ")
# request bearer token
resToken <- POST(url = "https://api.twitter.com/oauth2/token",
add_headers("Authorization" = base64kandsb, "Content-Type" = "application/x-www-form-urlencoded;charset=UTF-8"),
body = "grant_type=client_credentials")
# get bearer token
bearer <- content(res)
bearerToken <- bearer[["access_token"]]
bearerTokenb <- paste("Bearer", bearerToken, sep=" ")
# get example from full archive
resTweets <- POST(url = "https://api.twitter.com/1.1/tweets/search/fullarchive/LIVE.json",
add_headers("authorization" = bearerTokenb, "content-Type" = "application/json"),
body = "{\"query\": \"andypiper has:images\",\"maxResults\": 20}")
tweets <- content(resTweets)