# Create a simple table with
# a column of numerical values
tbl <-
dplyr::tibble(a = c(4, 5, 7, 8))
# Validate that values in column
# `a` are always greater than 4
agent <-
create_agent(tbl = tbl) %>%
col_vals_gt(vars(a), value = 3) %>%
col_vals_lte(vars(a), value = 10) %>%
col_vals_increasing(vars(a)) %>%
interrogate()
# Determine if these column
# validations have all passed by
# using `all_passed()` (they do)
all_passed(agent = agent)
Run the code above in your browser using DataLab