Nothing
context("tunnel_methods_tests")
SLAccount <- account()
test_that("canGetTunnels", {
tunnels <- getTunnels(SLAccount, "seleniumPipes")
expect_true(inherits(tunnels, "list"))
})
test_that("canGetTunnel", {
tunnels <- getTunnels(SLAccount, "seleniumPipes")
if(length(tunnels) > 0){
tunnel <- getTunnel(SLAccount, "seleniumPipes", tunnelID = tunnels[[1]])
expect_true(inherits(tunnel, "list"))
}
})
test_that("canDeleteTunnel", {
tunnels <- getTunnels(SLAccount, "seleniumPipes")
if(length(tunnels) > 0){
res <- deleteTunnel(SLAccount, "seleniumPipes", tunnelID = tunnels[[1]])
expect_true(res$result)
}
}
)
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.