tests/testthat/test-check_pkg_docs.R

library("testthat")

test_that("check_pkg_docs works", {
    df <- check_pkg_docs("tools")
    expect_true(nrow(df) >= 40) # In 2024/06/27 `tools` had 50 functions , but let's test for 40 in case they remove some.
    expect_equal(colnames(df), c("class", "title", "description", "value", "format", "examples"))
})

Try the toscutil package in your browser

Any scripts or data that you put into this service are public.

toscutil documentation built on June 28, 2024, 5:06 p.m.