R/has_failed.R

Defines functions has_failed

has_failed <- 
function(x, 
         n)
{
  b <- !x
  if (length(x)==1L && identical(which(b), 1L)) {
    rep(TRUE, n)
  } else {
    b
  }
}

Try the observer package in your browser

Any scripts or data that you put into this service are public.

observer documentation built on May 1, 2019, 8:04 p.m.