Displaying 1 result from an estimated 1 matches for "do_exclude_tests".
2013 Aug 09
1
a fast table() for the 1D case
...!= 0L)) {
target_names <- target_names[-exclude_idx]
target_data <- target_data[-exclude_idx]
}
}
target <- .make_target(target_names, target_data)
.check_identical(target, current, varname, extra_args)
}
.do_exclude_tests <- function(x, varname, target_names0, target_data0,
more_excludes=NULL)
{
.BASIC_EXCLUDES <- list(c(NA, NaN), NULL, numeric(0), NA, NaN)
excludes <- c(.BASIC_EXCLUDES, more_excludes)
for (exclude in excludes)...