context("Rd: slot")
test_that("@slot creates a new section and lists slots", {
out <- roc_proc_text(rd_roclet(), "
#' Important class.
#'
#' @slot a slot a
#' @slot b slot b
setClass('test')
")[[1]]
expect_equal(get_tag(out, "slot")$values, c(a = "slot a", b = "slot b"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.