rules <- ruleset(
rule(mpg > 10 & mpg < 30), # mpg goes up to 34
rule(cyl %in% c(4, 8)), # missing 6 cyl
rule(vs %in% c(0, 1), allow_na = TRUE)
)
res <- check_data(mtcars, rules)
filter_fails(res, mtcars)
filter_fails(res, mtcars, per_rule = TRUE)
# alternatively, the first argument can also be a ruleset
filter_fails(rules, mtcars)
filter_fails(rules, mtcars, per_rule = TRUE)
Run the code above in your browser using DataLab