This is an attempt to set up a chunk hook for adding plots to the recordr data store “invisibly.”
Currently, this hook function works for the last ggplot object plotted.
library(recordr)
## Loading required package: CodeDepends
## Starting automatic session history tracking. To turn off tracking call trackHistory().
library(histry)
kt = knitr_tracker()
## Loading required package: knitr
## Tracking session history. To turn off tracking call trackHistory().
vtdb = jsonVTDB(tempfile(), img_dir = tempdir())
defaultVTDB(vtdb)
## An object of class "ViztrackrDB"
## Slot "opts":
## An object of class "ViztrackrOptions"
## Slot "insert_delay":
## [1] 0
##
## Slot "img_dir":
## [1] "/var/folders/79/l_n_5qr152d2d9d9xs0591lh0000gn/T//RtmpXOX7AI"
##
## Slot "img_ext":
## [1] "png"
##
## Slot "backend_opts":
## list()
##
##
## Slot "backend":
## A reference to a DocCollection
## DocList (0x0)
library(ggplot2)
qplot(speed, dist, data = cars)
[test_hook_files/figure-html/testrecordr1-1.png]
p = qplot(speed, dist, data = cars)
p = p + geom_smooth()
p + geom_jitter()
[test_hook_files/figure-html/testrecordr2-1.png]
vtdb
## An object of class "ViztrackrDB"
## Slot "opts":
## An object of class "ViztrackrOptions"
## Slot "insert_delay":
## [1] 0
##
## Slot "img_dir":
## [1] "/var/folders/79/l_n_5qr152d2d9d9xs0591lh0000gn/T//RtmpXOX7AI"
##
## Slot "img_ext":
## [1] "png"
##
## Slot "backend_opts":
## list()
##
##
## Slot "backend":
## A reference to a DocCollection
## DocList (0x0)