Running ‘testthat.R’ [8s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(agregR)
  Loading required package: ggdist
  > 
  > test_check("agregR")
  
  -- Estimando intenção de votos para: "Lula" --
  
  -- Estimando intenção de votos para: "Lula" --
  
  -- Estimando intenção de votos para: "Lula" --
  
  -- Estimando intenção de votos para: "Bolsonaro" --
  
  ! Para fazer a análise retrospectiva, este modelo depende dos resultados da eleição. Ele usa esses resultados para calcular vieses precisos, auxiliando o diagnóstico dos outros modelos.
  ! Atualizaremos os dados assim que estiverem disponíveis.
  
  -- Estimando intenção de votos para: "Lula" --
  
  
   *** caught segfault ***
  address (nil), cause 'memory not mapped'
  
  Traceback:
   1: grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,     resolveHJust(x$just, x$hjust), resolveVJust(x$just, x$vjust),     x$rot, x$check.overlap)
   2: drawDetails.text(x, recording = FALSE)
   3: drawDetails(x, recording = FALSE)
   4: drawGrob(x)
   5: recordGraphics(drawGrob(x), list(x = x), getNamespace("grid"))
   6: grid.draw.grob(x$children[[i]], recording = FALSE)
   7: grid.draw(x$children[[i]], recording = FALSE)
   8: drawGTree(x)
   9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  10: grid.draw.gTree(x$children[[i]], recording = FALSE)
  11: grid.draw(x$children[[i]], recording = FALSE)
  12: drawGTree(x)
  13: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  14: grid.draw.gTree(x$children[[i]], recording = FALSE)
  15: grid.draw(x$children[[i]], recording = FALSE)
  16: drawGTree(x)
  17: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
  18: grid.draw.gTree(gtable)
  19: grid.draw(gtable)
  20: `print.ggplot2::ggplot`(x)
  21: print(x)
  22: `grid.draw.ggplot2::ggplot`(X[[i]], ...)
  23: FUN(X[[i]], ...)
  24: lapply(plot, grid.draw)
  25: ggsave(arquivo, p, device = agg_png, width = config_grafico$graf_agregador$largura,     height = config_grafico$graf_agregador$altura, units = config_grafico$graf_agregador$unidade,     dpi = config_grafico$graf_agregador$dpi)
  26: grafico_priori_posteriori(bd_naive, candidaturas = "Lula", tipo = "Percentual",     salvar = TRUE, dir_saida = tmp)
  27: withCallingHandlers(expr, warning = function(w) if (inherits(w,     classes)) tryInvokeRestart("muffleWarning"))
  28: suppressWarnings(grafico_priori_posteriori(bd_naive, candidaturas = "Lula",     tipo = "Percentual", salvar = TRUE, dir_saida = tmp))
  29: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  30: withCallingHandlers(expr, condition = function(cnd) {    if (!is.null(matched) || !matches(cnd)) {        return()    }    if (can_entrace(cnd)) {        cnd <- cnd_entrace(cnd)    }    matched <<- cnd    if (inherits(cnd, "message") || inherits(cnd, "warning")) {        cnd_muffle(cnd)    }    else if (inherits(cnd, "error") || inherits(cnd, "skip")) {        return_from(tl, cnd)    }})
  31: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)),     ...)
  32: quasi_capture(enquo(object), label, capture_matching_condition,     matches = matcher)
  33: expect_condition_matching_("message", {    {        object    }}, regexp = regexp, class = class, ..., inherit = inherit, info = info,     label = label)
  34: expect_message(suppressWarnings(grafico_priori_posteriori(bd_naive,     candidaturas = "Lula", tipo = "Percentual", salvar = TRUE,     dir_saida = tmp)), "Gráfico salvo")
  35: eval(code, test_env)
  36: eval(code, test_env)
  37: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  38: doTryCatch(return(expr), name, parentenv, handler)
  39: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  40: tryCatchList(expr, classes, parentenv, handlers)
  41: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  42: doWithOneRestart(return(expr), restart)
  43: withOneRestart(expr, restarts[[1L]])
  44: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  45: test_code(code, parent.frame())
  46: test_that("grafico_priori_posteriori salva arquivos corretamente",     {        amostras <- data.frame(`mu[1]` = rnorm(10), check.names = FALSE)        bd_naive <- list(nome_modelo = "Naive", votos_estimados = tibble::tibble(turno = 1,             dia = as.Date("2025-01-01"), pesquisa_id = "1", instituto = "Datafolha"),             modelo_bruto = list(Lula = amostras))        tmp <- tempdir()        expect_message(suppressWarnings(grafico_priori_posteriori(bd_naive,             candidaturas = "Lula", tipo = "Percentual", salvar = TRUE,             dir_saida = tmp)), "Gráfico salvo")    })
  47: eval(code, test_env)
  48: eval(code, test_env)
  49: withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt)
  50: doTryCatch(return(expr), name, parentenv, handler)
  51: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  52: tryCatchList(expr, classes, parentenv, handlers)
  53: tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal)
  54: doWithOneRestart(return(expr), restart)
  55: withOneRestart(expr, restarts[[1L]])
  56: withRestarts(tryCatch(withCallingHandlers({    eval(code, test_env)    new_expectations <- the$test_expectations > starting_expectations    if (snapshot_skipped) {        skip("On CRAN")    }    else if (!new_expectations && skip_on_empty) {        skip_empty()    }}, expectation = handle_expectation, packageNotFoundError = function(e) {    if (on_cran()) {        skip(paste0("{", e$package, "} is not installed."))    }}, snapshot_on_cran = function(cnd) {    snapshot_skipped <<- TRUE    invokeRestart("muffle_cran_snapshot")}, skip = handle_skip, warning = handle_warning, message = handle_message,     error = handle_error, interrupt = handle_interrupt), error = handle_fatal),     end_test = function() {    })
  57: test_code(code = exprs, env = env, reporter = get_reporter() %||%     StopReporter$new())
  58: source_file(path, env = env(env), desc = desc, shuffle = shuffle,     error_call = error_call)
  59: FUN(X[[i]], ...)
  60: lapply(test_paths, test_one_file, env = env, desc = desc, shuffle = shuffle,     error_call = error_call)
  61: doTryCatch(return(expr), name, parentenv, handler)
  62: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  63: tryCatchList(expr, classes, parentenv, handlers)
  64: tryCatch(code, testthat_abort_reporter = function(cnd) {    cat(conditionMessage(cnd), "\n")    NULL})
  65: with_reporter(reporters$multi, lapply(test_paths, test_one_file,     env = env, desc = desc, shuffle = shuffle, error_call = error_call))
  66: 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, shuffle = shuffle,     error_call = error_call)
  67: 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, shuffle = shuffle)
  68: test_dir("testthat", package = package, reporter = reporter,     ..., load_package = "installed")
  69: test_check("agregR")
  An irrecoverable exception occurred. R is aborting now ...
  Segmentation fault