test_that("writePathsToFiles() works", {
f <- kwb.fakin:::writePathsToFiles
expect_error(f())
xall <- list(
c("a", "b", "c"),
c("d", "e", "f")
)
file <- tempfile(fileext = ".txt")
capture.output(f(xall, file = file))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.