Nothing
# Setup is executed when tests are run, but not when loadall is run
# 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)
# untar cubes
decompress_fixtures()
# use old style app. URLs for API to match existing fixtures
set_crunch_opts(
"old.crunch.api" = crunch:::get_crunch_opt("crunch.api"),
"crunch.api" = "https://app.crunch.io/api/"
)
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.