R/utils.R

Defines functions as_validation

as_validation <- function(x){
  assert_that(is.list(x) || is.logical(x)) 

  chk <- unlist(x)
  res <- all(chk)
  attr(res, "errors") <- names(chk)[-which(chk)]
  res
}
s-fleck/isit documentation built on Aug. 20, 2019, 8:39 a.m.