inst/tinytest/test_unique.R

data("retailers", package="validate")

v <- suggest_unique_check(retailers)
expect_equal(length(v), 0)


data("SBS2000", package="validate")
v <- suggest_unique_check(SBS2000)
expect_equal(v[[1]]@expr, quote(all_unique(id)))

Try the validatesuggest package in your browser

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

validatesuggest documentation built on Oct. 6, 2023, 5:09 p.m.