test_that("collect_run_ndr works", {
unlink("workspace_temp", recursive = TRUE)
collect_run_ndr(ndr_testdata_args(), symlink = FALSE)
# dir("workspace_temp")
testthat::expect_gt(length(dir("workspace_temp")), 8)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.