# NOT RUN {
# Create a pointblank `informant`
# object with `create_informant()`;
# we specify a `read_fn` with the
# `~` followed by a statement that
# gets the `small_table` dataset
informant <-
create_informant(
read_fn = ~ small_table,
tbl_name = "small_table",
label = "An example."
)
# We can add *info text* to describe
# the table with `info_tabular()`
informant <-
informant %>%
info_tabular(
`Row Definition` = "A row has randomized values.",
Source = c(
"- From the **pointblank** package.",
"- [https://rich-iannone.github.io/pointblank/]()"
)
)
# Upon printing the `informant` object, we see
# the additions made to the 'Table' section
if (interactive()) {
# The `informant` object can be written to
# a YAML file with the `yaml_write()`
# function; then information can
# be directly edited or modified
yaml_write(
informant = informant,
filename = "informant.yml"
)
# The YAML file can then be read back
# into an informant object with the
# `yaml_read_informant()` function
informant <-
yaml_read_informant(
filename = "informant.yml"
)
}
# }
Run the code above in your browser using DataLab