R/pin_exists.R

In pins: Pin, Discover and Share Resources

Defines functions check_pin_exists pin_exists

Documented in pin_exists

#' Determine if a pin exists
#'
#' @inheritParams pin_read
#' @export
pin_exists <- function(board, name, ...) {
  ellipsis::check_dots_used()
  UseMethod("pin_exists")
}

check_pin_exists <- function(board, name, call = caller_env()) {
  if (pin_exists(board, name)) {
    invisible()
  } else {
    abort_pin_missing(name, call = call)
  }
}

Try the pins package in your browser