#' @rdname local_repo
#' @export
#'
local_repo_pull = function(repo_dir, verbose = FALSE) {
# TODO - add support for remotes when added to gert
require_gert()
arg_is_chr(repo_dir)
arg_is_lgl_scalar(verbose)
dir = repo_dir_helper(repo_dir)
res = purrr::map(
dir,
function(dir) {
withr::local_dir(dir)
res = purrr::safely(gert::git_pull)(
repo = dir, verbose = verbose
)
repo = fs::path_file(dir)
status_msg(
res,
"Pulled to local repo {.val {repo}}.",
"Failed to pull to local repo {.val {repo}}."
)
res
}
)
invisible(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.