tests/testthat/test-readxl.R

In rsheets/rexcel: R/Excel Linen Driver

## Test reading against readxl
context("readxl")

files <- dir(file.path(get_readxl(), "tests", "testthat"),
             pattern = "\\.xlsx$", full.names = TRUE)

## Rich says: I don't see the inline string version opening correctly in
## numbers so this might be a little beyond our needs to open here.
files <- files[grep("^(inlineStr)", basename(files), invert = TRUE)]
files <- setNames(files, basename(files))

for (f in files) {
  test_that(basename(f), {
    ## Rich says: the as.data.frame here works around something deeply weird
    ## with all.equal and tbl_dfs
    readxl <- as.data.frame(readxl::read_excel(f), stringsAsFactors = FALSE)
    us <- as.data.frame(rexcel_readxl(f))
    if (basename(f) == "new_line_errors.xlsx") {
      ## NOTE: I think that xml2 is replacing \r\n -> \n which causes
      ## the confusion here.  I'm pretty happy about this though as
      ## \r\n is not very R-ish.
      readxl$column_name[[1]] <-
        gsub("\r\r", "\r", readxl$column_name[[1]], fixed = TRUE)
    }
    expect_equal(us, readxl, label = paste("our import of", basename(f)))
  })
}