tests/testthat/test-v3_0_0_bugs.R

In awalker89/openxlsx: Read, Write and Edit XLSX Files

context("v3.0.0 Bug Fixes")



test_that("read.xlsx bug fixes", {
  
  file <- system.file("readTest.xlsx", package = "openxlsx")
  df <- read.xlsx(file, sheet = 1, rows = 1:2, cols = 1)
  expect_equal(df, data.frame("Var1" = TRUE))
  
  df <- read.xlsx(file, sheet = 1, rows = 1, cols = 1, colNames = FALSE)
  expect_equal(df, data.frame("X1" = "Var1", stringsAsFactors = FALSE))
  
  
})