context("test-pathsanitize")
a <- sanitize("73r78y23i . ?f/.4_____f04!!23{}:>\"_++_")
test_that("path_sanitize works", {
testthat::expect_identical(a, "73r78y23i_f_4_f04!!23{}_++_")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.