Nothing
context("droplet_create")
test_that("create and delete droplet works", {
skip_on_cran()
# skip_on_ci()
# check regions and hardware before passing arguments to droplet_create()
# r <- regions()
# r2 <- r$slug[1]
# s <- sizes()
# s2 <- grep(r2, s$region)
# s2 <- s[s2, ]
# s2 <- s2$slug[1]
# using CPU optimized 4GB RAM droplet for faster testing
r <- "tor1"
s <- "c2-4vcpu-8gb"
img <- "ubuntu-20-04-x64"
n <- paste("rstudio-test", gsub(":", "", gsub(".* ", "", Sys.time())), sep = "-")
x <- droplet_create(n, region = r, size = s, image = img, wait = T)
Sys.sleep(15)
expect_gte(x$id, 0)
expect_equal(x$name, n)
expect_false(x$locked)
expect_equal(x$status, "active")
expect_is(x$features, "list")
expect_is(x$region, "list")
expect_equal(x$region$slug, r)
expect_true(x$region$available)
expect_silent(droplet_delete(x))
})
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.