Nothing
getRefresh <-
function(client_id=Sys.getenv('GAR_CLIENT_ID'), client_secret=Sys.getenv('GAR_CLIENT_SECRET'), code=code){
###POST TO GET REFRESH TOKEN
rToken <- POST(
"https://accounts.google.com/o/oauth2/token",
body = list(
"code"=code,
"client_id"=client_id,
"client_secret"=client_secret,
"redirect_uri"="http://localhost",
"grant_type"="authorization_code"
),
add_headers('Host'='accounts.google.com'),
encode='form'
)
##PARSE REFRESH TOKEN RESPONSE
rToken <- content(rToken)
rToken <- rToken$refresh_token
return(rToken)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.