library("testthat")
library("fireData")
test_that("Test path remapping", {
path = "abc./d}e"
expect_warning(path_check("abc./d}e"))
})
test_that("Test class to binary conversion", {
conversion = fireData:::classConversion(mtcars)
expect_equal(nchar(conversion$base64Set), 1646)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.