R/failwith.r

In YTLogos/dplyr: A Grammar of Data Manipulation

#' Fail with specified value.
#'
#' Deprecated. Please use [purrr::possibly()] instead.
#'
#' @param default default value
#' @param f function
#' @param quiet all error messages be suppressed?
#' @return a function
#' @seealso [plyr::try_default()]
#' @keywords internal
#' @export
failwith <- function(default = NULL, f, quiet = FALSE) {
  warn("Deprecated: please use `purrr::possibly()` instead")

  function(...) {
    out <- default
    try(out <- f(...), silent = quiet)
    out
  }
}