R/benchmark.R

In matrixStats: Methods that apply to rows and columns of a matrix

benchmark <- function(fcn, tags=NULL, path=NULL, workdir="reports", envir=parent.frame(), ...) {
  require("R.rsp", character.only=TRUE) || stop("R.rsp not installed.")

  if (is.function(fcn)) {
    fcn <- deparse(substitute(fcn))
  }

  if (is.null(path)) {
    path <- system.file("benchmarking", package="matrixStats")
  }

  fullname <- paste(c(fcn, tags), collapse=",")
  filename <- sprintf("%s.md.rsp", fullname)
  pathname <- file.path(path, filename)

  R.rsp::rfile(pathname,workdir=workdir, envir=envir, ...)
} # benchmark()

############################################################################
# HISTORY:
# 2014-06-02
# o Created.
############################################################################