Nothing
test_that("request_registry: structure", {
request_registry_clear()
expect_type(request_registry, "closure")
expect_s3_class(request_registry(), "RequestRegistry")
enable(quiet = TRUE)
stub_request("get", hb("/get")) %>%
to_return(body = "success!", status = 200)
invisible(
crul::HttpClient$new(url = hb())$get("get")
)
disable(quiet = TRUE)
x <- request_registry()
expect_s3_class(x, "RequestRegistry")
expect_type(x$clone, "closure")
expect_type(x$print, "closure")
expect_type(x$register_request, "closure")
expect_null(x$request)
expect_s3_class(x$request_signatures, "HashCounter")
expect_type(x$reset, "closure")
expect_type(x$request_signatures$hash, "list")
expect_match(names(x$request_signatures$hash), "GET")
expect_type(x$request_signatures$hash[[1]]$count, "double")
})
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.