Running ‘testthat.R’ [7s/11s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("xlutils3")
  Loading required package: xlutils3
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  DEFINEDNAME: 21 00 00 01 0b 00 00 00 01 00 00 00 00 00 00 0d 3b 00 00 03 00 65 00 00 00 08 00 
  DEFINEDNAME: 00 00 00 07 0b 00 00 00 00 00 00 00 00 00 00 4c 61 6e 67 75 65 73 3b 01 00 01 00 06 00 01 00 01 00 
  DEFINEDNAME: 00 00 00 0a 0b 00 00 00 00 00 00 00 00 00 00 4d 69 6e 69 73 74 65 72 65 73 3b 01 00 01 00 0f 00 00 00 00 00 
  DEFINEDNAME: 00 00 00 0e 0b 00 00 00 00 00 00 00 00 00 00 52 65 75 74 69 6c 69 73 61 74 69 6f 6e 73 3b 01 00 01 00 02 00 02 00 02 00 
  
   *** caught segfault ***
  address 6230408a, cause 'memory not mapped'
  
  Traceback:
   1: .Call("readxl_xls_col_names", PACKAGE = "readxl", path, i, nskip)
   2: xls_col_names(path, sheet, nskip = skip)
   3: read_xls(path, sheet, col_names, col_types, na, skip)
   4: (function (path, sheet = 1, col_names = TRUE, col_types = NULL,     na = "", skip = 0) {    path <- check_file(path)    ext <- tolower(tools::file_ext(path))    switch(excel_format(path), xls = read_xls(path, sheet, col_names,         col_types, na, skip), xlsx = read_xlsx(path, sheet, col_names,         col_types, na, skip))})(path = "../test-data-for-xlutils3/artisans_etalab.xls", sheet = "Comptages")
   5: do.call(read_excel, c(list(path = path, sheet = sheet), read_excel_args))
   6: eval(expr, envir, enclos)
   7: eval(lhs, parent, parent)
   8: do.call(read_excel, c(list(path = path, sheet = sheet), read_excel_args)) %>%     subset(rowSums(is.na(.)) != ncol(.)) %>% Filter(f = function(col) any(!is.na(col)))
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, classes, parentenv, handlers)
  12: tryCatch(do.call(read_excel, c(list(path = path, sheet = sheet),     read_excel_args)) %>% subset(rowSums(is.na(.)) != ncol(.)) %>%     Filter(f = function(col) any(!is.na(col))), error = function(cond) as.character(cond))
  13: FUN(X[[i]], ...)
  14: lapply(., function(sheet) {    read_excel_args <- general_case    if (!is.null(weird_cases[[path]][[sheet]])) {        for (arg in names(weird_cases[[path]][[sheet]])) {            read_excel_args[[arg]] <- weird_cases[[path]][[sheet]][[arg]]        }    }    tryCatch(do.call(read_excel, c(list(path = path, sheet = sheet),         read_excel_args)) %>% subset(rowSums(is.na(.)) != ncol(.)) %>%         Filter(f = function(col) any(!is.na(col))), error = function(cond) as.character(cond))})
  15: function_list[[k]](value)
  16: withVisible(function_list[[k]](value))
  17: freduce(value, `_function_list`)
  18: `_fseq`(`_lhs`)
  19: eval(expr, envir, enclos)
  20: eval(quote(`_fseq`(`_lhs`)), env, env)
  21: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  22: setNames(nm = excel_sheets(path)) %>% lapply(function(sheet) {    read_excel_args <- general_case    if (!is.null(weird_cases[[path]][[sheet]])) {        for (arg in names(weird_cases[[path]][[sheet]])) {            read_excel_args[[arg]] <- weird_cases[[path]][[sheet]][[arg]]        }    }    tryCatch(do.call(read_excel, c(list(path = path, sheet = sheet),         read_excel_args)) %>% subset(rowSums(is.na(.)) != ncol(.)) %>%         Filter(f = function(col) any(!is.na(col))), error = function(cond) as.character(cond))})
  23: FUN(X[[i]], ...)
  24: lapply(., function(path) {    setNames(nm = excel_sheets(path)) %>% lapply(function(sheet) {        read_excel_args <- general_case        if (!is.null(weird_cases[[path]][[sheet]])) {            for (arg in names(weird_cases[[path]][[sheet]])) {                read_excel_args[[arg]] <- weird_cases[[path]][[sheet]][[arg]]            }        }        tryCatch(do.call(read_excel, c(list(path = path, sheet = sheet),             read_excel_args)) %>% subset(rowSums(is.na(.)) !=             ncol(.)) %>% Filter(f = function(col) any(!is.na(col))),             error = function(cond) as.character(cond))    })})
  25: function_list[[k]](value)
  26: withVisible(function_list[[k]](value))
  27: freduce(value, `_function_list`)
  28: `_fseq`(`_lhs`)
  29: eval(expr, envir, enclos)
  30: eval(quote(`_fseq`(`_lhs`)), env, env)
  31: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  32: list.files(path = folder, pattern = "xlsx?$", full.names = TRUE,     recursive = TRUE, ignore.case = TRUE) %>% setNames(nm = basename(.)) %>%     lapply(function(path) {        setNames(nm = excel_sheets(path)) %>% lapply(function(sheet) {            read_excel_args <- general_case            if (!is.null(weird_cases[[path]][[sheet]])) {                for (arg in names(weird_cases[[path]][[sheet]])) {                  read_excel_args[[arg]] <- weird_cases[[path]][[sheet]][[arg]]                }            }            tryCatch(do.call(read_excel, c(list(path = path,                 sheet = sheet), read_excel_args)) %>% subset(rowSums(is.na(.)) !=                 ncol(.)) %>% Filter(f = function(col) any(!is.na(col))),                 error = function(cond) as.character(cond))        })    })
  33: extract_excel("../test-data-for-xlutils3")
  34: eval(expr, envir, enclos)
  35: eval(lhs, parent, parent)
  36: extract_excel("../test-data-for-xlutils3") %>% expect_length(3) %>%     {        expect_equal(Reduce(f = function(cumlen, wb) {            cumlen + length(wb)        }, x = ., init = 0), 5)        invisible(.)    }
  37: eval(expr, envir, enclos)
  38: eval(code, test_env)
  39: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  40: doTryCatch(return(expr), name, parentenv, handler)
  41: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  42: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  43: doTryCatch(return(expr), name, parentenv, handler)
  44: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  45: tryCatchList(expr, classes, parentenv, handlers)
  46: tryCatch(withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error), error = function(e) {}, skip = function(e) {})
  47: test_code(desc, code, env = parent.frame())
  48: test_that("All three sample Excel files found recursively", {    extract_excel("../test-data-for-xlutils3") %>% expect_length(3) %>%         {            expect_equal(Reduce(f = function(cumlen, wb) {                cumlen + length(wb)            }, x = ., init = 0), 5)            invisible(.)        }})
  49: eval(expr, envir, enclos)
  50: eval(exprs, env)
  51: source_file(path, new.env(parent = env), chdir = TRUE)
  52: force(code)
  53: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter,     {        lister$start_file(basename(path))        source_file(path, new.env(parent = env), chdir = TRUE)        end_context()    })
  54: FUN(X[[i]], ...)
  55: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  56: force(code)
  57: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  58: test_files(paths, reporter = reporter, env = env, ...)
  59: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  60: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  61: run_tests(package, test_path, filter, reporter, ...)
  62: test_check("xlutils3")
  An irrecoverable exception occurred. R is aborting now ...