Nothing
# httptest ----------------------------------------------------------------
options(httptest.debug = FALSE)
test_http <- function(desc, code){
withr::local_package("httptest")
old_dir <- httptest::.mockPaths()[1]
on.exit(httptest::.mockPaths(old_dir))
httptest::.mockPaths("_api")
testthat::test_that(desc, {
suppressWarnings(tryCatch(
suppressMessages(httptest::with_mock_api(code)),
error = function(e) return(httptest::capture_requests(code))
))
})
}
pkg_name <- function() tryCatch(
pkgload::pkg_name(),
error = function(e) return(getPackageName(search()[max(which(search() %in% c(".GlobalEnv", "devtools_shims")))+1]))
)
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.