source('sanitizeCovr.R')
test_that('offlineRule', {
r <- offlineRule(target='target.pdf', message='The Message', depends=c('dep1', 'dep2'))
expect_true(is.rule(r))
expect_equal(r$target, 'target.pdf')
expect_equal(r$pattern, 'target.pdf')
expect_equal(r$depends, c('dep1', 'dep2'))
expect_equal(r$clean, '$(RM) target.pdf')
expect_equal(r$task, 'all')
expect_equal(r$phony, FALSE)
expect_equal(sanitizeCovr(r$build),
c('$(R) -e \'{\' \\',
'-e \' stop(\"The Message\")\' \\',
'-e \'}\''))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.