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