#' @name github_with_pat
#' @rdname github_with_pat
#'
#' @title `withr`-like functions for temporary personal access token
#'
#' @description
#' Temporarily change the `GITHUB_PAT` environmental variable for
#' GitHub authentication. Based on the `withr` interface.
#'
#' @param new Temporary GitHub access token
#' @param code Code to execute with the temporary token
#' @param .local_envir The environment to use for scoping.
#'
#' @details if `new = NA` is used the `GITHUB_PAT` environment variable will be unset.
#'
#' @return The results of the evaluation of the code argument.
#'
#' @examples
#' \dontrun{
#' with_pat("1234", print(github_get_token()))
#' }
#'
NULL
#' @rdname github_with_pat
#' @export
#'
with_pat = function(new, code) {
arg_is_chr_scalar(new)
names(new) = "GITHUB_PAT"
withr::with_envvar(
new = new,
code = code,
action = "replace"
)
}
#' @rdname github_with_pat
#' @export
#'
local_pat = function(new, .local_envir = parent.frame()) {
arg_is_chr_scalar(new)
names(new) = "GITHUB_PAT"
withr::local_envvar(
new = new,
action = "replace",
.local_envir = .local_envir
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.