Nothing
context("test-errorHandler")
test_that("canGetHttrError", {
# hopefully no sel server running on 9999L
dumRD <- remoteDriver(port = 9999L)
expect_error(
dumRD$open(silent = TRUE),
"Undefined error in httr call. httr output: Failed to connect to localhost port 9999: Connection refused"
)
})
test_that("canCheckErrorDetails", {
# hopefully no sel server running on 9999L
dumRD <- remoteDriver(port = 9999L)
expect_identical(dumRD$errorDetails(), list())
expect_identical(dumRD$errorDetails("class"), NA_character_)
expect_identical(dumRD$errorDetails("status"), 0L)
})
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.