Make sitrep reporting more obvious on GitHub about pkgdown

[hadley]

is_GH <- function() {
  Sys.getenv("GITHUB_ACTIONS") != ""
}

gh_warning <- function(pkg, path, message, envir = caller_env()) {
  gh_message("warning", pkg, path, message, envir = envir)
}
gh_error <- function(pkg, path, message, envir = caller_env()) {
  gh_message("error", pkg, path, message, envir = envir)
}
gh_message <- function(type, pkg, path, message, envir = caller_env()) {
  if (!is_GH() && is.null(path)) {
    return()
  }

  message <- purrr::map_chr(message, cli::format_inline, .envir = envir)

  title <- message[[1]]
  message <- paste0(message[-1], collapse = "%0A")
  cli::cli_inform("::{type} file={path},title={title}::{oneline}")
}

abort_problem <- function(pkg,
                          path,
                          message,
                          envir = caller_env(),
                          call = caller_env()) {
  gh_error(pkg, path, message, envir = envir)
  cli::cli_abort(message, .envir = envir, call = call)
}

[hadley]

Also should flag missing favicons