inst/testScripts/setup/01a.downloadAllAnnotationData.R

library("R.utils");
verbose <- Arguments$getVerbose(-8, timestamp=TRUE);


verbose && enter(verbose, "Downloading annotation data for all tests");

verbose && enter(verbose, "Scanning tests");
path <- system.file("testScripts", package="aroma.seq");
verbose && cat(verbose, "Path to testScripts: ", path);

pattern <- "downloadAnnotationData.R$";
pathnames <- list.files(path=path, pattern=pattern, full.names=TRUE, recursive=TRUE);

nbrOfTestSets <- length(pathnames);
for (kk in seq_len(nbrOfTestSets)) {
  pathname <- pathnames[kk];
  dropPattern <- sprintf("^%s/", path);
  testSet <- gsub(dropPattern, "", dirname(pathname));
  verbose && enter(verbose, sprintf("Test set #%s ('%s') of %s", kk, testSet, nbrOfTestSets));
  sourceTo(pathname, envir=new.env(), echo=as.logical(verbose));
  verbose && exit(verbose);
} # for (kk ...)

verbose && exit(verbose);


verbose && exit(verbose);
HenrikBengtsson/aroma.seq documentation built on Feb. 15, 2021, 2:21 a.m.