R/oauth_endpoint.R

Defines functions oauth_endpoint

oauth_endpoint <- function(request_url,authorize_url,access_url,...){
  lapply(as.list(match.call())[-1],function(x) stopifnot(is.character(x)))
  return(list(request   = request_url,
               authorize = authorize_url,
               access    = access_url,
               ...))
}
jeanmarielepioufle/sugaR documentation built on July 6, 2017, 8:28 a.m.