# Start by running `audit()`:
out_grim <- audit(grim_map(pigs1))
out_debit <- audit(debit_map(pigs3))
out_grim
out_debit
# Documenting the `audit()` method for `grim_map()`:
write_doc_audit(sample_output = out_grim, name_test = "GRIM")
# Documenting the `audit()` method for `debit_map()`:
write_doc_audit(sample_output = out_debit, name_test = "DEBIT")
Run the code above in your browser using DataLab