tests/testthat/test_documentation.R

test_that("solution_format_documentation", {
  r <- solution_format_documentation("solution")
  expect_inherits(r, "character")
  expect_length(r, 1)
  expect_true(all(!is.na(r)))
  expect_true(grepl("`solution`", r, fixed = TRUE))
})

Try the prioritizr package in your browser

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

prioritizr documentation built on Aug. 9, 2023, 1:06 a.m.