Last updated on 2025-01-15 03:49:38 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-gcc | 1.1.6 | 1.82 | 35.50 | 37.32 | OK | |
| r-devel-linux-x86_64-fedora-clang | 1.1.6 | 66.24 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.1.6 | 94.37 | OK | |||
| r-release-macos-arm64 | 1.1.6 | 89.00 | OK | |||
| r-release-macos-x86_64 | 1.1.6 | 105.00 | OK | |||
| r-oldrel-macos-arm64 | 1.1.6 | 87.00 | OK | |||
| r-oldrel-macos-x86_64 | 1.1.6 | 123.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.1.6 | 4.00 | 97.00 | 101.00 | OK |
Version: 1.1.6
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/35s]
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(stmt, arrow, integer64)
2: withCallingHandlers(expr, condition = function(cnd) { { .__handler_frame__. <- TRUE .__setup_frame__. <- frame if (inherits(cnd, "message")) { except <- c("warning", "error") } else if (inherits(cnd, "warning")) { except <- "error" } else { except <- "" } } while (!is_null(cnd)) { if (inherits(cnd, "error")) { out <- handlers[[1L]](cnd) if (!inherits(out, "rlang_zap")) throw(out) } inherit <- .subset2(.subset2(cnd, "rlang"), "inherit") if (is_false(inherit)) { return() } cnd <- .subset2(cnd, "parent") }})
3: doTryCatch(return(expr), name, parentenv, handler)
4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
5: tryCatchList(expr, classes, parentenv, handlers)
6: tryCatch(withCallingHandlers(expr, condition = function(cnd) { { .__handler_frame__. <- TRUE .__setup_frame__. <- frame if (inherits(cnd, "message")) { except <- c("warning", "error") } else if (inherits(cnd, "warning")) { except <- "error" } else { except <- "" } } while (!is_null(cnd)) { if (inherits(cnd, "error")) { out <- handlers[[1L]](cnd) if (!inherits(out, "rlang_zap")) throw(out) } inherit <- .subset2(.subset2(cnd, "rlang"), "inherit") if (is_false(inherit)) { return() } cnd <- .subset2(cnd, "parent") }}), stackOverflowError = handlers[[1L]])
7: rlang::try_fetch(rapi_execute(stmt, arrow, integer64), error = function(e) { rethrow_error_from_rapi(e, call)})
8: rethrow_rapi_execute(res@stmt_lst$ref, res@arrow, res@connection@bigint == "integer64")
9: duckdb_execute(res)
10: duckdb_result(connection = conn, stmt_lst = stmt_lst, arrow = arrow)
11: .local(conn, statement, ...)
12: dbSendQuery(conn, statement, ...)
13: dbSendQuery(conn, statement, ...)
14: dbSendStatement(conn, statement, ...)
15: dbSendStatement(conn, statement, ...)
16: DBI::dbExecute(conn, glue::glue("LOAD '{extension}';"))
17: DBI::dbExecute(conn, glue::glue("LOAD '{extension}';"))
18: load_extension("httpfs", conn = conn, nightly = nightly, force = force)
19: load_httpfs(conn)
20: parse_uri(sources, conn = conn, recursive = recursive)
21: duckdbfs::open_dataset(urls[tbl])
22: fb_tbl("diet_items")
23: rfishbase::diet_items()
24: as.data.frame(rfishbase::diet_items())
25: ConvertFishbaseDiet(ExcludeStage = NULL)
26: doTryCatch(return(expr), name, parentenv, handler)
27: tryCatchOne(expr, names, parentenv, handlers[[1L]])
28: tryCatchList(expr, classes, parentenv, handlers)
29: 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))})
30: try(ConvertFishbaseDiet(ExcludeStage = NULL), silent = TRUE)
31: eval(code, test_env)
32: eval(code, test_env)
33: 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)
34: doTryCatch(return(expr), name, parentenv, handler)
35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
36: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
37: doTryCatch(return(expr), name, parentenv, handler)
38: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
39: tryCatchList(expr, classes, parentenv, handlers)
40: 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) { })
41: test_code(desc, code, env = parent.frame(), reporter = reporter)
42: 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) }})
43: eval(code, test_env)
44: eval(code, test_env)
45: 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)
46: doTryCatch(return(expr), name, parentenv, handler)
47: tryCatchOne(expr, names, parentenv, handlers[[1L]])
48: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
49: doTryCatch(return(expr), name, parentenv, handler)
50: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
51: tryCatchList(expr, classes, parentenv, handlers)
52: 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) { })
53: test_code(test = NULL, code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
54: source_file(path, env = env(env), desc = desc, error_call = error_call)
55: FUN(X[[i]], ...)
56: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
57: doTryCatch(return(expr), name, parentenv, handler)
58: tryCatchOne(expr, names, parentenv, handlers[[1L]])
59: tryCatchList(expr, classes, parentenv, handlers)
60: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
61: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))
62: 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)
63: 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)
64: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
65: test_check("dietr")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang