Running 'testthat.R' [1s/1s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > 
  > test_check("TableHC")
  Loading required package: TableHC
  
   *** caught segfault ***
  address (nil), cause 'memory not mapped'
  
  Traceback:
   1: gsub("^expectation_", "", class(exp)[[1]])
   2: expectation_type(exp)
   3: expectation_skip(result)
   4: x$add_result(...)
   5: FUN(X[[i]], ...)
   6: lapply(objects, f)
   7: o_apply(self$reporters, "add_result", context = context, test = test,     result = result)
   8: reporter$add_result(context = reporter$.context, test = test,     result = e)
   9: register_expectation(e, 6)
  10: (function (e) {    handled <<- TRUE    register_expectation(e, 6)    invokeRestart("continue_test")})(list(message = "abs(HC.vals(two.sample.pvals(tb1, tb2)$pv)$p - 0.555) < 0.01 not equal to TRUE.\nTRUE",     srcref = NULL, trace = NULL))
  11: signalCondition(exp)
  12: doWithOneRestart(return(expr), restart)
  13: withOneRestart(expr, restarts[[1L]])
  14: withRestarts(if (expectation_broken(exp)) {    stop(exp)} else {    signalCondition(exp)}, continue_test = function(e) NULL)
  15: exp_signal(exp)
  16: expect(comp$equal, sprintf("%s not equal to %s.\n%s", act$lab,     exp$lab, comp$message), info = info)
  17: expect_equal(abs(HC.vals(two.sample.pvals(tb1, tb2)$pv)$p - 0.555) <     0.01, TRUE)
  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(desc, code, env = parent.frame(), reporter = reporter)
  29: test_that("p-value from two texts", {    text1 = "On the day House Democrats opened an impeachment inquiry of \n President Trump last week, Pete Buttigieg was being grilled by Iowa\n voters on other subjects: how to loosen the grip of the rich on government, \n how to restore science to policymaking, how to reduce child poverty. At an\n event in eastern Iowa, a woman rose to say that her four adult children\n were stuck in life, unable to afford what she had in the 1980s when a \n $10-an-hour job paid for rent, utilities and an annual vacation."    text2 = "How can the federal government help our young people that want to\n do what<U+2019>s right and to get to those things that their parents worked so hard\n for?<U+201D> the voter asked. This is the conversation Mr. Buttigieg wants to have. \n Boasting a huge financial war chest but struggling in the polls, Mr.\n Buttigieg is now staking his presidential candidacy on Iowa, and particularly\n on connecting with rural white voters who want to talk about personal\n concerns more than impeachment. In doing so, Mr. Buttigieg is also trying to\n show how Democrats can win back counties that flipped from Barack Obama to \n Donald Trump in 2016 <U+2014> there are more of them in Iowa than any other state <U+2014> \n by focusing, he said, on <U+201C>the things that are going to affect folks<U+2019> lives in\n a concrete way."    tb1 = table(strsplit(tolower(text1), " "))    tb2 = table(strsplit(tolower(text2), " "))    expect_equal(abs(HC.vals(two.sample.pvals(tb1, tb2)$pv)$p -         0.555) < 0.01, TRUE)})
  30: eval(code, test_env)
  31: eval(code, test_env)
  32: 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)
  33: doTryCatch(return(expr), name, parentenv, handler)
  34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  35: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  36: doTryCatch(return(expr), name, parentenv, handler)
  37: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  38: tryCatchList(expr, classes, parentenv, handlers)
  39: 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) {    })
  40: test_code(NULL, exprs, env)
  41: source_file(path, child_env(env), wrap = wrap)
  42: FUN(X[[i]], ...)
  43: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  44: force(code)
  45: doWithOneRestart(return(expr), restart)
  46: withOneRestart(expr, restarts[[1L]])
  47: withRestarts(testthat_abort_reporter = function() NULL, force(code))
  48: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  49: test_files(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)
  50: 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)
  51: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  52: test_check("TableHC")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault