# NOT RUN {
# Create a series of three validation
# steps focus on test row values for
# the `small_table` tibble object;
# `interrogate()` immediately
agent <-
create_agent(tbl = small_table) %>%
col_vals_gt(vars(d), value = 100) %>%
col_vals_equal(
vars(d), value = vars(d),
na_pass = TRUE
) %>%
col_vals_between(
vars(c), left = vars(a), right = vars(d),
na_pass = TRUE
) %>%
interrogate()
# Get the sundered data piece that
# contains only rows that passed all
# validation steps (the default piece)
agent %>% get_sundered_data()
# }
Run the code above in your browser using DataLab