# NOT RUN {
library(dplyr)
# Create a simple table with a
# column of numerical values
tbl <- tibble(a = c(5, 7, 8, 7))
# Create a pointblank `agent` object
agent <- create_agent(tbl = tbl)
# Then, as with any `ptblank_agent`
# object, we can add validation steps
# to the validation plan and then
# eventually use `interrogate()`
# to perform the validations; here,
# with a single validation step, we
# expect that values in column `a`
# are always greater than 4
agent <-
agent %>%
col_vals_gt(vars(a), 4) %>%
interrogate()
# Get a tibble-based report from the
# agent by using `get_agent_report()`
agent %>%
get_agent_report(display_table = FALSE)
# }
Run the code above in your browser using DataLab