Nothing
test_that("exporting a call to :: produces re-exports documentation", {
block <- "
#' @export
testthat::auto_test
"
out <- roc_proc_text(rd_roclet(), block)[[1]]
expect_equal(
out$get_section("reexport"),
rd_section_reexport("testthat", "auto_test", "auto_test")
)
expect_equal(out$get_value("title"), "Objects exported from other packages")
expect_equal(out$get_value("keyword"), "internal")
expect_snapshot_output(cat(format(out)))
# And generates correct namespace definitions
out <- roc_proc_text(namespace_roclet(), block)
expect_equal(out, c("export(auto_test)", "importFrom(testthat,auto_test)"))
})
test_that("multiple re-exports are combined", {
out <- roc_proc_text(rd_roclet(), "
#' @export
testthat::expect_lt
#' @export
testthat::expect_gt
")[[1]]
expect_equal(
out$get_section("reexport"),
rd_section_reexport(
c("testthat", "testthat"),
c("expect_lt", "expect_gt"),
c("comparison-expectations", "comparison-expectations")
)
)
})
test_that("description generated correctly", {
roc <- rd_roclet()
out <- roc_proc_text(rd_roclet(), "
#' @importFrom magrittr %>%
#' @export
magrittr::`%>%`
")[[1]]
expect_null(out$get_section("description"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.