Running ‘testthat.R’ [26s/40s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > 
  > test_check("arealDB")
  Loading required package: arealDB
  The legacy packages maptools, rgdal, and rgeos, underpinning the sp package,
  which was just loaded, will retire in October 2023.
  Please refer to R-spatial evolution reports for details, especially
  https://r-spatial.org/r/2023/05/15/evolution4.html.
  It may be desirable to make the sf package available;
  package maintainers should consider adding sf to Suggests:.
  The sp package is now running under evolution status 2
       (status 2 uses the sf package in place of rgdal)
   -> press any key when done: 
   -> press any key when done: 
   -> press any key when done: 
  
  
  
  
  
  
  
  
  
  
  
   *** caught segfault ***
  address 0x55cf00000000, cause 'memory not mapped'
  
  Traceback:
   1: vroom_(file, delim = delim %||% col_types$delim, col_names = col_names,     col_types = col_types, id = id, skip = skip, col_select = col_select,     name_repair = .name_repair, na = na, quote = quote, trim_ws = trim_ws,     escape_double = escape_double, escape_backslash = escape_backslash,     comment = comment, skip_empty_rows = skip_empty_rows, locale = locale,     guess_max = guess_max, n_max = n_max, altrep = vroom_altrep(altrep),     num_threads = num_threads, progress = progress)
   2: vroom::vroom(file, delim = ",", col_names = col_names, col_types = col_types,     col_select = {        {            col_select        }    }, id = id, .name_repair = name_repair, skip = skip, n_max = n_max,     na = na, quote = quote, comment = comment, skip_empty_rows = skip_empty_rows,     trim_ws = trim_ws, escape_double = TRUE, escape_backslash = FALSE,     locale = locale, guess_max = guess_max, show_col_types = show_col_types,     progress = progress, altrep = lazy, num_threads = num_threads)
   3: read_csv(paste0(intPaths, "/inv_geometries.csv"), col_types = "iicccccDDcc")
   4: regGeometry(gSeries = "gadm", label = list(al1 = "NAME_0"), layer = "example_geom1",     archive = "example_geom.7z|example_geom1.gpkg", archiveLink = "https://gadm.org/",     nextUpdate = "2019-10-01", updateFrequency = "quarterly",     update = TRUE)
   5: makeExampleDB(until = "regGeometry", path = dbpath)
   6: eval(code, test_env)
   7: eval(code, test_env)
   8: 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)
   9: doTryCatch(return(expr), name, parentenv, handler)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  12: doTryCatch(return(expr), name, parentenv, handler)
  13: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  14: tryCatchList(expr, classes, parentenv, handlers)
  15: 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) {    })
  16: test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
  17: test_that("function asks for details, if not provided", {    dbpath <- paste0(tempdir(), "/newDB")    makeExampleDB(until = "regGeometry", path = dbpath)    options(adb_testing = TRUE)    meta_maia_1 <- setIDVar(name = "al1", columns = 1) %>% setIDVar(name = "year",         columns = 2) %>% setIDVar(name = "commodities", columns = 3) %>%         setObsVar(name = "harvested", unit = "ha", columns = 4) %>%         setObsVar(name = "production", unit = "t", columns = 5)    expect_message(object = regTable())    output <- capture_messages(code = regTable())    expect_character(x = output, len = 12, any.missing = FALSE,         unique = TRUE)    expect_equal(object = output[1], expected = "please type in to which data series this table belongs: \n")    expect_equal(object = output[2], expected = "please type in to which geometry series this table belongs: \n")    expect_equal(object = output[3], expected = "please type in the ontology label of the units: \n")    expect_equal(object = output[4], expected = "please type in the first year in the table: \n")    expect_equal(object = output[5], expected = "please type in the last year in the table: \n")    expect_equal(object = output[6], expected = "please provide the schema description for this table: \n")    expect_equal(object = output[7], expected = "please type in the archives' file name: \n")    expect_equal(object = output[8], expected = "please type in the weblink from which the archive was downloaded: \n")    expect_equal(object = output[9], expected = "please type in the frequency in which the table gets updated \n -> select one of: continual, daily, weekly, fortnightly, quarterly, biannually, annually, asNeeded, irregular, notPlanned, unknown, periodic, semimonthly, biennially: \n")    expect_equal(object = output[10], expected = "please type in when the table gets its next update (YYYY-MM-DD): \n")    expect_equal(object = output[11], expected = "if there is already metadata available:\n -> type in the weblink to the metadataset: \n")    expect_equal(object = output[12], expected = "if there was an existing metadataset downloaded:\n -> type in the local path to the metadataset: \n")})
  18: eval(code, test_env)
  19: eval(code, test_env)
  20: 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)
  21: doTryCatch(return(expr), name, parentenv, handler)
  22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  24: doTryCatch(return(expr), name, parentenv, handler)
  25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  26: tryCatchList(expr, classes, parentenv, handlers)
  27: 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) {    })
  28: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
  29: source_file(path, env(env), wrap = wrap)
  30: FUN(X[[i]], ...)
  31: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  32: doTryCatch(return(expr), name, parentenv, handler)
  33: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  34: tryCatchList(expr, classes, parentenv, handlers)
  35: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  36: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  37: 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,     wrap = wrap, load_package = load_package)
  38: 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,     wrap = wrap, load_package = load_package, parallel = parallel)
  39: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  40: test_check("arealDB")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault