source('sanitizeCovr.R')
test_that('single target markdownRule', {
r <- markdownRule(target='target.pdf', script='script.Rmd', 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('script.Rmd', 'dep1', 'dep2'))
expect_equal(r$clean, '$(RM) target.pdf')
expect_equal(sanitizeCovr(r$build),
c('$(R) -e \'{\' \\',
ifelse(getRversion() > '3.4.4',
'-e \' params <- list(.target = \"target.pdf\", .script = \"script.Rmd\", .depends = c(\"dep1\", \"dep2\"), .task = \"all\")\' \\',
'-e \' params <- structure(list(.target = \"target.pdf\", .script = \"script.Rmd\", .depends = c(\"dep1\", \"dep2\"), .task = \"all\"), .Names = c(\".target\", \".script\", \".depends\", \".task\"))\' \\'),
ifelse(getRversion() > '3.4.4',
'-e \' targets <- list(target.pdf = \"pdf_document\")\' \\',
'-e \' targets <- structure(list(target.pdf = \"pdf_document\"), .Names = \"target.pdf\")\' \\'),
'-e \' for (tg in names(targets)) {\' \\',
'-e \' rmarkdown::render("script.Rmd", output_format = targets[[tg]], intermediates_dir = tempdir(), output_file = tg)\' \\',
'-e \' }\' \\',
'-e \'}\''))
})
test_that('multiple target markdownRule', {
r <- markdownRule(target=c('target.pdf', 'target.docx'),
script='script.Rmd',
depends=c('dep1', 'dep2'))
expect_true(is.rule(r))
expect_equal(r$target, c('target.pdf', 'target.docx'))
expect_equal(r$pattern, c('target%pdf', 'target%docx'))
expect_equal(r$depends, c('script.Rmd', 'dep1', 'dep2'))
expect_equal(r$clean, '$(RM) target.pdf target.docx')
expect_equal(sanitizeCovr(r$build),
c('$(R) -e \'{\' \\',
ifelse(getRversion() > '3.4.4',
'-e \' params <- list(.target = c(\"target.pdf\", \"target.docx\"), .script = \"script.Rmd\", .depends = c(\"dep1\", \"dep2\"), .task = \"all\")\' \\',
'-e \' params <- structure(list(.target = c(\"target.pdf\", \"target.docx\"), .script = \"script.Rmd\", .depends = c(\"dep1\", \"dep2\"), .task = \"all\"), .Names = c(\".target\", \".script\", \".depends\", \".task\"))\' \\'),
ifelse(getRversion() > '3.4.4',
'-e \' targets <- list(target.pdf = \"pdf_document\", target.docx = \"word_document\")\' \\',
'-e \' targets <- structure(list(target.pdf = \"pdf_document\", target.docx = \"word_document\"), .Names = c(\"target.pdf\", \"target.docx\"))\' \\'),
'-e \' for (tg in names(targets)) {\' \\',
'-e \' rmarkdown::render("script.Rmd", output_format = targets[[tg]], intermediates_dir = tempdir(), output_file = tg)\' \\',
'-e \' }\' \\',
'-e \'}\''))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.