packrat/lib/x86_64-pc-linux-gnu/3.2.4/packrat/tests/testthat/test-shiny.R

In maxbiostat/timeTreeSim:

context("Shiny")

test_that("projects which use shiny implicitly are detected", {

  # Try checking to see if packrat believes all example shiny apps
  # are, in fact, shiny apps
  options(repos = c(CRAN = "http://cran.rstudio.org"))
  if ("shiny" %in% rownames(installed.packages())) {
    examplesPath <- system.file("examples", package = "shiny")
    apps <- list.files(examplesPath, full.names = TRUE)
    for (app in apps) {
      expect_true("shiny" %in% packrat:::appDependencies(app))
    }
  }

  # Check that 'shiny' is listed as a dependency for an
  # R Markdown document with 'runtime: shiny'
  interactiveDocPath <- file.path("resources", "interactive-doc-example.Rmd")
  expect_true("shiny" %in% packrat:::fileDependencies(interactiveDocPath))

})