tests/testthat/test-mergeData.R

In sachseka/eatPrep: Prepare Data for IRT Analyses

dat0 <- data.frame(ID=c(1,2,3,4),
                   v1 = c("0","300","j",NA),
                   v2=c("0","909","1000",NA),
                   v3=c("k","kk9","kkk",NA),
                   v4=NA,
                   v5=c("0","90","100","1"),
                   v11 = c("1","300","e","l"))

dat1 <- data.frame( v1 = c("0","300",NA,"j"),
                    v2=c("0","90","10000",NA),
                    v3=c("k","kk","kkk","kk"),
                    kk=c(1,2,3,4),
                    v4=c("k",NA,"kkk","kk"))

dat2 <- data.frame(ID=c(1,2,3,4),
                   v1 = c("0",NA,"e",NA),
                   v2=c("0","90","10000",NA),
                   v3=c("k","kk","kkk",NA),
                   v4=c(NA,2,3,4),
                   v5=c("0","90","100","1"))


dat3 <- data.frame(v1 = c("0","300","e","l"),
                   tb=c(1,2,3,4),
                   v11 = c("1","300","e","l"))

dat4 <- data.frame(ID=c(1,2,5,6),
                   v1 = c("0",NA,"0",NA),
                   v2=c("0","90","0","90"),
                   v5=c("0","90","100","1"),
                   v12=c(NA,NA,1,NA))


test_that("default merge works as expected 1", {
  expect_identical(mergeData("ID",list(dat0,dat1,dat2,dat3), c(1,4,1,2), verbose=FALSE),
                   data.frame(ID=c(1,2,3,4),
                              v1 = c("0","300","j","j"),
                              v2=c("0","909","1000",NA),
                              v3=c("k","kk9","kkk","kk"),
                              v4=c("k",2,"kkk","kk"),
                              v5=c("0","90","100","1"),
                              v11=c("1", "300", "e","l")))
})



test_that("default merge works as expected 2", {
  expect_identical(mergeData("ID",list(dat0,dat1,dat2,dat3), c("ID","kk","ID","tb"), verbose=FALSE),
                   data.frame(ID=c(1,2,3,4),
                              v1 = c("0","300","j","j"),
                              v2=c("0","909","1000",NA),
                              v3=c("k","kk9","kkk","kk"),
                              v4=c("k",2,"kkk","kk"),
                              v5=c("0","90","100","1"),
                              v11=c("1", "300", "e","l")))
})



test_that("default merge works as expected 3", {
  expect_identical(mergeData("ID",list(dat0,dat2), verbose=FALSE),
                   data.frame(ID=c(1,2,3,4),
                              v1 = c("0","300","j",NA),
                              v2=c("0","909","1000",NA),
                              v3=c("k","kk9","kkk",NA),
                              v4=c(NA,2,3,4),
                              v5=c("0","90","100","1"),
                              v11=c("1", "300", "e","l")))
})

test_that("default merge works as expected 4", {
  expect_identical(mergeData("ID",list(dat0,dat4), verbose=FALSE, addMbd=TRUE),
                   data.frame(ID=c(1,2,3,4,5,6),
                              v1 = c("0","300","j",NA,"0",NA),
                              v2=c("0","909","1000",NA,"0","90"),
                              v3=c("k","kk9","kkk",NA,"mbd", "mbd"),
                              v4=c(NA,NA,NA,NA,"mbd", "mbd"),
                              v5=c("0","90","100","1","100","1"),
                              v11=c("1", "300", "e","l","mbd", "mbd"),
                              v12=c(NA,NA,"mbd", "mbd",1,NA)))
})

test_that("default merge works as expected 5", {
  expect_identical(mergeData("ID",list(dat0,dat4), verbose=FALSE, addMbd=FALSE),
                   data.frame(ID=c(1,2,3,4,5,6),
                              v1 = c("0","300","j",NA,"0",NA),
                              v2=c("0","909","1000",NA,"0","90"),
                              v3=c("k","kk9","kkk",NA,NA,NA),
                              v4=c(NA,NA,NA,NA,NA,NA),
                              v5=c("0","90","100","1","100","1"),
                              v11=c("1", "300", "e","l",NA,NA),
                              v12=c(NA,NA,NA,NA,1,NA)))
})



test_that("no data sets", {
  expect_error(mergeData("ID",list(), verbose=FALSE),
               "Found no datasets." )
})



test_that("wrong ID", {
  expect_error(mergeData("IDs",list(dat0,dat2), verbose=FALSE),
               "Did not find ID variable in dataset 1" )
})

test_that("multiple different valid codes", {
  expect_message(mergeData("ID",list(dat0[,1:2],dat2[,1:2]), verbose=TRUE),
                 "Multiple different valid codes in variable: 'v1' in 'dataset 2': \n The first value has been kept. \n IDs: 3\n Values: j&e")
})

test_that("multiple different valid codes II", {
  expect_message(mergeData("ID",list(dat0,dat3), c("ID", "tb"), verbose=TRUE),
                 "Multiple different valid codes in variable: 'v1' in 'dataset 2': \n The first value has been kept. \n IDs: 3\n Values: j&e")
})

test_that("missings in ID", {
  expect_warning(mergeData("v1",list(dat2,dat3), verbose=FALSE),
                 "Found missing value in ID variable in dataset 1. Output may not be as desired." )
})

test_that("error when varnames do end with .x or .y", {
  names(dat4)[5] <- "v12.y"
  expect_error(mergeData("ID",list(dat0,dat4), verbose=FALSE),
                 "One or more datasets contain variable names ending with .x or .y. Please rename these variables to avoid issues during merging." )
})