# Copyright 2018 Opening Reproducible Research (https://o2r.info)
context("Included Dockerfiles")
test_that("minimal Dockerfile can be built and run", {
skip_if_not(stevedore::docker_available())
client <- stevedore::docker_client()
output <- capture_output({
image <- client$image$build(context = "../../inst/docker/minimal", tag = "cntnrt-min")
res <- client$container$run(image = "cntnrt-min",
cmd = c("R", "-e", "library(containerit); print(dockerfile())"),
rm = TRUE)
})
expect_match(toString(res$logs), "R is free software")
expect_match(toString(res$logs), "Trying to determine system requirements")
expect_match(toString(res$logs), "FROM rocker/r-ver")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.