test_that("setting options works", {
knitr::opts_chunk$restore()
expect_equal(knitr::opts_chunk$get("comment"), "##")
applied <- notebook_set_opts_chunk()
expect_equal(
knitr::opts_chunk$get("comment"),
applied[["comment"]]
)
knitr::opts_chunk$restore()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.