google auth token code request

google_auth_token_request

code <- "paste your code from the last step here"
token.curl.request <- paste0('curl -k --header "Content-Type: application/x-www-form-urlencoded" --data "code=',
                             code, '&client_id=', client_id, '&client_secret=',
                             client_secret, '&redirect_uri=', redirect_uri,
                             '&grant_type=authorization_code',
                             '" https://accounts.google.com/o/oauth2/token')
token <- system(token.curl.request, intern=T)
token_code <- fromJSON(paste(token, collapse=""))$access_token