testthat::context("as.character")
testthat::test_that("as.character", {
testthat::expect_equal(
as.character(rsync(dest = "rsync://test", src = "/", password = "1234")),
c(dest = "rsync://test", src = "/", password = "****", ssh = "NULL", sshProg = "NULL")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.