Last updated on 2024-12-18 19:49:43 CET.
| Package | ERROR | OK |
|---|---|---|
| cheapr | 13 | |
| cppdoubles | 13 | |
| fastplyr | 13 | |
| timeplyr | 3 | 10 |
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 3, OK: 10
Version: 0.8.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [11s/13s]
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.8.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [27s/48s]
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 ...
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.8.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [27s/52s]
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 ...
Flavor: r-devel-linux-x86_64-fedora-gcc