Nothing
expect_equiv <- function(object, expected, ...) {
attributes(object) <- NULL
attributes(expected) <- NULL
expect_equal(object, expected, ...)
}
tmpenv <- function(...) {
list2env(list(...), parent = emptyenv())
}
require_clustermq <- function() {
skip_if_not_installed("clustermq", minimum_version = "0.9.2")
skip_if(Sys.getenv("TAR_SKIP_CLUSTERMQ") != "", "skipping clustermq tests")
}
skip_cran <- function() {
skip_on_cran()
if (!identical(Sys.getenv("TAR_NOT_CRAN", unset = ""), "true")) {
skip("running on cran")
}
}
skip_torch <- function() {
skip_if_not_installed("torch")
tryCatch(
torch::torch_zeros(10),
error = function(e) skip("torch is not working.")
)
}
crew_test_sleep <- function() {
on_windows <- identical(tolower(Sys.info()[["sysname"]]), "windows")
on_cran <- !identical(Sys.getenv("NOT_CRAN"), "true")
on_ci <- isTRUE(as.logical(Sys.getenv("CI")))
if (on_windows || on_cran || on_ci) {
Sys.sleep(2.25)
}
}
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.