tests/testthat/helper-tests.r

In aaronwolen/bingd: Bayesian integration of genomic data

# Create a test cache directory
make_test <- function(dir.name) {
  if (missing(dir.name)) dir.name <- paste(cache.path(), "test", sep = "-")
  if (file.exists(dir.name)) {
    warning(dir.name, " already exists.\n", call. = FALSE)
    rndm.ext <- paste(sample(letters, 3), collapse = "")
    dir.name <- paste(dir.name, rndm.ext, sep = "-")
  }
  return(dir.name)
}

test.dir <- make_test()

query <- list(DNase   = c("GM12878", "UwDnase", "narrowPeak"),
              Histone = c("GM12878", "H3k4me3", "narrowPeak"))