tests/testthat/test-automateDataPreparation.R

In sachseka/eatPrep: Prepare Data for IRT Analyses

# test readSpss module:
data(inputList)
data(inputDat)
preparedData <- automateDataPreparation(inputList = inputList,
                                        datList = inputDat,	path = getwd(),
                                        readSpss = FALSE, checkData = TRUE,	mergeData = FALSE,
                                        recodeData = FALSE, recodeMnr = FALSE,
                                        aggregateData = FALSE, scoreData = FALSE,
                                        writeSpss = FALSE, verbose = TRUE)


test_that("load sav", {
  expect_error(automateDataPreparation(inputList = inputList,
                                       datList = NULL,	path = "none",
                                       readSpss = TRUE, checkData = FALSE,	mergeData = FALSE,
                                       recodeData = FALSE, recodeMnr = FALSE,
                                       aggregateData = FALSE, scoreData = FALSE,
                                       writeSpss = FALSE, verbose = TRUE),
               "All file(s) not found in:  : booklet1.sav, booklet2.sav, booklet3.sav", fixed=TRUE)
  expect_error(automateDataPreparation(inputList = NULL,
                                       datList = NULL,	path = "none",
                                       readSpss = TRUE, checkData = FALSE,	mergeData = FALSE,
                                       recodeData = FALSE, recodeMnr = FALSE,
                                       aggregateData = FALSE, scoreData = FALSE,
                                       writeSpss = FALSE, verbose = TRUE),
               "No .sav-files found in none", fixed=TRUE)
  path <- gsub("forcedChoice.sav", "", system.file("extdata", "forcedChoice.sav", package = "eatPrep"))
  expect_error(automateDataPreparation(inputList = inputList[1:3],
                                       datList = NULL,	path = path,
                                       readSpss = TRUE, checkData = FALSE,	mergeData = FALSE,
                                       recodeData = FALSE, recodeMnr = FALSE,
                                       aggregateData = FALSE, scoreData = FALSE,
                                       writeSpss = FALSE, verbose = TRUE),
               "Cannot be inferred from inputList$savFiles$case.id, because at least one case-ID is empty. Please update or use argument 'oldIDs'.", fixed=TRUE)
  inputList2 <- inputList
  inputList2$savFiles <- inputList2$savFiles[-c(1:3),] #inputList2$savFiles$case.id is now 'character(0)'
  expect_error(automateDataPreparation(inputList = inputList2,
                                       datList = inputDat,	path = path,
                                       readSpss = FALSE, checkData = FALSE,	mergeData = FALSE,
                                       recodeData = FALSE, recodeMnr = FALSE,
                                       aggregateData = FALSE, scoreData = FALSE,
                                       writeSpss = FALSE, verbose = TRUE),
               "Cannot be inferred from inputList$savFiles$case.id, because at least one case-ID is empty. Please update or use argument 'oldIDs'.", fixed=TRUE)
  expect_message(automateDataPreparation(inputList = inputList[1:3], oldIDs = c("ID", "ID"),
                                         datList = NULL,	path = path,
                                         readSpss = TRUE, checkData = FALSE,	mergeData = FALSE,
                                         recodeData = FALSE, recodeMnr = FALSE,
                                         aggregateData = FALSE, scoreData = FALSE,
                                         writeSpss = FALSE, verbose = TRUE),
                 "Successfully read in: booklet1.sav, booklet2.sav, booklet3.sav, forcedChoice.sav, forcedChoice_missings.sav")
})



