test_that("substitutions work as intended", {
x <- "aes as es ees c' c4 d, d2 a3 a ees,desdes'"
y <- "a_ a_ e_ e_ c' c4 d, d2 a3 a e_,d_d_'"
expect_equal(.noterev(x), y)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.