Running ‘testthat.R’ [12s/15s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(timeplyr)
  > Sys.unsetenv("R_TESTS")
  > # Sys.setenv("OMP_THREAD_LIMIT" = 2)
  > # data.table::setDTthreads(threads = 1L)
  > # collapse::set_collapse(nthreads = 1L)
  > 
  > reset_timeplyr_options()
  > test_check("timeplyr", reporter = c("check", "location"))
  Start test: Expect error
    'test-age_years.R:7:3' [success]
    'test-age_years.R:8:3' [success]
    'test-age_years.R:9:3' [success]
    'test-age_years.R:10:3' [success]
    'test-age_years.R:11:3' [success]
  End test: Expect error
  
  Start test: Expect zero length vector
    'test-age_years.R:19:3' [success]
  End test: Expect zero length vector
  
  Start test: Expect NA
    'test-age_years.R:24:3' [success]
    'test-age_years.R:26:3' [success]
  End test: Expect NA
  
  Start test: Leap year
    'test-age_years.R:36:3' [success]
    'test-age_years.R:37:3' [success]
  End test: Leap year
  
  Start test: bincode
    'test-bin.R:14:3' [success]
    'test-bin.R:18:3' [success]
    'test-bin.R:22:3' [success]
    'test-bin.R:26:3' [success]
    'test-bin.R:30:3' [success]
    'test-bin.R:37:3' [success]
    'test-bin.R:41:3' [success]
    'test-bin.R:45:3' [success]
    'test-bin.R:49:3' [success]
    'test-bin.R:53:3' [success]
    'test-bin.R:63:3' [success]
    'test-bin.R:67:3' [success]
    'test-bin.R:71:3' [success]
    'test-bin.R:75:3' [success]
    'test-bin.R:79:3' [success]
    'test-bin.R:87:3' [success]
    'test-bin.R:91:3' [success]
    'test-bin.R:95:3' [success]
    'test-bin.R:103:3' [success]
    'test-bin.R:107:3' [success]
    'test-bin.R:111:3' [success]
    'test-bin.R:115:3' [success]
    'test-bin.R:119:3' [success]
    'test-bin.R:124:3' [success]
    'test-bin.R:128:3' [success]
    'test-bin.R:132:3' [success]
    'test-bin.R:136:3' [success]
    'test-bin.R:140:3' [success]
    'test-bin.R:148:3' [success]
    'test-bin.R:152:3' [success]
    'test-bin.R:156:3' [success]
    'test-bin.R:160:3' [success]
    'test-bin.R:164:3' [success]
  End test: bincode
  
  Start test: calendar
    'test-calendar.R:15:3' [success]
    'test-calendar.R:18:3' [success]
  End test: calendar
  
  Start test: Test cross-join
    'test-crossed_join.R:11:3' [success]
    'test-crossed_join.R:19:3' [success]
    'test-crossed_join.R:28:3' [success]
    'test-crossed_join.R:37:3' [success]
    'test-crossed_join.R:44:3' [success]
    'test-crossed_join.R:52:3' [success]
  End test: Test cross-join
  
  Start test: Test desc/asc
    'test-desc.R:9:3' [success]
  End test: Test desc/asc
  
  Start test: Compare to dplyr
    'test-df_reconstruct.R:14:3' [success]
    'test-df_reconstruct.R:16:3' [success]
    'test-df_reconstruct.R:18:3' [success]
    'test-df_reconstruct.R:20:3' [success]
    'test-df_reconstruct.R:22:3' [success]
    'test-df_reconstruct.R:28:3' [success]
    'test-df_reconstruct.R:30:3' [success]
    'test-df_reconstruct.R:32:3' [success]
    'test-df_reconstruct.R:34:3' [success]
    'test-df_reconstruct.R:36:3' [success]
    'test-df_reconstruct.R:38:3' [success]
    'test-df_reconstruct.R:40:3' [success]
    'test-df_reconstruct.R:42:3' [success]
    'test-df_reconstruct.R:44:3' [success]
    'test-df_reconstruct.R:50:3' [success]
    'test-df_reconstruct.R:52:3' [success]
  End test: Compare to dplyr
  
  Start test: duplicate_rows
    'test-duplicate_rows.R:19:3' [success]
    'test-duplicate_rows.R:20:3' [success]
    'test-duplicate_rows.R:22:3' [success]
    'test-duplicate_rows.R:30:3' [success]
    'test-duplicate_rows.R:31:3' [success]
    'test-duplicate_rows.R:34:3' [success]
    'test-duplicate_rows.R:37:3' [success]
    'test-duplicate_rows.R:41:3' [success]
    'test-duplicate_rows.R:45:3' [success]
    'test-duplicate_rows.R:49:3' [success]
    'test-duplicate_rows.R:56:3' [success]
  End test: duplicate_rows
  
  Start test: edf
    'test-edf.R:9:1' [success]
    'test-edf.R:10:1' [success]
    'test-edf.R:18:1' [success]
    'test-edf.R:26:1' [success]
    'test-edf.R:35:1' [success]
    'test-edf.R:40:1' [success]
    'test-edf.R:41:1' [success]
    'test-edf.R:48:1' [success]
    'test-edf.R:56:1' [success]
    'test-edf.R:64:1' [success]
    'test-edf.R:67:1' [success]
    'test-edf.R:69:1' [success]
    'test-edf.R:72:1' [success]
  End test: edf
  
  Start test: farrange
    'test-farrange.R:7:3' [success]
    'test-farrange.R:29:3' [success]
    'test-farrange.R:30:3' [success]
    'test-farrange.R:31:3' [success]
  End test: farrange
  
  Start test: Compare to dplyr
    'test-fcount.R:11:3' [success]
    'test-fcount.R:19:3' [success]
    'test-fcount.R:21:3' [success]
    'test-fcount.R:27:3' [success]
    'test-fcount.R:36:3' [success]
    'test-fcount.R:44:3' [success]
    'test-fcount.R:52:3' [success]
    'test-fcount.R:59:3' [success]
    'test-fcount.R:66:3' [success]
    'test-fcount.R:72:3' [success]
    'test-fcount.R:74:3' [success]
    'test-fcount.R:76:3' [success]
    'test-fcount.R:80:3' [success]
    'test-fcount.R:84:3' [success]
    'test-fcount.R:92:3' [success]
    'test-fcount.R:94:3' [success]
    'test-fcount.R:96:3' [success]
    'test-fcount.R:101:3' [success]
    'test-fcount.R:103:3' [success]
    'test-fcount.R:105:3' [success]
    'test-fcount.R:113:3' [success]
    'test-fcount.R:117:3' [success]
    'test-fcount.R:119:3' [success]
    'test-fcount.R:121:3' [success]
    'test-fcount.R:123:3' [success]
    'test-fcount.R:127:3' [success]
    'test-fcount.R:131:3' [success]
    'test-fcount.R:135:3' [success]
    'test-fcount.R:137:3' [success]
    'test-fcount.R:149:3' [success]
    'test-fcount.R:153:3' [success]
  Storing counts in `nn`, as `n` already present in input
  i Use `name = "new_name"` to pick a new name.
    'test-fcount.R:158:3' [success]
    'test-fcount.R:162:3' [success]
    'test-fcount.R:168:3' [success]
  End test: Compare to dplyr
  
  Start test: Compare to dplyr, add_count
    'test-fcount.R:181:3' [success]
    'test-fcount.R:189:3' [success]
    'test-fcount.R:193:3' [success]
    'test-fcount.R:195:3' [success]
    'test-fcount.R:202:3' [success]
    'test-fcount.R:209:3' [success]
    'test-fcount.R:215:3' [success]
    'test-fcount.R:217:3' [success]
    'test-fcount.R:219:3' [success]
  
   *** caught segfault ***
  address 0x1, cause 'memory not mapped'
  
  Traceback:
   1: cpp_sorted_group_starts(as.integer(group_sizes), init_loc)
   2: calc_sorted_group_starts(GRP_sizes)
   3: GRP_starts(out)
   4: GRP3(safe_ungroup(data), sort = order, return.order = return.order,     return.groups = return.groups, call = FALSE)
   5: df_to_GRP(out, .cols = all_vars, return.order = FALSE, order = order)
   6: fadd_count(., Species)
   7: iris %>% dplyr::slice(0) %>% fadd_count(Species)
   8: eval_bare(expr, quo_get_env(quo))
   9: quasi_label(enquo(expected), expected.label, arg = "expected")
  10: testthat::expect_equal(iris %>% dplyr::slice(0) %>% dplyr::add_count(Species),     iris %>% dplyr::slice(0) %>% fadd_count(Species))
  11: eval(code, test_env)
  12: eval(code, test_env)
  13: 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)
  14: doTryCatch(return(expr), name, parentenv, handler)
  15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  17: doTryCatch(return(expr), name, parentenv, handler)
  18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  19: tryCatchList(expr, classes, parentenv, handlers)
  20: 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) {    })
  21: test_code(desc, code, env = parent.frame(), reporter = reporter)
  22: testthat::test_that("Compare to dplyr, add_count", {    set.seed(42)    weights <- sample(1:150)    iris[["weight"]] <- weights    flights <- nycflights13::flights    testthat::expect_equal(iris %>% dplyr::mutate(interval = lubridate::interval(lubridate::today(),         lubridate::today())) %>% fadd_count(), iris %>% dplyr::mutate(interval = lubridate::interval(lubridate::today(),         lubridate::today())) %>% dplyr::add_count())    testthat::expect_equal(iris %>% fadd_count(), iris %>% dplyr::mutate(n = dplyr::n()))    testthat::expect_equal(iris %>% dplyr::add_count(), iris %>%         fadd_count())    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(across(all_of("Species"))), iris %>%         dplyr::group_by(Species) %>% fadd_count())    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(across(all_of(c("Species", "Sepal.Length")))),         iris %>% dplyr::group_by(Species) %>% fadd_count(across(all_of(c("Sepal.Length")))))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(Species), iris %>% dplyr::group_by(Species) %>%         fadd_count(Species))    testthat::expect_equal(iris %>% dplyr::add_count(NULL), iris %>%         fadd_count(NULL))    testthat::expect_equal(iris %>% dplyr::slice(0) %>% dplyr::add_count(),         iris %>% dplyr::slice(0) %>% fadd_count())    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::slice(0) %>% dplyr::add_count(), iris %>% dplyr::group_by(Species) %>%         dplyr::slice(0) %>% fadd_count())    testthat::expect_equal(iris %>% dplyr::slice(0) %>% dplyr::add_count(Species),         iris %>% dplyr::slice(0) %>% fadd_count(Species))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::slice(0) %>% dplyr::add_count(Species), iris %>%         dplyr::group_by(Species) %>% dplyr::slice(0) %>% fadd_count(Species))    testthat::expect_equal(iris %>% dplyr::add_count(NA), iris %>%         fadd_count(NA))    testthat::expect_equal(iris %>% dplyr::add_count(across(dplyr::everything())),         iris %>% fadd_count(across(dplyr::everything())))    testthat::expect_equal(iris %>% dplyr::add_count(across(dplyr::everything()),         wt = weight), iris %>% fadd_count(across(dplyr::everything()),         wt = weight) %>% dplyr::mutate(n = as.integer(n)))    testthat::expect_equal(iris %>% dplyr::add_count(), iris %>%         fadd_count())    testthat::expect_equal(iris %>% dplyr::add_count(name = ".count"),         iris %>% fadd_count(name = ".count"))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(Sepal.Length) %>% dplyr::add_count(n,         name = "n"), iris %>% dplyr::group_by(Species) %>% fadd_count(Sepal.Length) %>%         fadd_count(n, name = "n"))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(), iris %>% dplyr::group_by(Species) %>%         fadd_count())    testthat::expect_equal(iris %>% dplyr::group_by(across(everything())) %>%         dplyr::add_count(), iris %>% dplyr::group_by(across(everything())) %>%         fadd_count())    testthat::expect_equal(iris %>% dplyr::group_by(across(everything())) %>%         dplyr::add_count(Species), iris %>% dplyr::group_by(across(everything())) %>%         fadd_count(Species))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(Species), iris %>% dplyr::group_by(Species) %>%         fadd_count(Species))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(across(all_of(c("Sepal.Length")))),         iris %>% dplyr::group_by(Species) %>% fadd_count(across(all_of(c("Sepal.Length")))))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(across(dplyr::any_of(c("Species", "Sepal.Length")))),         iris %>% dplyr::group_by(Species) %>% fadd_count(across(dplyr::any_of(c("Species",             "Sepal.Length")))))    testthat::expect_equal(iris %>% dplyr::add_count(as.character(Species)),         iris %>% fadd_count(as.character(Species)))    testthat::expect_equal(flights %>% dplyr::add_count(tailnum,         origin, dest), flights %>% fadd_count(tailnum, origin,         dest))    testthat::expect_equal(flights %>% dplyr::add_count(tailnum,         origin, dest, sort = TRUE), flights %>% fadd_count(tailnum,         origin, dest, sort = TRUE))    res1 <- flights %>% fcount(origin, dest)    set.seed(812123123)    wt1 <- rep_len(3L, nrow(res1))    wt2 <- sample2(1:10, size = nrow(res1), replace = TRUE)    res1 <- res1 %>% dplyr::mutate(wt2)    testthat::expect_equal(res1 %>% dplyr::add_count(origin,         dest, wt = wt2), res1 %>% fadd_count(origin, dest, wt = wt2))    testthat::expect_equal(res1 %>% dplyr::mutate(wt1) %>% dplyr::add_count(origin,         dest, wt = wt1), res1 %>% dplyr::mutate(wt1) %>% fadd_count(origin,         dest, wt = wt1))    testthat::expect_equal(res1 %>% dplyr::add_count(origin,         dest, n, wt = wt2), res1 %>% fadd_count(origin, dest,         n, wt = wt2))    testthat::expect_equal(res1 %>% dplyr::add_count(origin,         dest, wt = n), res1 %>% fadd_count(origin, dest, wt = n))    testthat::expect_equal(iris %>% dplyr::group_by(Species) %>%         dplyr::add_count(Species = Sepal.Length), iris %>% dplyr::group_by(Species) %>%         fadd_count(Species = Sepal.Length))})
  23: eval(code, test_env)
  24: eval(code, test_env)
  25: 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)
  26: doTryCatch(return(expr), name, parentenv, handler)
  27: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  28: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  29: doTryCatch(return(expr), name, parentenv, handler)
  30: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]),     names[nh], parentenv, handlers[[nh]])
  31: tryCatchList(expr, classes, parentenv, handlers)
  32: 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) {    })
  33: test_code(test = NULL, code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  34: source_file(path, env = env(env), desc = desc, error_call = error_call)
  35: FUN(X[[i]], ...)
  36: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
  37: doTryCatch(return(expr), name, parentenv, handler)
  38: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  39: tryCatchList(expr, classes, parentenv, handlers)
  40: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  41: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, error_call = error_call))
  42: 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,     desc = desc, load_package = load_package, error_call = error_call)
  43: 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,     load_package = load_package, parallel = parallel)
  44: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  45: test_check("timeplyr", reporter = c("check", "location"))
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault