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_isomorphic <- function(g1, g2) {
expect_true(graph.isomorphic(g1, g2))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.