test_that('single target rule', {
r <- rule('target', c('dep1', 'dep2'), 'buildCmd', 'cleanCmd')
expect_true(is.rule(r))
expect_equal(r$target, 'target')
expect_equal(r$pattern, 'target')
expect_equal(r$depends, c('dep1', 'dep2'))
expect_equal(r$build, 'buildCmd')
expect_equal(r$clean, 'cleanCmd')
})
test_that('multiple target rule', {
r <- rule(c('target.doc', 'target.pdf'), c('dep1', 'dep2'), 'buildCmd', 'cleanCmd')
expect_true(is.rule(r))
expect_equal(r$target, c('target.doc', 'target.pdf'))
expect_equal(r$pattern, c('target%doc', 'target%pdf'))
expect_equal(r$depends, c('dep1', 'dep2'))
expect_equal(r$build, 'buildCmd')
expect_equal(r$clean, 'cleanCmd')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.