Description Usage Arguments Details Value Examples
View source: R/googleAuthR_generator.R
This function generates other functions for use with Google APIs
1 2 3 4 5 |
baseURI |
The stem of the API call. |
http_header |
Type of http request. |
path_args |
A named list with name=folder in request URI, value=the function variable. |
pars_args |
A named list with name=parameter in request URI, value=the function variable. |
data_parse_function |
A function that takes a request response, parses it and returns the data you need. |
customConfig |
list of httr options such as use_proxy or add_headers that will be added to the request. |
simplifyVector |
Passed to fromJSON for response parsing |
checkTrailingSlash |
Default TRUE will append a trailing slash to baseURI if missing |
path_args and pars_args add default values to the baseURI. NULL entries are removed. Use "" if you want an empty argument.
You don't need to supply access_token for OAuth2 requests in pars_args, this is dealt with in gar_auth()
Add custom configurations to the request in this syntax:
customConfig = list(httr::add_headers("From" = "mark@example.com")
A function that can fetch the Google API data you specify
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ## Not run:
library(googleAuthR)
## change the native googleAuthR scopes to the one needed.
options("googleAuthR.scopes.selected" =
c("https://www.googleapis.com/auth/urlshortener"))
shorten_url <- function(url){
body = list(
longUrl = url
)
f <- gar_api_generator("https://www.googleapis.com/urlshortener/v1/url",
"POST",
data_parse_function = function(x) x$id)
f(the_body = body)
}
To use the above functions:
library(googleAuthR)
# go through authentication flow
gar_auth()
s <- shorten_url("http://markedmondson.me")
s
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.