# NOT RUN {
# Generate an informant object, add
# a snippet with `info_snippet()`
# and `snip_stats()` (giving us a
# method to get some summary stats for
# column `a`); define a location for
# the snippet result in `{ }` and
# then `incorporate()` the snippet
# into the info text
informant <-
create_informant(
read_fn = ~ small_table,
tbl_name = "small_table",
label = "An example."
) %>%
info_columns(
columns = "a",
`Stats` = "Stats (fivenum): {stats_a}."
) %>%
info_snippet(
snippet_name = "stats_a",
fn = snip_stats(column = "a")
) %>%
incorporate()
# We can print the `informant` object
# to see the information report
# }
Run the code above in your browser using DataLab