test_that("merge", {
  path <- gsub("forcedChoice.sav", "", system.file("extdata", "forcedChoice.sav", package = "eatPrep"))
  expect_message(ati <- automateDataPreparation(inputList = inputList[1:3], oldIDs = c("ID", "ID", "ID", "ID", "ID"),newID="idstud",
                                                datList = NULL,	path = path,
                                                readSpss = TRUE, checkData = FALSE,	mergeData = TRUE,
                                                recodeData = FALSE, recodeMnr = FALSE,
                                                aggregateData = FALSE, scoreData = FALSE,
                                                writeSpss = FALSE, verbose = TRUE),
                 "Start merging.")
  expect_equal(ati[1,1:4], data.frame(idstud="person002", hisei="57", I01="3", I02="4", stringsAsFactors=FALSE))
  expect_equal(dim(ati), c(212, 36))
  expect_message(ati2 <- automateDataPreparation(inputList = inputList[1:3], oldIDs = c("ID", "ID"),newID="idstud",
                                                 datList = NULL,	path = path,
                                                 readSpss = TRUE, checkData = FALSE,	mergeData = FALSE,
                                                 recodeData = FALSE, recodeMnr = FALSE,
                                                 aggregateData = FALSE, scoreData = FALSE,
                                                 writeSpss = FALSE, verbose = TRUE),
                 "Merge has been skipped, but more than one dataset has been loaded. A list of datasets will be returned.")
  expect_warning(ati3 <- automateDataPreparation(inputList = inputList,
                                                 datList = inputDat,
                                                 readSpss = FALSE, checkData = FALSE,	mergeData = FALSE,
                                                 recodeData = TRUE, recodeMnr = FALSE,
                                                 aggregateData = FALSE, scoreData = FALSE,
                                                 writeSpss = FALSE, verbose = TRUE),
                 "Merge has been skipped. Only the first dataset in datList has been considered for the following steps.")
  singleDat <- inputDat[[1]]
  expect_snapshot(ati4 <- automateDataPreparation(inputList = inputList,
                                                  datList = singleDat,
                                                  readSpss = FALSE, checkData = FALSE,	mergeData = FALSE,
                                                  recodeData = TRUE, recodeMnr = FALSE,
                                                  aggregateData = FALSE, scoreData = FALSE,
                                                  writeSpss = FALSE, verbose = FALSE))
})




test_that("almost all steps mbi", {
  expect_snapshot(ati5 <- automateDataPreparation(inputList = inputList,
                                                  datList = inputDat,
                                                  readSpss = FALSE, checkData = TRUE,	mergeData = TRUE,
                                                  recodeData = TRUE, recodeMnr = FALSE,
                                                  aggregateData = TRUE, scoreData = TRUE,
                                                  writeSpss = FALSE, verbose = FALSE))
})



# Challenge MBO
iL2 <- inputList

iL2$values$valueRecode <- gsub("mbi", "mbo", inputList$values$valueRecode)
iL2$values$valueType <- gsub("mbi", "mbo", inputList$values$valueType)
iL2$values$valueLabel <- gsub("missing by intention", "missing by omission", inputList$values$valueLabel)
iL2$values$valueDescription <- gsub("missing by intention", "missing by omission", inputList$values$valueDescription)
iL2$values$valueLabelRecoded <- gsub("mbi", "mbo", inputList$values$valueLabelRecoded)

iL2$unitRecodings$value <- gsub("mbi", "mbo", inputList$unitRecodings$value)
iL2$unitRecodings$valueRecode <- gsub("mbi", "mbo", inputList$unitRecodings$valueRecode)
iL2$unitRecodings$valueType <- gsub("mbi", "mbo", inputList$unitRecodings$valueType)

iL2$aggrMiss <- data.frame(lapply(inputList$aggrMiss, function(hh) gsub("mbi", "mbo", hh)))
names(iL2$aggrMiss) <- gsub("mbi", "mbo", names(inputList$aggrMiss))

test_that("almost all steps mbo", {
  expect_snapshot(ati6 <- automateDataPreparation(inputList = iL2,
                                                  datList = inputDat,
                                                  readSpss = FALSE, checkData = TRUE,	mergeData = TRUE,
                                                  recodeData = TRUE, recodeMnr = FALSE,
                                                  aggregateData = TRUE, scoreData = TRUE,
                                                  writeSpss = FALSE, verbose = FALSE))
})