tests/example-data_equal_data_table.R

suppressPackageStartupMessages(library(dwtools))

DT1 <- dw.populate(scenario="fact")
DT2 <- copy(DT1)[sample(1:nrow(DT1),nrow(DT1),FALSE)]
data.equal.data.table(DT1,DT2,ignore_row_order=TRUE)

setcolorder(DT2,sample(names(DT2),length(DT2),FALSE))
data.equal.data.table(DT1,DT2,ignore_row_order=TRUE,ignore_col_order=TRUE)
jangorecki/dwtools documentation built on May 18, 2019, 12:24 p.m.