LocalCI <- R6Class(
"LocalCI",
inherit = CI,
public = list(
get_branch = function() {
# Suppress warnings that occur if not in a Git repo
suppressWarnings(system2("git", "rev-parse --abbrev-ref HEAD",
stdout = TRUE
))
},
get_tag = function() {
# Suppress warnings that occur if not in a Git repo
suppressWarnings(system2("git", "describe", stdout = TRUE))
},
is_tag = function() {
# Suppress warnings that occur if not in a Git repo
suppressWarnings(length(system2("git", c("tag", "--points-at", "HEAD"),
stdout = TRUE
)) > 0)
},
get_slug = function() {
# Suppress error that occurs if not in a Git repo
tryCatch(
{
remote <- gh::gh_tree_remote()
paste0(remote$username, "/", remote$repo)
},
error = function(e) {
return()
}
)
},
get_build_number = function() {
"local build"
},
get_build_url = function() {
NULL
},
get_commit = function() {
# Suppress error that occurs if not in a Git repo
tryCatch(git2r::revparse_single(revision = "HEAD")$sha, error = "")
},
can_push = function(name = "TIC_DEPLOY_KEY") {
TRUE
},
get_env = function(env) {
Sys.getenv(env)
},
is_env = function(env, value) {
self$get_env(env) == value
},
has_env = function(env) {
self$get_env(env) != ""
},
is_interactive = function() {
TRUE
}
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.