Nothing
# Setup is executed when tests are run, but not when loadall is run
crunch::set_crunch_opts(crunch.api = "https://app.crunch.io/api/")
# find a file that is either in the package root or inst folders while testing
find_file <- function(file_name) {
pth <- system.file(file_name, package = "crunch")
if (nchar(pth)) {
return(pth)
}
## Else, look for it. hack for devtools::test / testthat::test_package
pths <- file.path(testthat::test_path("..", ".."), c("", "inst"), file_name)
return(pths[file.exists(pths)])
}
# Our "test package" common harness code
source(find_file("crunch-test.R"), local = TRUE)
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.