#'@title check auth token and prompt for refresh if needed
#'@param updateIfStale should \code{\link{authenticateUser}}
#'be called if token is stale?
#'@param ... additional arguments passed to \code{\link{authenticateUser}}
#'@return boolean for auth token state
#'@seealso \code{\link{authenticateUser}}
#'@keywords internal
checkAuth <- function(updateIfStale = TRUE, ...){
if (is.null(pkg.env$authToken)){
authenticateUser(...)
}
resp <- GET(pkg.env$auth_check, add_headers('Authorization' = getAuth()))
if (resp$status_code == 200){
return(TRUE)
} else {
if (updateIfStale){
authenticateUser(...)
return(TRUE)
}
return(FALSE)
}
}
#'@title get auth header
#'@return NULL if no auth token is set, otherwise auth header as string
#'@keywords internal
getAuth <- function(){
if (is.null(pkg.env$authToken)){
return(NULL)
} else {
return(paste('Bearer', pkg.env$authToken))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.