R/test.R

In jtlandis/SOExample:

Defines functions docheck.foo docheck.default docheck fun_success fun_failure foo

#' @export
foo <- function() structure(NA, class = "foo")

#' @export
fun_failure <- function(x){
  lapply(list(x), docheck)
}

#' @export
fun_success <- function(x){
  docheck(x)
}

docheck <- function(x) UseMethod('docheck')
docheck.default <- function(x) F
docheck.foo <- function(x) T