Nothing
context("ssh-exec")
ssh <- ssh_connect('dev.opencpu.org')
test_that("Execute a command", {
out <- ssh_exec_internal(ssh, 'whoami')
expect_equal(out$status, 0)
expect_equal(sys::as_text(out$stdout), 'jeroen')
})
ssh_disconnect(ssh)
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.