Running ‘ggplot_extraction.R’ [5s/6s]
  Running ‘trackr-tests.R’ [5s/8s]
Running the tests in ‘tests/ggplot_extraction.R’ failed.
Complete output:
  > library(trackr)
  Loading required package: histry
  > 
  > 
  > library(ggplot2)
  > 
  > 
  > ## examples from 
  > ##      http://www.cookbook-r.com/Graphs
  > ##      https://learnr.files.wordpress.com/2009/08/latbook.pdf
  > ##      http://docs.ggplot2.org/current/index.html
  > ##      http://lmdvr.r-forge.r-project.org/figures/figures.html
  > 
  > data(Chem97, package = "mlmRev")
  > ## and a modified version of its ggplot2 counterpart, from
  > ## https://learnr.files.wordpress.com/2009/08/latbook.pdf
  > pg <- ggplot(Chem97, aes(gcsescore)) + 
  +     geom_histogram(binwidth = 0.5) + 
  +     facet_wrap(~score) +
  +     ggtitle(expression(atop("ggplot2 Histogram of gcsescore", atop("facetted by score")))) +
  +     theme_bw()
  > pg
  Error in Summary.unit(c(4.4, 4.4), na.rm = FALSE) : 
    VECTOR_ELT() can only be applied to a 'list', not a 'double'
  Calls: <Anonymous> ... render_strips -> build_strip -> ggstrip -> Summary.unit
  Execution halted
Running the tests in ‘tests/trackr-tests.R’ failed.
Complete output:
  > library(trackr)
  Loading required package: histry
  > library(knitr)
  > be = JSONBackend(tempfile())
  > tdb = TrackrDB(backend=be, img_dir = tempdir())
  > defaultTDB(tdb)
  An object of class "TrackrDB"
  Slot "opts":
  An object of class "TrackrOptions"
  Slot "insert_delay":
  [1] 0
  
  Slot "img_dir":
  [1] "/home/hornik/tmp/scratch/RtmpwXmNpR"
  
  Slot "img_ext":
  [1] "png"
  
  Slot "backend_opts":
  list()
  
  
  Slot "backend":
  Reference class object of class "JSONBackend"
  Field "docs":
  DocList (0x0)
  Field ".file":
  [1] "/home/hornik/tmp/scratch/RtmpwXmNpR/file68ad5eb42ba3"
  Field "file":
  [1] "/home/hornik/tmp/scratch/RtmpwXmNpR/file68ad5eb42ba3"
  
  > recs = 0
  > sysfil = system.file("test_docs/knitr_test.Rmd", package = "trackr")
  > rmdfil = file.path(tempdir(), "knitr_test.Rmd")
  > file.copy(sysfil, rmdfil)
  [1] TRUE
  > if(rmarkdown::pandoc_available()) {
  +     knit_and_record(rmdfil, verbose = TRUE)
  +     stopifnot(length(findRecords("mtcars")) == 2) ## recvars is 'fit' so that plus report
  +     recs = recs + 2
  + } else {
  +     message("Pandoc not available. Skipping knit_and_record test")
  + }
  
  
  processing file: /home/hornik/tmp/scratch/RtmpwXmNpR/knitr_test.Rmd
  
  
  processing file: knitr_test.Rmd
    ordinary text without R code
  
  label: plot
  Quitting from lines 20-24 (knitr_test.Rmd) 
  Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
    VECTOR_ELT() can only be applied to a 'list', not a 'double'
  Calls: knit_and_record ... lapply -> FUN -> push.vp.viewport -> grid.Call.graphics
  Execution halted