Nothing
test_that("markdown is off by default", {
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some `code` included. `More code.`"
)
})
test_that("turning on/off markdown globally", {
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some `code` included. `More code.`"
)
local_roxy_meta_set("markdown", TRUE)
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some \\code{code} included. \\verb{More code.}"
)
})
test_that("turning on/off markdown locally", {
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
#' @noMd
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some `code` included. `More code.`"
)
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
#' @md
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some \\code{code} included. \\verb{More code.}"
)
local_roxy_meta_set("markdown", TRUE)
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
#' @noMd
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some `code` included. `More code.`"
)
## on / on
out1 <- roc_proc_text(rd_roclet(), "
#' Title
#'
#' Description with some `code` included. `More code.`
#' @md
foo <- function() {}")[[1]]
expect_equal(
out1$get_value("description"),
"Description with some \\code{code} included. \\verb{More code.}"
)
})
test_that("warning for both @md and @noMd", {
block <- "
#' Title
#'
#' `code`
#' @md
#' @noMd
foo <- function() {}
"
expect_snapshot(out1 <- roc_proc_text(rd_roclet(), block))
expect_equal(out1[[1]]$get_value("description"), "`code`")
# No translation even if markdown on generally
local_markdown()
suppressWarnings(out2 <- roc_proc_text(rd_roclet(), block))
expect_equal(out2[[1]]$get_value("description"), "`code`")
})
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.