This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
## 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") |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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 |