context("Tag: @alias")
# test_that("aliases escaped, not quoted", {
# out1 <- test_process("
# #' @aliases a
# #' @name %a%
# NULL")
# out2 <- test_process("
# #' @aliases %a%
# #' @name a
# NULL")
# alias1 <- format(get_tag(out1, "alias"))
# alias2 <- format(get_tag(out2, "alias"))
# expect_equal(alias1, c("\\alias{\\%a\\%}\n", "\\alias{a}\n"))
# expect_equal(alias2, c("\\alias{\\%a\\%}\n", "\\alias{a}\n"))
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.