Running ‘testthat.R’ [42s/70s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(popprxl)
  Loading required package: poppr
  Loading required package: adegenet
  Loading required package: ade4
  
     /// adegenet 2.0.1 is loaded ////////////
  
     > overview: '?adegenet'
     > tutorials/doc/questions: 'adegenetWeb()' 
     > bug reports/feature requests: adegenetIssues()
  
  
  This is poppr version 2.4.0. To get started, type package?poppr
  OMP parallel support: unavailable
  
  popprxl is loaded. Use read.genalexcel() to read in your data.
  
  > 
  > test_check("popprxl")
  
   *** caught segfault ***
  address c8406af8, cause 'memory not mapped'
  
  Traceback:
   1: .Call("readxl_xls_col_names", PACKAGE = "readxl", path, i, nskip)
   2: xls_col_names(path, sheet)
   3: paste0("X", seq_along(xls_col_names(path, sheet)))
   4: read_xls(path, sheet, col_names, col_types, na, skip)
   5: readxl::read_excel(x, sheet = sheet, col_names = FALSE)
   6: read.genalexcel(geox, sheet = 1, geo = TRUE, genclone = FALSE)
   7: eval(code, test_env)
   8: eval(code, test_env)
   9: withCallingHandlers(eval(code, test_env), expectation = handle_expectation,     skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error)
  10: doTryCatch(return(expr), name, parentenv, handler)
  11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  12: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  13: doTryCatch(return(expr), name, parentenv, handler)
  14: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  15: tryCatchList(expr, classes, parentenv, handlers)
  16: 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) {})
  17: test_code(desc, code, env = parent.frame())
  18: test_that("Geographic data can be imported", {    geoxy <- read.genalexcel(geox, sheet = 1, geo = TRUE, genclone = FALSE)    geo <- read.genalexcel(geox, sheet = 2, genclone = FALSE)    expect_is(geoxy, "genind")    expect_is(geo, "genind")    dfxy <- genind2df(geoxy)    dfg <- genind2df(geo)    expect_identical(dfxy, dfg)})
  19: eval(exprs, env)
  20: eval(exprs, env)
  21: source_file(path, new.env(parent = env), chdir = TRUE)
  22: force(code)
  23: 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()    })
  24: FUN(X[[i]], ...)
  25: lapply(paths, test_file, env = env, reporter = current_reporter,     start_end_reporter = FALSE, load_helpers = FALSE)
  26: force(code)
  27: with_reporter(reporter = current_reporter, results <- lapply(paths,     test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE,     load_helpers = FALSE))
  28: test_files(paths, reporter = reporter, env = env, ...)
  29: test_dir(test_path, reporter = reporter, env = env, filter = filter,     ...)
  30: with_top_env(env, {    test_dir(test_path, reporter = reporter, env = env, filter = filter,         ...)})
  31: run_tests(package, test_path, filter, reporter, ...)
  32: test_check("popprxl")
  An irrecoverable exception occurred. R is aborting now ...