Nothing
context("file")
test_that("Empty Makefile includes only comment", {
makefile <- format(makefile())
expect_match(makefile, "^# .* do not edit.*$")
expect_equal(length(makefile), 1)
})
test_that("Printing works as expected", {
with_mock(
cat = function(x, sep) x,
makefile <- print(makefile()))
expect_match(makefile, "^# .* do not edit.*\n$")
expect_equal(length(makefile), 1)
})
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.