# NOT RUN {
# Create an agent that has the
# `small_table` object as the
# target table, add a few
# validation steps, and then use
# `interrogate()`
agent_1 <-
create_agent(
read_fn = ~ small_table,
tbl_name = "small_table",
label = "An example."
) %>%
col_exists(vars(date)) %>%
col_vals_regex(
vars(b), regex = "[0-9]-[a-z]{3}-[0-9]"
) %>%
interrogate()
# The second validation step has
# is being reconsidered and may
# be either phased out or improved
# upon; in the interim period it
# was decided that the step should
# be deactivated for now
agent_2 <-
agent_1 %>%
deactivate_steps(i = 2) %>%
interrogate()
# }
Run the code above in your browser using DataLab