# NOT RUN {
# For all of the examples here, we'll
# use a simple table with three numeric
# columns (`a`, `b`, and `c`) and three
# character columns (`d`, `e`, and `f`)
tbl <-
dplyr::tibble(
a = c(5, 5, 5, 5, 5, 5),
b = c(1, 1, 1, 2, 2, 2),
c = c(1, 1, 1, 2, 3, 4),
d = LETTERS[a],
e = LETTERS[b],
f = LETTERS[c]
)
tbl
# A: Using an `agent` with validation
# functions and then `interrogate()`
# Validate that values in column `a`
# are all greater than the value of `4`
agent <-
create_agent(tbl) %>%
col_vals_gt(vars(a), value = 4) %>%
interrogate()
# Determine if this validation
# had no failing test units (there
# are 6 test units, one for each row)
all_passed(agent)
# Calling `agent` in the console
# prints the agent's report; but we
# can get a `gt_tbl` object directly
# with `get_agent_report(agent)`
# B: Using the validation function
# directly on the data (no `agent`)
# This way of using validation functions
# acts as a data filter: data is passed
# through but should `stop()` if there
# is a single test unit failing; the
# behavior of side effects can be
# customized with the `actions` option
tbl %>%
col_vals_gt(vars(a), value = 4) %>%
dplyr::pull(a)
# C: Using the expectation function
# With the `expect_*()` form, we would
# typically perform one validation at a
# time; this is primarily used in
# testthat tests
expect_col_vals_gt(
tbl, vars(a),
value = 4
)
# D: Using the test function
# With the `test_*()` form, we should
# get a single logical value returned
# to us
test_col_vals_gt(
tbl, vars(a),
value = 4
)
# }
Run the code above in your browser using DataLab