Running ‘testthat.R’ [18s/29s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(openxlsx)
  > 
  > test_check("openxlsx")
  
   *** caught segfault ***
  address 0x1, cause 'memory not mapped'
  
  Traceback:
   1: read_workbook(cols_in = cell_cols, rows_in = cell_rows, v = v,     string_inds = string_refs, is_date = isDate, hasColNames = colNames,     hasSepNames = sep.names, skipEmptyRows = skipEmptyRows, skipEmptyCols = skipEmptyCols,     nRows = nRows, clean_names = clean_names)
   2: read.xlsx.default(xlsxFile, sheet, startRow = 3, colNames = FALSE,     detectDates = TRUE)
   3: read.xlsx(xlsxFile, sheet, startRow = 3, colNames = FALSE, detectDates = TRUE)
   4: eval(code, test_env)
   5: eval(code, test_env)
   6: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
   7: doTryCatch(return(expr), name, parentenv, handler)
   8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  10: doTryCatch(return(expr), name, parentenv, handler)
  11: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  12: tryCatchList(expr, classes, parentenv, handlers)
  13: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  14: test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
  15: test_that("Reading example workbook readTest.xlsx", {    curr_wd <- getwd()    xlsxFile <- system.file("extdata", "readTest.xlsx", package = "openxlsx")    wb <- loadWorkbook(xlsxFile)    sheet <- 1    x <- read.xlsx(xlsxFile, sheet)    y <- read.xlsx(wb, sheet)    expect_equal(dim(x), c(10, 7))    expect_equal(dim(y), c(10, 7))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, detectDates = TRUE)    y <- read.xlsx(wb, sheet, detectDates = TRUE)    expect_equal(dim(x), c(10, 7))    expect_equal(dim(y), c(10, 7))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    expect_equal(dim(x), c(9, 5))    expect_equal(dim(y), c(9, 5))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = TRUE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = TRUE, detectDates = TRUE)    expect_equal(dim(x), c(2, 6))    expect_equal(dim(y), c(2, 6))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE, detectDates = TRUE)    expect_equal(dim(x), c(3, 6))    expect_equal(dim(y), c(3, 6))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = FALSE,         detectDates = FALSE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE, detectDates = FALSE)    expect_equal(dim(x), c(3, 6))    expect_equal(dim(y), c(3, 6))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    y <- read.xlsx(wb, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    expect_equal(dim(x), c(9, 2))    expect_equal(dim(y), c(9, 2))    expect_equal(x, y)    sheet <- 2    x <- read.xlsx(xlsxFile, sheet)    y <- read.xlsx(wb, sheet)    expect_equal(dim(x), c(33, 9))    expect_equal(dim(y), c(33, 9))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    expect_equal(dim(x), c(32, 9))    expect_equal(dim(y), c(32, 9))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = TRUE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = TRUE, detectDates = TRUE)    expect_equal(dim(x), c(2, 9))    expect_equal(dim(y), c(2, 9))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE, detectDates = TRUE)    expect_equal(dim(x), c(3, 9))    expect_equal(dim(y), c(3, 9))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = FALSE,         detectDates = FALSE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE, detectDates = FALSE)    expect_equal(dim(x), c(3, 9))    expect_equal(dim(y), c(3, 9))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    y <- read.xlsx(wb, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    expect_equal(dim(x), c(21, 3))    expect_equal(dim(y), c(21, 3))    expect_equal(x, y)    sheet <- 3    x <- read.xlsx(xlsxFile, sheet)    y <- read.xlsx(wb, sheet)    expect_equal(dim(x), c(2083, 5))    expect_equal(dim(y), c(2083, 5))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    expect_equal(dim(x), c(2084, 5))    expect_equal(dim(y), c(2084, 5))    expect_equal(x, y)    x <- suppressWarnings(read.xlsx(xlsxFile, sheet, rows = 2:4,         colNames = TRUE, detectDates = TRUE))    y <- suppressWarnings(read.xlsx(wb, sheet, rows = 2:4, colNames = TRUE,         detectDates = TRUE))    expect_equal(dim(x), NULL)    expect_equal(dim(y), NULL)    expect_equal(x, y)    x <- suppressWarnings(read.xlsx(xlsxFile, sheet, rows = 2:4,         colNames = FALSE, detectDates = TRUE))    y <- suppressWarnings(read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE,         detectDates = TRUE))    expect_equal(dim(x), NULL)    expect_equal(dim(y), NULL)    expect_equal(x, NULL)    expect_equal(y, NULL)    expect_equal(x, y)    x <- suppressWarnings(read.xlsx(xlsxFile, sheet, rows = 2:4,         colNames = FALSE, detectDates = FALSE))    y <- suppressWarnings(read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE,         detectDates = FALSE))    expect_equal(dim(x), NULL)    expect_equal(dim(y), NULL)    expect_equal(x, NULL)    expect_equal(y, NULL)    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    y <- read.xlsx(wb, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    expect_equal(dim(x), c(2084, 2))    expect_equal(dim(y), c(2084, 2))    expect_equal(x, y)    sheet <- 5    x <- read.xlsx(xlsxFile, sheet)    y <- read.xlsx(wb, sheet)    expect_equal(dim(x), c(271, 297))    expect_equal(dim(y), c(271, 297))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, startRow = 3, colNames = FALSE,         detectDates = TRUE)    expect_equal(dim(x), c(270, 297))    expect_equal(dim(y), c(270, 297))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = TRUE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = TRUE, detectDates = TRUE)    expect_equal(dim(x), c(2, 297))    expect_equal(dim(y), c(2, 297))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = FALSE,         detectDates = TRUE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE, detectDates = TRUE)    expect_equal(dim(x), c(3, 297))    expect_equal(dim(y), c(3, 297))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, rows = 2:4, colNames = FALSE,         detectDates = FALSE)    y <- read.xlsx(wb, sheet, rows = 2:4, colNames = FALSE, detectDates = FALSE)    expect_equal(dim(x), c(3, 297))    expect_equal(dim(y), c(3, 297))    expect_equal(x, y)    x <- read.xlsx(xlsxFile, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    y <- read.xlsx(wb, sheet, colNames = FALSE, detectDates = FALSE,         cols = 2:4)    expect_equal(dim(x), c(272, 3))    expect_equal(dim(y), c(272, 3))    expect_equal(x, y)    expect_equal(object = getwd(), curr_wd)})
  16: eval(code, test_env)
  17: eval(code, test_env)
  18: withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error)
  19: doTryCatch(return(expr), name, parentenv, handler)
  20: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  21: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  22: doTryCatch(return(expr), name, parentenv, handler)
  23: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  24: tryCatchList(expr, classes, parentenv, handlers)
  25: tryCatch(withCallingHandlers({    eval(code, test_env)    if (!handled && !is.null(test)) {        skip_empty()    }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning,     message = handle_message, error = handle_error), error = handle_fatal,     skip = function(e) {    })
  26: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
  27: source_file(path, env = env(env), desc = desc, error_call = error_call)
  28: FUN(X[[i]], ...)
  29: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
  30: doTryCatch(return(expr), name, parentenv, handler)
  31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  32: tryCatchList(expr, classes, parentenv, handlers)
  33: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  34: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, error_call = error_call))
  35: test_files_serial(test_dir = test_dir, test_package = test_package,     test_paths = test_paths, load_helpers = load_helpers, reporter = reporter,     env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     desc = desc, load_package = load_package, error_call = error_call)
  36: test_files(test_dir = path, test_paths = test_paths, test_package = package,     reporter = reporter, load_helpers = load_helpers, env = env,     stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning,     load_package = load_package, parallel = parallel)
  37: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  38: test_check("openxlsx")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault