R/helpers.R

In subugoe/AzureAppService: Deploy applications to Azure App Service

# TODO factor out to ghactions https://github.com/subugoe/AzureAppService/issues/20
#' Get the URL to GitHub Actions for a local repo.
#'
#' @inheritParams gh::gh_tree_remote
#'
#' @keywords internal
#'
#' @export
get_ghactions_url <- function(path = ".") {
  path <- "."
  slug <- gh::gh_tree_remote(path = path)
  res <- httr::parse_url("https://github.com")
  # TODO this probably already exists somewhere ...
  res$path <- do.call(paste, c(slug, "actions", sep = "/"))
  httr::build_url(res)
}

#' Determine if code is running inside GitHub Actions
#'
#' Looks for the `GITHUB_ACTIONS` environment variable, as [documented](https://docs.github.com/en/actions/configuring-and-managing-workflows/using-environment-variables)
#'
#' @keywords internal
#'
#' @export
# duplicate from muggle, but better than importing all of muggle
is_github_actions <- function() {
  Sys.getenv("GITHUB_ACTIONS") == "true"
}