tests/testthat/test_auditDocumentationFiles.R

context("auditDocumentationFiles")

f <- findFilesInPackage('generateEnumeration.Rd', 'wyz.code.rdoc')
o <- auditDocumentationFiles(dirname(f))

test_that("auditDocumentationFiles", {
  expect_length(o, 2L)
  expect_true(is.list(o))
  expect_equal(names(o), c('correct', 'incorrect'))
})

Try the wyz.code.rdoc package in your browser

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

wyz.code.rdoc documentation built on Oct. 6, 2021, 9:07 a.m.