Nothing
test_that('testing shift_array correctness', {
# Make sure the temporary folders are cleared
lapply(c("data", "cache", "config"), function(which) {
root_path <- dipsaus:::R_user_dir("dipsaus", which = which)
dipsaus:::remove_empty_dir(root_path, recursive = TRUE)
sub_dirs <- list.dirs(root_path, full.names = TRUE, recursive = TRUE)
for(dir in sub_dirs) {
expr <- bquote(testthat::expect_gt(
length(list.files(.(dir))), 0
))
eval(expr)
}
})
})
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.