#' etsy.access_token
#'
#' @description Get an etsy oauth1.0 access token
#' @param permissionScopes Character vector. Etsy permission scopes to request. Note that one token can have multiple permission scopes.
#' @param ... Additional parameters passed on to oauth1.0_token
#'
#' @return Oauth1.0 access token
#' @import httr
#' @export
#'
#' @examples
#' token_listing_w <- etsy.access_token("listings_w")
#'
etsy.access_token <- function(permissionScopes, ...){
assert_that(!is.null(permissionScopes) & is.character(permissionScopes))
request_url <- function(base_url) {
paste0(permissionScopes, collapse = " ") %>%
sprintf(paste0(base_url, "/oauth/request_token?scope=%s"), .) %>%
encodeURI
}
# TODO wrap in try cath or handle httr/etsy errors
with(etsy,
oauth1.0_token(
endpoint = oauth_endpoint(request = request_url(base_url),
authorize = oauthEndpoint$authorize,
access = oauthEndpoint$access),
app = oauth_app("etsy", key = api_key, secret = shared_secret),
...
)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.