Running ‘testthat.R’ [8s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(airr)
  > 
  > test_check("airr")
  
   *** caught segfault ***
  address 0x55648dcca7c8, cause 'invalid permissions'
  
  Traceback:
   1: clii__container_start(app, "span", class = funname)
   2: .transformer(expr, .envir)
   3: .transformer(expr, .envir) %||% character()
   4: (function (expr) {    eval_func <- as.character(.transformer(expr, .envir) %||%         character())})(".strong Rows: ")
   5: glue(t$str, .envir = t$values, .transformer = inline_transformer,     .open = paste0("<", t$values$marker), .close = paste0(t$values$marker,         ">"), .trim = FALSE)
   6: FUN(X[[i]], ...)
   7: lapply(texts, function(t) {    t$values$app <- app    glue(t$str, .envir = t$values, .transformer = inline_transformer,         .open = paste0("<", t$values$marker), .close = paste0(t$values$marker,             ">"), .trim = FALSE)})
   8: clii__inline(app, text, .list = .list)
   9: app$inline(text, .list = .list)
  10: clii__xtext(app, text, .list = .list, indent = indent, padding = padding,     wrap = wrap)
  11: app$xtext(text)
  12: clii_text(app, text)
  13: (function (text) clii_text(app, text))(text = list(str = "<FCkNXbE-53.strong Rows: FCkNXbE-53><FCkNXbE-53.val <FCkNXbE-53v5FCkNXbE-53>FCkNXbE-53>\n<FCkNXbE-53.strong Columns: FCkNXbE-53><FCkNXbE-53.val <FCkNXbE-53v6FCkNXbE-53>FCkNXbE-53>",     values = <environment>))
  14: do.call(app[[type]], msg$args)
  15: cli_server_default_safe(msg)
  16: cli_server_default(msg)
  17: cli__default_handler(cond)
  18: doWithOneRestart(return(expr), restart)
  19: withOneRestart(expr, restarts[[1L]])
  20: withRestarts({    signalCondition(cond)    cli__default_handler(cond)}, cli_message_handled = function() NULL)
  21: cli__message_emit(cond)
  22: cli__message("text", list(text = glue_cmd(..., .envir = .envir,     .call = sys.call())))
  23: cli::cli_text("\n      {.strong Rows: }{.val {NROW(x)}}\n      {.strong Columns: }{.val {NCOL(x)}}\n      ")
  24: withCallingHandlers(expr, message = function(x) {    msg <<- paste0(msg, x$message)    invokeRestart("muffleMessage")})
  25: cli_block(class = "vroom_dim_message", {    cli::cli_text("\n      {.strong Rows: }{.val {NROW(x)}}\n      {.strong Columns: }{.val {NCOL(x)}}\n      ")})
  26: show_dims(x)
  27: show_col_types(out, locale)
  28: vroom::vroom(file, delim = "\t", 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)
  29: readr::read_tsv(file, n_max = 1)
  30: withCallingHandlers(expr, message = function(c) if (inherits(c,     classes)) tryInvokeRestart("muffleMessage"))
  31: suppressMessages(readr::read_tsv(file, n_max = 1))
  32: read_tabular(bad_rearrangement_file, base = "1", schema = RearrangementSchema)
  33: withCallingHandlers(expr, warning = function(w) if (inherits(w,     classes)) tryInvokeRestart("muffleWarning"))
  34: suppressWarnings(read_tabular(bad_rearrangement_file, base = "1",     schema = RearrangementSchema))
  35: eval(code, test_env)
  36: eval(code, test_env)
  37: 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)
  38: doTryCatch(return(expr), name, parentenv, handler)
  39: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  40: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  41: doTryCatch(return(expr), name, parentenv, handler)
  42: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  43: tryCatchList(expr, classes, parentenv, handlers)
  44: 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) {    })
  45: test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
  46: test_that("read_tabular with bad data", {    bad_data <- suppressWarnings(read_tabular(bad_rearrangement_file,         base = "1", schema = RearrangementSchema))    expect_false(suppressWarnings(validate_tabular(bad_data,         schema = RearrangementSchema)))    w <- capture_warnings(validate_tabular(bad_data, schema = RearrangementSchema))    expect_equal(w, expected_w)})
  47: eval(code, test_env)
  48: eval(code, test_env)
  49: 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)
  50: doTryCatch(return(expr), name, parentenv, handler)
  51: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  52: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  53: doTryCatch(return(expr), name, parentenv, handler)
  54: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  55: tryCatchList(expr, classes, parentenv, handlers)
  56: 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) {    })
  57: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
  58: source_file(path, env(env), wrap = wrap)
  59: FUN(X[[i]], ...)
  60: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  61: doTryCatch(return(expr), name, parentenv, handler)
  62: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  63: tryCatchList(expr, classes, parentenv, handlers)
  64: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  65: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  66: 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)
  67: 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)
  68: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  69: test_check("airr")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault