Nothing
test_that("cloud accounts create cloud clients", {
account <- list(server = "posit.cloud")
client <- clientForAccount(account)
expect_equal(client$service(), "posit.cloud")
})
test_that("shinyapps accounts create shinyapps clients", {
account <- list(server = "shinyapps.io")
client <- clientForAccount(account)
expect_equal(client$service(), "shinyapps.io")
})
test_that("connect accounts create connect clients", {
local_temp_config()
addTestServer("example.com")
account <- list(server = "example.com")
client <- clientForAccount(account)
expect_equal(client$service(), "connect")
})
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.