test_that("Rmd documents with parameters are analyzed", {
skip_on_cran()
# we need to skip this test if we don't have an up-to-date version of knitr available
if (packageVersion("knitr") < "1.11")
skip("requires knitr 1.11 or greater")
parameterDocPath <- file.path("resources", "params-example.Rmd")
deps <- packrat:::fileDependencies(parameterDocPath)
expect_true("rmarkdown" %in% deps, "all Rmd docs have an rmarkdown dependency")
expect_true("shiny" %in% deps, "Rmd docs with parameters have a shiny dependency for the customization app")
expect_true("stringr" %in% deps, "dependencies in parameter expressions are extracted")
})
test_that("We can discover dependencies with an evaluate hook", {
skip_on_cran()
path <- "resources/evaluate-deps.Rmd"
deps <- fileDependencies.evaluate(path)
expect_equal(deps, c("abc", "def", "ghi", "jkl"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.