Nothing
tests.home <- getwd()
setwd(tempdir())
test_that("blankWorkspace deploys necessary files", {
expect_error(blankWorkspace(), "Please specify a target directory.", fixed = TRUE)
blankWorkspace("actel_workspace", force = TRUE)
expect_true(dir.exists("actel_workspace"))
expect_true(file.exists("actel_workspace/spatial.csv"))
expect_true(file.exists("actel_workspace/biometrics.csv"))
expect_true(file.exists("actel_workspace/deployments.csv"))
expect_true(file.exists("actel_workspace/spatial.csv"))
expect_true(dir.exists("actel_workspace/detections"))
expect_error(blankWorkspace("actel_workspace"),
"The specified directory already exists! Stopping to avoid accidental data loss. To continue regardless, run again with force = TRUE.", fixed = TRUE)
expect_warning(blankWorkspace("actel_workspace", force = TRUE),
"The specified directory already exists, but force = TRUE. Deploying template files. Data loss may occur.", fixed = TRUE)
unlink("actel_workspace", recursive = TRUE)
})
setwd(tests.home)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.