BrianDiggs

# Define the file to test in the line below. That is the only per-run configuration needed.
fileToTest <- "Plot.R"

# Get the parse data for the file
parseData <- getParseData(parse(fileToTest), includeText = TRUE)

# Extract all the function calls and keep a unique list of them.
functionCalls <- unique(parseData[parseData$token == "SYMBOL_FUNCTION_CALL", "text"])

# Look for any calls to `library` or `require` and go two steps up the

BrianDiggs

## To run this script:
## git bisect reset
## git bisect start ggplot2-0.9.2.1 f4faab0
## git bisect run "C:\Program Files\R\R-2.15.2\bin\R" -f mytestscript.r

cat("\n===== Running test script ======\n")
library("bisectr")
library("digest")
library("methods")