library(testthat)
#test_that("ltx_environment issues a deprecation warning", {
# table_code <- c("\\begin{tabular}", "\\centering", "\\begin{tabular}{cc}", "A & B \\\\", "1 & 2 \\\\", "\\end{tabular}", "\\end{table}")
#
# expect_warning(ltx_environment(table_code, print_tbl = FALSE),
# "The `ltx_environment()` function is deprecated and will be removed in future versions.")
#})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.