library("R.utils");
verbose <- Arguments$getVerbose(-8, timestamp=TRUE);
verbose && enter(verbose, "Downloading raw data for all tests");
verbose && enter(verbose, "Scanning tests");
path <- system.file("testScripts", package="aroma.cn");
verbose && cat(verbose, "Path to testScripts: ", path);
pattern <- "downloadRawData.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);
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.