context("Futures and containers")
context("Futures")
test_that("We can install a package via futures", {
skip_on_cran()
# vm <- gce_vm(name = "test-container-nodelete",
# template = "r-base",
# auth_email = "TRAVIS_GCE_AUTH_FILE")
vm <- gce_vm("test-container-nodelete")
## install packages
worked <- gce_future_install_packages(vm, "rocker/r-base", cran_packages = "corpcor")
expect_true(worked)
})
context("Google Container Registry")
#
# ## this needs a container that can be saved quickly to avoid timeouts
test_that("Save docker containers", {
skip_on_cran()
vm <- gce_vm("test-container-nodelete")
## saves the running my-rstudio image that is named rstudio
## commits and saves it to container registry as travis-test-container
cons <- containers(vm)
worked <- gce_push_registry(vm,
save_name = "travis-test-container",
container_name = cons[[1]]$name,
wait = TRUE
)
expect_equal(worked, "gcr.io/mark-edmondson-gde/travis-test-container")
})
#
#
test_that("Load docker containers", {
skip_on_cran()
vm <- gce_vm("test-container-nodelete")
## loads and runs an rstudio template from my projects container registry
worked <- gce_pull_registry(vm,
container_name = "travis-test-container",
name = paste(sample(LETTERS, 15),collapse=""))
expect_s3_class(worked, "gce_instance")
gce_vm_stop("test-container-nodelete")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.