Running ‘testthat.R’ [51s/90s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > 
  > library("testthat")
  > library("sentopics")
  > 
  > if (Sys.getenv("R_COVR") != "true") {
  +   test_check("sentopics")
  + } else {
  +   test_check("sentopics", reporter = default_reporter())
  +   # test_check("sentopics", reporter = LocationReporter)
  + }
  
   *** caught bus error ***
  address (nil), cause 'unknown'
  
  Traceback:
   1: qatd_cpp_tokens_select(x, type, ids, 2, padding, window[1], window[2],     startpos, endpos)
   2: tokens_select.tokens(x, ..., selection = "remove")
   3: tokens_select(x, ..., selection = "remove")
   4: quanteda::tokens_remove(quanteda::tokens(x, remove_numbers = TRUE,     remove_punct = TRUE, remove_symbols = TRUE, remove_separators = FALSE),     " ")
   5: quanteda::tokens_wordstem(quanteda::tokens_remove(quanteda::tokens(x,     remove_numbers = TRUE, remove_punct = TRUE, remove_symbols = TRUE,     remove_separators = FALSE), " "))
   6: quanteda::tokens_tolower(quanteda::tokens_wordstem(quanteda::tokens_remove(quanteda::tokens(x,     remove_numbers = TRUE, remove_punct = TRUE, remove_symbols = TRUE,     remove_separators = FALSE), " ")))
   7: compute_PicaultRenault_scores(ECB_press_conferences)
   8: eval(code, test_env)
   9: eval(code, test_env)
  10: 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)
  11: doTryCatch(return(expr), name, parentenv, handler)
  12: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  13: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  14: doTryCatch(return(expr), name, parentenv, handler)
  15: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  16: tryCatchList(expr, classes, parentenv, handlers)
  17: 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) {    })
  18: test_code(desc, code, env = parent.frame(), reporter = reporter)
  19: test_that("compute_PicaultRenault_scores works", {    docs <- quanteda::corpus_reshape(ECB_press_conferences, "documents")    res1 <- compute_PicaultRenault_scores(docs)    res2 <- compute_PicaultRenault_scores(ECB_press_conferences)    res2 <- apply(res2, 2, function(x) aggregate(x, by = list(quanteda::docid(ECB_press_conferences)),         mean)$x)    expect_equal(res1, res2, check.attributes = FALSE)})
  20: eval(code, test_env)
  21: eval(code, test_env)
  22: 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)
  23: doTryCatch(return(expr), name, parentenv, handler)
  24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  25: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  26: doTryCatch(return(expr), name, parentenv, handler)
  27: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  28: tryCatchList(expr, classes, parentenv, handlers)
  29: 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) {    })
  30: test_code(NULL, exprs, env)
  31: source_file(path, child_env(env), wrap = wrap)
  32: FUN(X[[i]], ...)
  33: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  34: doTryCatch(return(expr), name, parentenv, handler)
  35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  36: tryCatchList(expr, classes, parentenv, handlers)
  37: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  38: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, wrap = wrap))
  39: 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)
  40: 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)
  41: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  42: test_check("sentopics")
  An irrecoverable exception occurred. R is aborting now ...
  Bus error