Last updated on 2025-10-27 19:52:57 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.2.0 | 7.64 | 690.49 | 698.13 | OK | |
| r-devel-linux-x86_64-debian-gcc | 1.2.0 | 5.32 | 455.47 | 460.79 | OK | |
| r-devel-linux-x86_64-fedora-clang | 1.2.1 | 30.00 | 913.67 | 943.67 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 1.2.1 | 17.00 | 1038.33 | 1055.33 | OK | |
| r-devel-windows-x86_64 | 1.2.0 | 9.00 | 570.00 | 579.00 | OK | |
| r-patched-linux-x86_64 | 1.2.0 | 7.47 | 665.55 | 673.02 | OK | |
| r-release-linux-x86_64 | 1.2.0 | 6.22 | 668.86 | 675.08 | OK | |
| r-release-macos-arm64 | 1.2.0 | 3.00 | 232.00 | 235.00 | OK | |
| r-release-macos-x86_64 | 1.2.1 | 14.00 | 817.00 | 831.00 | OK | |
| r-release-windows-x86_64 | 1.2.0 | 11.00 | 580.00 | 591.00 | OK | |
| r-oldrel-macos-arm64 | 1.2.0 | 3.00 | 324.00 | 327.00 | OK | |
| r-oldrel-macos-x86_64 | 1.2.1 | 15.00 | 1009.00 | 1024.00 | OK | |
| r-oldrel-windows-x86_64 | 1.2.0 | 13.00 | 790.00 | 803.00 | OK |
Version: 1.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [12m/29m]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(daiquiri)
>
> test_check("daiquiri")
*** caught segfault ***
address 0xae6, cause 'memory not mapped'
Traceback:
1: grid.Call(C_textBounds, as.graphicsAnnot(x$label), x$x, x$y, resolveHJust(x$just, x$hjust), resolveVJust(x$just, x$vjust), x$rot, as.numeric(NA))
2: heightDetails.text(x)
3: heightDetails(x)
4: (function (x) { heightDetails(x)})(list(label = c("01 Jan 2022", "02", "03", "04", "05"), x = c(0.1, 0.3, 0.5, 0.7, 0.9), y = c(1, 1, 1, 1, 1), just = "centre", hjust = 1, vjust = 0.35, rot = 90, check.overlap = FALSE, name = "GRID.text.44172", gp = list(fontsize = 7, col = "#4D4D4DFF", fontfamily = "", lineheight = 0.9, font = c(plain = 1L)), vp = NULL))
5: grid.Call(C_convert, x, as.integer(whatfrom), as.integer(whatto), valid.units(unitTo))
6: convertUnit(x, unitTo, "y", "dimension", "y", "dimension", valueOnly = valueOnly)
7: convertHeight(grobHeight(x), "cm", TRUE)
8: FUN(X[[i]], ...)
9: vapply(x, height_cm, numeric(1))
10: measure(grobs$labels)
11: is.unit(x)
12: unit(measure(grobs$labels), "cm")
13: measure_grobs(...)
14: self$measure_grobs(grobs, params, elems)
15: draw(..., self = self)
16: pair$guide$draw(theme, params = pair$params)
17: panel_guides_grob(panel_params$guides, position = "bottom", theme = theme, labels = panel_params$draw_labels$bottom)
18: render_axis_h(...)
19: FUN(X[[i]], ...)
20: lapply(x, coord$render_axis_h, theme)
21: render_axes(ranges[cols], ranges[rows], coord, theme, transpose = TRUE)
22: attach_axes(...)
23: self$attach_axes(table, layout, ranges, coord, theme, params)
24: draw_panels(..., self = self)
25: self$facet$draw_panels(panels, self$layout, self$panel_scales_x, self$panel_scales_y, self$panel_params, self$coord, data, theme, self$facet_params)
26: render(..., self = self)
27: layout$render(geom_grobs, data, theme, plot@labels)
28: `ggplot_gtable.ggplot2::ggplot_built`(data)
29: ggplot_gtable(data)
30: `print.ggplot2::ggplot`(p)
31: print(p)
32: eval(expr, envir)
33: eval(expr, envir)
34: withVisible(eval(expr, envir))
35: withCallingHandlers(code, message = function (cnd) { watcher$capture_plot_and_output() if (on_message$capture) { watcher$push(cnd) } if (on_message$silence) { invokeRestart("muffleMessage") }}, warning = function (cnd) { if (getOption("warn") >= 2 || getOption("warn") < 0) { return() } watcher$capture_plot_and_output() if (on_warning$capture) { cnd <- sanitize_call(cnd) watcher$push(cnd) } if (on_warning$silence) { invokeRestart("muffleWarning") }}, error = function (cnd) { watcher$capture_plot_and_output() cnd <- sanitize_call(cnd) watcher$push(cnd) switch(on_error, continue = invokeRestart("eval_continue"), stop = invokeRestart("eval_stop"), error = NULL)})
36: eval(call)
37: eval(call)
38: with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers)
39: doWithOneRestart(return(expr), restart)
40: withOneRestart(expr, restarts[[1L]])
41: withRestartList(expr, restarts[-nr])
42: doWithOneRestart(return(expr), restart)
43: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
44: withRestartList(expr, restarts)
45: withRestarts(with_handlers({ for (expr in tle$exprs) { ev <- withVisible(eval(expr, envir)) watcher$capture_plot_and_output() watcher$print_value(ev$value, ev$visible, envir) } TRUE}, handlers), eval_continue = function() TRUE, eval_stop = function() FALSE)
46: evaluate::evaluate(...)
47: evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options))
48: in_dir(input_dir(), expr)
49: in_input_dir(evaluate(code, envir = env, new_device = FALSE, keep_warning = if (is.numeric(options$warning)) TRUE else options$warning, keep_message = if (is.numeric(options$message)) TRUE else options$message, stop_on_error = if (is.numeric(options$error)) options$error else { if (options$error && options$include) 0L else 2L }, output_handler = knit_handlers(options$render, options)))
50: eng_r(options)
51: block_exec(params)
52: call_block(x)
53: process_group(group)
54: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (xfun::pkg_available("rlang", "1.0.0")) { if (is_R_CMD_build() || is_R_CMD_check()) { cnd = tryCatch(rlang::entrace(e), error = identity) error <<- format(cnd) } else { rlang::entrace(e) } } })
55: xfun:::handle_error(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), error = function(e) { if (progress && is.function(pb$interrupt)) pb$interrupt() if (xfun::pkg_available("rlang", "1.0.0")) { if (is_R_CMD_build() || is_R_CMD_check()) { cnd = tryCatch(rlang::entrace(e), error = identity) error <<- format(cnd) } else { rlang::entrace(e) } } }), function(loc) { setwd(wd) write_utf8(res, output %n% stdout()) paste0("\nQuitting from ", loc, if (!is.null(error)) paste0("\n", rule(), error, "\n", rule()))}, if (labels[i] != "") sprintf(" [%s]", labels[i]), get_loc)
56: process_file(text, output)
57: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
58: rmarkdown::render(input = file.path(temp_dirname, "report_htmldoc.Rmd"), output_file = paste0(save_filename, ".html"), output_dir = save_directory, params = list(source_data = source_data, aggregated_data = aggregated_data, report_title = report_title), quiet = !show_progress, ...)
59: report_data(source_data, aggregated_data, report_title = report_title, save_directory = save_directory, save_filename = save_filename, show_progress = show_progress)
60: daiquiri_report(df, field_types = field_types(col_timepoint = ft_timepoint(), col_categorical = ft_categorical(aggregate_by_each_category = TRUE)), dataset_description = "stratifiedset", aggregation_timeunit = "day", report_title = "Stratified Test Set", save_directory = tempdir(), save_filename = "daiquiri_testthatreport", show_progress = FALSE)
61: eval(code, test_env)
62: eval(code, test_env)
63: 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)
64: doTryCatch(return(expr), name, parentenv, handler)
65: tryCatchOne(expr, names, parentenv, handlers[[1L]])
66: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
67: doTryCatch(return(expr), name, parentenv, handler)
68: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
69: tryCatchList(expr, classes, parentenv, handlers)
70: 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) { })
71: test_code(desc, code, env = parent.frame(), reporter = reporter)
72: test_that("daiquiri_report() creates report without error when subcats contain special chars", { df <- data.table::data.table(col_timepoint = c(rep("2022-01-01", 5), rep("2022-01-02", 5), rep("2022-01-04", 11), rep("2022-01-05", 5)), col_categorical = c("", "", rep("SITE 1", 4), rep(paste0("SITE", seq(2, 11), c(" ", "-", ".", "!", "%", "&", "\"", "'", "[]", "()")), 2))) testdaiq_obj <- daiquiri_report(df, field_types = field_types(col_timepoint = ft_timepoint(), col_categorical = ft_categorical(aggregate_by_each_category = TRUE)), dataset_description = "stratifiedset", aggregation_timeunit = "day", report_title = "Stratified Test Set", save_directory = tempdir(), save_filename = "daiquiri_testthatreport", show_progress = FALSE) expect_true(file.remove(testdaiq_obj$report_filename)) })
73: eval(code, test_env)
74: eval(code, test_env)
75: 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)
76: doTryCatch(return(expr), name, parentenv, handler)
77: tryCatchOne(expr, names, parentenv, handlers[[1L]])
78: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
79: doTryCatch(return(expr), name, parentenv, handler)
80: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
81: tryCatchList(expr, classes, parentenv, handlers)
82: 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) { })
83: test_code(test = NULL, code = exprs, env = env, reporter = get_reporter() %||% StopReporter$new())
84: source_file(path, env = env(env), desc = desc, error_call = error_call)
85: FUN(X[[i]], ...)
86: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
87: doTryCatch(return(expr), name, parentenv, handler)
88: tryCatchOne(expr, names, parentenv, handlers[[1L]])
89: tryCatchList(expr, classes, parentenv, handlers)
90: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
91: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))
92: 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)
93: 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)
94: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
95: test_check("daiquiri")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang