wch

# ====== Do this once =======
# Add the remote git repository (this needs to be done once):
git remote add wch https://github.com/wch/ggplot2.git
git fetch wch

# Install devtools (this needs to be done once):
install.packages("devtools")


# ====== Do this each time you want to try the code =======

wch

git bisect start
# good: [a8b56fd752e9c5c186e1135c2700550560001cbc] New function to benchmark components of plotting
git bisect good a8b56fd752e9c5c186e1135c2700550560001cbc
# bad: [c5b872ed8b086965a17fc9953f25224ce84d0141] Don't test any example that takes over 5 seconds
git bisect bad c5b872ed8b086965a17fc9953f25224ce84d0141
# bad: [fe198da27c375723fb00f63f84724f3ef485dcb4] Message if grouping clearly incorrect in geom_path. Fixes #240
git bisect bad fe198da27c375723fb00f63f84724f3ef485dcb4
# bad: [fdb86c10228dd4bd8d71b8350d86fe5f08aa848b] Merge pull request #205 from davidmorrison/develop
git bisect bad fdb86c10228dd4bd8d71b8350d86fe5f08aa848b
# skip: [a783741bc1563b4a65f24dbcef4e49d34a5da08a] Added two examples to geom_text; non-variable annotation & font size change.

wch

#!/usr/bin/Rscript

cat("\n===== Running test script ======\n")

# =========================================
# Functions for marking commit good/bad/skip
# =========================================
markCommitGood <- function() {
  cat("Returning code: good (0)\n\n")
  quit(status = 0)

wch

#!/usr/bin/Rscript

cat("\n===== Running test script ======\n")

# =========================================
# Functions for marking commit good/bad/skip
# =========================================
markCommitGood <- function() {
  cat("Returning code: good (0)\n\n")
  quit(status = 0)

wch

mark_commit_good <- function() {
  cat("Returning code: good (0)\n\n")
  quit(status = 0)
}
mark_commit_bad <- function() {
    cat("Returning code: bad (1)\n\n")
    quit(status = 1)
}
mark_commit_skip <- function() {

wch

#!/usr/bin/Rscript

# =========================================
# Functions for devtools
# =========================================
mark_commit_good <- function() {
  cat("Returning code: good (0)\n\n")
  quit(status = 0)
}
mark_commit_bad <- function() {

wch

#!/usr/bin/Rscript

# To run this script:
# git bisect reset
# git bisect start master remotes/origin/ggplot-0.8.9
# git bisect run test_scale_fill_manual.r

# When finished:
# git bisect reset

wch

#!/usr/bin/Rscript

# To run this script:
# git bisect reset
# git bisect start fd6b67 remotes/origin/ggplot-0.8.9
# git bisect run test_scale_x_crash.r

# When finished:
# git bisect reset

wch

#!/usr/bin/Rscript

# To run this script:
# git bisect reset
# git bisect start fd6b67 remotes/origin/ggplot-0.8.9
# git bisect run test_legend_NA.r

# When finished:
# git bisect reset

wch

#' Log tick marks
#'
annotation_logticks <- function (base = 10, sides = "bl",
short = unit(0.1, "cm"), mid = unit(0.2, "cm"), long = unit(0.3, "cm"), ...) {
  require(grid)
  GeomLogticks$new(base = base, sides = sides,
                   short = short, mid = mid, long = long, ...)
}

require(proto)