R/readSpss.R

In sachseka/eatPrep: Prepare Data for IRT Analyses

readSpss <- function (file, addLeadingZeros=FALSE, truncateSpaceChar = TRUE) {
  lapply(c(addLeadingZeros, truncateSpaceChar), checkmate::assert_logical, len = 1)

  if(file.exists(file) != TRUE) {
    stop("Could not find file.\n")
  }

dat <- eatGADS::import_spss(filePath=file.path(file))$dat

dat <- set.col.type(dat)

  ### Leerzeichen abschnipseln
  if(isTRUE(truncateSpaceChar))  {
    dat <- do.call("data.frame", list(lapply(dat, crop), stringsAsFactors = FALSE ) )
  }

  # Check auf alles character
  stopifnot(all(sapply(dat, is.character )))

  ### Stelligkeitskorrektur
  if(isTRUE(addLeadingZeros)) {
    dat <- eatTools::addLeadingZerosToCharInt(dat)
  }

  return(dat)
}