tests/testthat/test-read_files.R

In STATWORX/helfRlein: R Helper Functions

testthat::context("check read_files")

testthat::test_that("examples works for .csv, .rds and .txt", {

  datapath <- system.file("testdata", package = "helfRlein")

  # .csv
  testfiles <- list.files(datapath, pattern = ".csv", full.names = TRUE)

  tmp1 <- read_files(testfiles, fun = read.csv2, stringsAsFactors = FALSE)
  res1 <- data.table::data.table(x = 1:20,
                                 y = letters[1:20],
                                 z = rep(c(NA, 1), each = 10))
  testthat::expect_equal(tmp1, res1)

  # .rds
  testfiles <- list.files(datapath, pattern = ".rds", full.names = TRUE)

  tmp2 <- read_files(testfiles, fun = readRDS)
  res2 <- data.table::data.table(x = 1:20,
                                 y = letters[1:20],
                                 z = rep(c(NA, 1), each = 10))
  testthat::expect_equal(tmp2, res2)

  # .txt
  testfiles <- list.files(datapath, pattern = ".txt", full.names = TRUE)

  tmp3 <- read_files(testfiles)
  res3 <- data.table::data.table(V1 = paste0(c(1:6), ". Zeile"))
  testthat::expect_equal(tmp3, res3)

})

testthat::test_that("deprecated arguments work", {
  datapath <- system.file("testdata", package = "helfRlein")

  # .csv
  testfiles <- list.files(datapath, pattern = ".csv", full.names = TRUE)

  tmp1 <- read_files(testfiles, fun = read.csv2, stringsAsFactors = FALSE)
  testthat::expect_warning(
    read_files(testfiles, FUN = read.csv2, stringsAsFactors = FALSE))


})