Nothing
#' @rdname finalize_version
#' @usage NULL
finalize_version_impl <- function(push, suggest_finalize = TRUE) {
#' @description
#' 1. [commit_version()]
force <- commit_version()
#' 1. [tag_version()], setting `force = TRUE` if and only if `commit_version()`
#' amended a commit.
tag <- tag_version(force)
#' 1. Force-pushes the created tag to the `"origin"` remote, if `push = TRUE`.
if (push) {
push_tag(tag, force = TRUE)
push_head()
} else if (suggest_finalize) {
edit_news()
if (has_remote_branch(gert::git_branch())) {
command <- "fledge::finalize_version(push = TRUE)"
} else {
command <- "fledge::finalize_version()"
}
if (fledge_chatty()) {
cli_alert_warning("Call {.code {command}}.")
}
send_to_console(command)
}
}
push_tag <- function(tag, force) {
if (fledge_chatty()) {
cli_alert("Force-pushing tag {.field {tag}}.")
}
gert::git_tag_push(tag, force = force)
}
push_head <- function() {
head <- gert::git_branch()
if (fledge_chatty()) {
cli_alert("Pushing {.field {head}}.")
}
gert::git_push()
}
has_remote_branch <- function(branch) {
branches <- gert::git_branch_list(local = TRUE)
!is.na(branches$upstream[branches$name == branch])
}
send_to_console <- function(code) {
if (!is_interactive()) {
return()
}
if (!is_installed("rstudioapi")) {
return()
}
if (!rstudioapi::hasFun("sendToConsole")) {
return()
}
tryCatch(
rstudioapi::sendToConsole(code, execute = FALSE),
error = function(e) {
rstudioapi::sendToConsole(paste0("if (FALSE) ", code), execute = TRUE)
}
)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.