Nothing
# Wrapper because from edition 3 'class' must be a scalar
expect_error_classes <- function(expr, class) {
err <- tryCatch(expr, error = function(e) e)
for (c in class) {
expect_s3_class(err, c)
}
}
cran_app <- function() {
app <- webfakes::new_app()
app$get(
list(
webfakes::new_regexp("/nosvn/R.check/(?<flavour>[-.a-zA-Z0-9_+]+)/(?<name>[-.a-zA-Z0-9_]+)$"),
webfakes::new_regexp("/web/checks/(?<name>[-.a-zA-Z0-9_+]+)$")
),
function(req, res) {
flavour <- req$params$flavour
if (is.null(flavour)) flavour <- ""
path <- testthat::test_path("fixtures", "checks", flavour, req$params$name)
if (file.exists(path)) {
res$send_file(path)
} else {
res$send_status(404)
}
}
)
app
}
replay <- function(frames, callback = NULL) {
callback <- callback %||% block_callback
time <- Sys.time()
timer <- function() time
cb <- callback(sys_time = timer)
for (frame in frames) {
cb(frame[[1]])
if (frame[[2]] > 0) {
time <- time + frame[[2]]
}
}
}
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.