CRAN Package Check Results for Maintainer ‘Nick Christofides <nick.christofides.r at gmail.com>’

Last updated on 2024-11-21 19:53:15 CET.

Package	ERROR	OK
cheapr		13
cppdoubles		13
fastplyr		13
timeplyr	1	12

Package cheapr

Current CRAN status: OK: 13

Package cppdoubles

Current CRAN status: OK: 13

Package fastplyr

Current CRAN status: OK: 13

Package timeplyr

Current CRAN status: ERROR: 1, OK: 12

Version: 0.8.2
Check: tests
Result: ERROR Running ‘testthat.R’ [28s/43s] 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(), default_reporter = local_interactive_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, default_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