inst/tinytest/test_gh_issue_151.R

rules_df <- data.frame( rule = c("height > 0", "weight > 0", "height < 1.5 * weight")
                      , name = c(1,1,2)
)

rules <- validator(.data = rules_df)
nms <- names(rules)
expect_equal(nms, unique(nms))

Try the validate package in your browser

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

validate documentation built on July 4, 2024, 9:07 a.m.