R/has_failed.R

has_failed <- 
function(x, 
         n)
{
  b <- !x
  if (length(x)==1L && identical(which(b), 1L)) {
    rep(TRUE, n)
  } else {
    b
  }
}
paulponcet/observer documentation built on May 24, 2019, 10:32 p.m.