inst/tinytest/test_cellwise.R

In lumberjack: Track Changes in Data

library(lumberjack)

# cellwise logger
iris$sleutel <- 1:nrow(iris)
logfile <- tempfile()
i2 <- start_log(iris, logger=cellwise$new(key="sleutel", verbose=FALSE)) 
i2 <- i2 %>>%  identity()    
i2 <- i2 %>>% {.$Sepal.Length <- .$Sepal.Length*2; .}  
i2 <- dump_log(i2, file=logfile, stop=TRUE) 
expect_equal(nrow(read.csv(logfile)),nrow(iris))


d1 <- data.frame(sl = 1:3, x=1:3,y=letters[1:3])
d2 <- d1
expect_equal(nrow(lumberjack:::celldiff(d1,d2,"sl")),0)

d2 <- rbind(d1,d1)
d2$sl <- seq_len(nrow(d2))
expect_equal(nrow(lumberjack:::celldiff(d1,d2,"sl")),6) 

d2 <- d1
d2$foo <- 3:1
expect_equal(nrow(lumberjack:::celldiff(d1,d2,"sl")),3)
d2 <- d1
d2[1,2] <- 2
expect_equal(nrow(lumberjack:::celldiff(d1,d2,"sl")),1)

iris$id <- seq_len(nrow(iris))
xx <- cellwise$new(key="id")
iris %>>% start_log(xx) %>>% head(149L) %>>% stop_log(dump=FALSE)
d <- xx$logdata()
expect_equal(nrow(d),ncol(iris)-1L)

d1 <- data.frame(id=c(1,1),x=1:2)
d2 <- data.frame(id=c(1,1),x=1:2)

logger <- cellwise$new(key="id")
expect_warning(logger$add(meta=list(src="haha"),input=d1,output=d2))

expect_true("label" %in% ls(logger))