tests/testthat/helper-functions.R

In kjohnsen/MMAPPR2: Mutation Mapping Analysis Pipeline for Pooled RNA-Seq

skip_if_not_travis_or_bioc <- function() {
    if (identical(Sys.getenv("TRAVIS"), "true") ||
        !identical(Sys.getenv("BBS_HOME"), "")) {
        return(invisible(TRUE))
    }

    skip("Not on Travis or Bioconductor")
}

skip_if_not_in_path <- function(program) {
  if (Sys.which(program) == "") {
    skip(paste(program, "not in path"))
  }
}