tests/testthat.R

In StatisMike/shiny.survey: Create a questionnaire module in ShinyApp

library(testthat)
library(shiny.quetzio)

# function to handle shinyTest testing with testthat
# gotten from https://github.com/rfaelens/exampleShinyTest

ensurePackagePresent <- function(pkgName, quiet=TRUE) {
  tmp_lib <- tempfile("R_LIBS")
  dir.create(tmp_lib)
  
  ## Is the library available on the current search path? If so, it probably was installed by covr or shinytest or ...
  ## If it is in R_LIBS_USER, then we refuse: this was installed through Build and Install, and is an old version!
  ## If no good version is available, then install the library in a temporary path and return this path
  pkgPat <- path.package(pkgName, quiet = T)
  if (is.null(pkgPat) || pkgName %in% devtools::dev_packages() || startsWith(pkgPat, Sys.getenv("R_LIBS_USER")) ) {
    if (!quiet) message("Package ", pkgName, appendLF = F)
    if (!quiet && is.null(pkgPat)) message(" is not available. ", appendLF = F)
    if (!quiet && pkgName %in% devtools::dev_packages()) message(" is loaded as dev package. ", appendLF = F)
    if (!quiet && pkgName %in% devtools::dev_packages()) message(" is available in R_LIBS_USER. ", appendLF = F)
    if (!quiet) message("Installing new version...")
    #Either the package is not available
    #or it is currently in the dev packages
    #or we are about to load the (outdated) installed version!
    message("Installing temporary version of ", pkgName)
    pkg <- devtools::as.package(".")
    stopifnot(pkg$package == pkgName)
    utils::install.packages(repos = NULL,
                            lib = tmp_lib,
                            pkg$path,
                            type = "source",
                            INSTALL_opts = c(#"--example",
                              #"--install-tests",
                              "--with-keep.source",
                              "--with-keep.parse.data",
                              "--no-docs",
                              "--no-html",
                              "--no-lock",
                              "--no-help", "--no-demo", "--no-exec", "--data-compress=none",
                              "--no-byte-compile", "--no-staged-install",
                              "--no-test-load",
                              "--no-multiarch"),
                            quiet = quiet)
  } else {
    if (!quiet) message("Package ", pkgName, " is available in temporary library, not installing new version...")
  }
  return(tmp_lib)
}

# run tests

test_check("shiny.quetzio")