Better recreate behaviour of examples in R CMD check

[hadley]

• tools:::.createExdotR and tools:::massageExamples

• run_one_arch in tools:::.check_packages:

  status <- R_runR(NULL, c(Ropts, enc), c("LANGUAGE=en", 
      if (nzchar(arch)) env0, jitstr), stdout = exout, 
      stderr = exout, stdin = exfile, arch = arch)
  if (status) {
      errorLog(Log, "Running examples in ", sQuote(exfile), 
        " failed")
      txt <- paste(readLines(exout, warn = FALSE), 
        collapse = "\n")
      chunks <- strsplit(txt, "> ### \\* [^\n]+\n> \n> flush[^\n]+\n> \n", 
        useBytes = TRUE)[[1L]]
      if ((ll <- length(chunks)) >= 2) {
        printLog(Log, "The error most likely occurred in:\n\n")
        printLog0(Log, chunks[ll], "\n")
      }
      else {
        printLog(Log, "The error occurred in:\n\n")
        printLog0(Log, txt, "\n")
      }
      do_exit(1L)
  }

[hadley]

May want to attempt to do it a function at a time to make checking easier. Key piece is probably to install package in temporary library, and then use appropriate libpath environment to evaluate code. This may be a simple hack to run_examples to use clean_source with appropriate libpath.

[hadley]

Should also return timings for all examples, and have option to continue on error.