context("test-r.R")
test_that("r works", {
a <- r(install.packages("attempt", repo = "http://cran.irsn.fr/"))
expect_is(a, "glue")
expect_is(a, "character")
expect_match(a, 'install.packages')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.