tests/testthat/test-parseRd.R

test_that("parseRd", {
    db <- tools::Rd_db("base")
    rd <- db[["nrow.Rd"]]
    expect_s3_class(rd, "Rd")
    tags <- rdTags(rd)
    expect_true("examples" %in% tags)
    examples <- parseRd(rd, tag = "examples")
    expect_type(examples, "character")
})
mjsteinbaugh/devtools documentation built on Jan. 5, 2024, 11:09 a.m.