A small benchmark to compare the 'ans' and 'with' forms of 'freduce'

pipe_qplot_benchmark.R

library(microbenchmark) # microbenchmark
library(pryr) # mem_used
library(ggplot2) # qplot

devtools::dev_mode(T)

benchmark_pipe_qplot <- function(x){
  library(magrittr)
  print(mem_used())
  cat("------\n")
  print(microbenchmark(x %>% qplot, times=10L))
  detach("package:magrittr", unload=TRUE)
}

x <- rnorm(1e8) # 800 Mb, this may take a while...

cat("'with' method\n")
devtools::install_github("casallas/magrittr", ref="freduce_with_bmark", quick = T, quiet = T)
benchmark_pipe_qplot(x)

cat("'ans' method\n")
devtools::install_github("casallas/magrittr", ref="freduce_ans_bmark", quick = T, quiet = T)
benchmark_pipe_qplot(x)