R/disclose.R

In shunsambongi/himitsu: Read and Write Secrets

#' @export
disclose <- function(x, ...) {
  UseMethod("disclose")
}

#' @export
disclose.default <- function(x, ...) x

#' @export
disclose.himitsu_secret <- function(x, ...) {
  vec_data(x)
}

#' @export
allow_disclosure <- function(expr) {
  old <- options("himitsu.allow_disclosure" = TRUE)
  on.exit(do.call(options, old), add = TRUE)
  force(expr)
}

#' @export
can_disclose <- function() {
  isTRUE(getOption("himitsu.allow_disclosure", FALSE))
}