Last updated on 2024-10-10 06:50:48 CEST.
| Package | ERROR | OK |
|---|---|---|
| AnnotationBustR | 13 | |
| dietr | 1 | 12 |
Current CRAN status: OK: 13
Current CRAN status: ERROR: 1, OK: 12
Version: 1.1.5-1
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/33s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> test_check("dietr")
Loading required package: dietr
*** caught segfault ***
address 0x1, cause 'memory not mapped'
Traceback:
1: rapi_execute(res@stmt_lst$ref, res@arrow, res@connection@bigint == "integer64")
2: duckdb_execute(res)
3: duckdb_result(connection = conn, stmt_lst = stmt_lst, arrow = arrow)
4: .local(conn, statement, ...)
5: dbSendQuery(conn, statement, ...)
6: dbSendQuery(conn, statement, ...)
7: dbSendStatement(conn, statement, ...)
8: dbSendStatement(conn, statement, ...)
9: DBI::dbExecute(conn, "LOAD 'httpfs';")
10: DBI::dbExecute(conn, "LOAD 'httpfs';")
11: load_httpfs(conn)
12: parse_uri(sources, conn = conn, recursive = recursive)
13: duckdbfs::open_dataset(urls[tbl])
14: fb_tbl("diet_items")
15: rfishbase::diet_items()
16: as.data.frame(rfishbase::diet_items())
17: ConvertFishbaseDiet(ExcludeStage = NULL)
18: doTryCatch(return(expr), name, parentenv, handler)
19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
20: tryCatchList(expr, classes, parentenv, handlers)
21: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call, nlines = 1L) prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
22: try(ConvertFishbaseDiet(ExcludeStage = NULL), silent = TRUE)
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(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
34: test_that("ConvertFishbaseDiet function works", { all.diets <- try(ConvertFishbaseDiet(ExcludeStage = NULL), silent = TRUE) if ("try-error" %in% class(all.diets)) { skip("could not connect to remote database") } else { filtered.diets <- ConvertFishbaseDiet(ExcludeStage = "larvae") expect_true(nrow(filtered.diets$DietItems) < nrow(all.diets$DietItems)) expect_length(filtered.diets, 2) expect_equal(ncol(filtered.diets$Taxonomy), 2) }})
35: eval(code, test_env)
36: eval(code, test_env)
37: 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)
38: doTryCatch(return(expr), name, parentenv, handler)
39: tryCatchOne(expr, names, parentenv, handlers[[1L]])
40: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
41: doTryCatch(return(expr), name, parentenv, handler)
42: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
43: tryCatchList(expr, classes, parentenv, handlers)
44: 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) { })
45: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
46: source_file(path, env = env(env), desc = desc, error_call = error_call)
47: FUN(X[[i]], ...)
48: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
49: doTryCatch(return(expr), name, parentenv, handler)
50: tryCatchOne(expr, names, parentenv, handlers[[1L]])
51: tryCatchList(expr, classes, parentenv, handlers)
52: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
53: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))
54: 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)
55: 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)
56: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
57: test_check("dietr")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang