Nothing
# Clear out (& box_push()) ------------------------------------------------
context("Clear out")
test_that("Local directory is created", {
skip_if_no_token()
# Set up the local dir structure
# TODO: I think this writes to the working directory, which is a no-no
# we should write (and work) instead in the temp directory - IJL
boxr:::create_test_dir()
expect_true(any(grepl("test_dir", list.dirs(fs::path_temp()))))
})
# Make sure the remote directory in the test account is clear
test_that("Clear out the remote directory", {
skip_if_no_token()
options(boxr.verbose = FALSE)
# Tell boxr to sync the remote home directory with an empty local one
# (i.e. delete everything)
b <- box_push(0, fs::path_temp("test_dir/dir_12/dir_121/dir_1211"), delete = TRUE)
expect_length(box_ls(0), 0)
})
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.