R/utils-context.R

In edgararuiz/ecodown: Publish package documents in Quarto

ecodown_context <- new.env(parent = emptyenv())

ecodown_context_set <- function(id, vals = list()) {
  ecodown_context[[id]] <- vals
}

ecodown_context_get <- function(id) {
  if (id == "") {
    return(NULL)
  }
  ecodown_context[[id]]
}

get_verbosity <- function() {
  x <- ecodown_context_get("verbosity")
  if (is.null(x)) x <- "verbose"
  x[[1]]
}

set_verbosity <- function(x) {
  ecodown_context_set("verbosity", x[[1]])  
  invisible()
}

is_summary <- function() {
  get_verbosity() == "summary"
}

get_clone_header <- function() {
  x <- ecodown_context_get("clone_header")
  if (is.null(x)) x <- 0
  x[[1]]
}

clone_header <- function() {
  get_clone_header() == 0
}

set_clone_header <- function(x = 1) {
  ecodown_context_set("clone_header", x)
}

get_package_header <- function() {
  x <- ecodown_context_get("package_header")
  if (is.null(x)) x <- 0
  x[[1]]
}

package_header <- function() {
  get_package_header() == 0
}

set_package_header <- function(x = 1) {
  ecodown_context_set("package_header", x)
}

set_package_name <- function(x) {
  ecodown_context_set("package_name", x)
}

get_package_name <- function() {
  ecodown_context_get("package_name")
}