context("Function eval_glue")
test_that("eval_glue works", {
rm(list = ls())
AA <- "nn"
eval_glue("{AA} <- 3")
expect_equal(nn, 3)
expect_equal(AA, "nn")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.