inst/tinytest/test_filedump.R

In lumberjack: Track Changes in Data

library(lumberjack)
## filedump logging
logger <- filedump$new(dir=tempfile(),verbose=FALSE)
i2 <- start_log(iris, logger=logger) 
i2 <- i2 %>>%  identity()    
i2 <- i2 %>>% {.$Sepal.Length <- .$Sepal.Length*2; .}  
i2 <- dump_log(i2, verbose=TRUE) 

# this test crashes covr but it does pass.
#expect_equal(length(logger$logdata()) , 3)
expect_true("label" %in% ls(logger))