Nothing
rand_str <- function(n = 16L, hex = TRUE) {
if (hex) {
paste(sample(as.raw(0:255), n, replace = TRUE), collapse = "")
} else {
rawToChar(sample(as.raw(32:126), n, replace = TRUE))
}
}
skip_long_test <- function() {
if (identical(Sys.getenv("STORR_RUN_LONG_TESTS"), "true")) {
return(invisible(TRUE))
}
testthat::skip("Skipping long running test")
}
copy_to_tmp <- function(src) {
path <- tempfile()
dir.create(path)
file.copy(src, path, recursive = TRUE)
file.path(path, src)
}
has_postgres <- function() {
!is.null(tryCatch(DBI::dbConnect(RPostgres::Postgres()),
error = function(e) NULL))
}
skip_if_no_postgres <- function() {
testthat::skip_on_cran()
testthat::skip_if_not_installed("RPostgres")
if (!has_postgres()) {
testthat::skip("Can't make postgres connection")
}
}
skip_if_interactive <- function() {
if (interactive()) {
testthat::skip("Running interactively")
}
}
with_options <- function(opts, code) {
oo <- options(opts)
on.exit(options(oo))
force(code)
}
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.