# NOT RUN {
# Create a simple table with two
# columns of numerical values
tbl <-
dplyr::tibble(
a = c(5, 7, 6, 5, 8, 7),
b = c(7, 1, 0, 0, 0, 3)
)
# Validate that values in column
# `a` from `tbl` are always > 5,
# using `interrogate()` carries out
# the validation plan and completes
# the whole process
agent <-
create_agent(tbl = tbl) %>%
col_vals_gt(vars(a), value = 5) %>%
interrogate()
# }
Run the code above in your browser using DataLab