Nothing
skip_if_no_glpk <- function() {
if (!has_glpk()) skip("No GLPK library")
}
skip_if_no_graphml <- function() {
if (!has_graphml()) skip("No GraphML support")
}
with_rng_version <- function(version, expr) {
orig <- RNGkind()
on.exit(do.call(RNGkind, as.list(orig)), add = TRUE)
suppressWarnings(RNGversion(version))
expr
}
local_rng_version <- function(version, .local_envir = parent.frame()) {
orig <- RNGkind()
withr::defer(do.call(RNGkind, as.list(orig)), envir = .local_envir)
suppressWarnings(RNGversion(version))
orig
}
expect_that <- function(object, condition, info = NULL, label = NULL) {
suppressWarnings(
condition(object)
)
}
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.