CRAN ERROR

[cavalcanti1985]

Bom dia, @PedroJorge7, recebemos uma alerta do CRAN para corrigir um erro na execução do pacote no Linux. Poderia vericar?

Abs.

using R version 4.5.2 (2025-10-31)
using platform: x86_64-pc-linux-gnu
R was compiled by
    gcc-14 (Debian 14.3.0-10) 14.3.0
    GNU Fortran (Debian 14.3.0-10) 14.3.0
running under: Debian GNU/Linux forky/sid
using session charset: UTF-8
checking for file ‘ipeaplot/DESCRIPTION’ ... OK
checking extension type ... Package
this is package ‘ipeaplot’ version ‘0.5.0’
package encoding: UTF-8
checking package namespace information ... OK
checking package dependencies ... OK
checking if this is a source package ... OK
checking if there is a namespace ... OK
checking for executable files ... OK
checking for hidden files and directories ... OK
checking for portable file names ... OK
checking for sufficient/correct file permissions ... OK
checking serialization versions ... OK
checking whether package ‘ipeaplot’ can be installed ... OK
See the [install log](https://www.r-project.org/nosvn/R.check/r-release-linux-x86_64/ipeaplot-00install.html) for details.
checking package directory ... OK
checking for future file timestamps ... OK
checking ‘build’ directory ... OK
checking DESCRIPTION meta-information ... OK
checking top-level files ... OK
checking for left-over files ... OK
checking index information ... OK
checking package subdirectories ... OK
checking code files for non-ASCII characters ... OK
checking R files for syntax errors ... OK
checking whether the package can be loaded ... [2s/3s] OK
checking whether the package can be loaded with stated dependencies ... [2s/2s] OK
checking whether the package can be unloaded cleanly ... [2s/2s] OK
checking whether the namespace can be loaded with stated dependencies ... [2s/2s] OK
checking whether the namespace can be unloaded cleanly ... [2s/2s] OK
checking loading without being on the library search path ... [2s/2s] OK
checking use of S3 registration ... OK
checking dependencies in R code ... OK
checking S3 generic/method consistency ... OK
checking replacement functions ... OK
checking foreign function calls ... OK
checking R code for possible problems ... [11s/15s] OK
checking Rd files ... [0s/0s] OK
checking Rd metadata ... OK
checking Rd line widths ... OK
checking Rd cross-references ... OK
checking for missing documentation entries ... OK
checking for code/documentation mismatches ... OK
checking Rd \usage sections ... OK
checking Rd contents ... OK
checking for unstated dependencies in examples ... OK
checking installed files from ‘inst/doc’ ... OK
checking files in ‘vignettes’ ... OK
checking examples ... [3s/4s] OK
checking for unstated dependencies in vignettes ... OK
checking package vignettes ... OK
checking re-building of vignette outputs ... [15s/59s] ERROR
Error(s) in re-building vignettes:
  ...
--- re-building ‘cookbook.Rmd’ using rmarkdown
--- finished re-building ‘cookbook.Rmd’

--- re-building ‘intro_ipeaplot.Rmd’ using rmarkdown

Download status: 0 done; 27 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 11 done; 16 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 27 done; 0 in progress. Total size: 0 b ... done!             

Download status: 8 done; 19 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 19 done; 8 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 27 done; 0 in progress. Total size: 0 b ... done!             

Download status: 7 done; 20 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 17 done; 10 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 27 done; 0 in progress. Total size: 0 b ... done!             

Download status: 8 done; 19 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 18 done; 9 in progress (0 b/s). Total size: 0 b (??%)...
Download status: 27 done; 0 in progress. Total size: 0 b ... done!             

Quitting from intro_ipeaplot.Rmd:212-225 [unnamed-chunk-13]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
<error/rlang_error>
Error in `UseMethod()`:
! no applicable method for 'left_join' applied to an object of class "NULL"
---
Backtrace:
    ▆
 1. └─dplyr::left_join(mun, df_escola, by = "code_muni")
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Error: processing vignette 'intro_ipeaplot.Rmd' failed with diagnostics:
no applicable method for 'left_join' applied to an object of class "NULL"
--- failed re-building ‘intro_ipeaplot.Rmd’

SUMMARY: processing the following file failed:
  ‘intro_ipeaplot.Rmd’

Error: Vignette re-building failed.
Execution halted
checking PDF version of manual ... [4s/6s] OK
checking HTML version of manual ... [1s/2s] OK
checking for non-standard things in the check directory ... OK
DONE

[PedroJorge7]

@cavalcanti1985 pelo que eu estou vendo, o erro vem de dplyr::left_join(mun, df_escola, by = "code_muni"). Não sei se é possivel, mas caso o geobr não esteja sendo processado corretamente, o objeto mun fica como NULL e acarretar em erro. Eu fiz algumas atualizações, vamos ver se outra rodada de check resolve o erro

[rafapereirabr]

pode ser que , na hora de rodar a vignette no CRAN, tenha dado algum erro de conexao de internet no geobr. Duas solucoes possiveis aqui:

1. inclui a base de dados dentro do prorio {ipeaplot} dentro da subasta /inst/extadata/
2. continuar usando o {geobr}, mas dai incluir isso aqui na vignette

     ```{r, message = FALSE, eval = all(!is.null(mun), !is.null(uf)) }

     . .... codigo do chunck.....

     ```

isso garante que o bloco de codigo soh vai ser rodado se o geobr tiver funcionado direito

[PedroJorge7]

Eu gostei da segunda opção. Fiz um ajuste implementando o eval

[cavalcanti1985]

@PedroJorge7 Agora o chek está falhando no macos:

Run r-lib/actions/check-r-package@v2
Run ## --------------------------------------------------------------------
── R CMD build ─────────────────────────────────────────────────────────────────
* checking for file ‘.../DESCRIPTION’ ... OK
* preparing ‘ipeaplot’:
* checking DESCRIPTION meta-information ... OK
* installing the package to build vignettes
* creating vignettes ...sh: line 1: 17362 Segmentation fault: 11  '/Library/Frameworks/R.framework/Resources/bin/Rscript' --vanilla --default-packages= -e "tools::buildVignettes(dir = '.', tangle = TRUE)" > '/var/folders/yz/zr09txvs5dn18vt4cn21kzl40000gn/T//RtmpW40OTz/xshell439a1e1ce930' 2>&1
 ERROR
--- re-building ‘cookbook.Rmd’ using rmarkdown
--- finished re-building ‘cookbook.Rmd’
--- re-building ‘intro_ipeaplot.Rmd’ using rmarkdown
Download status: 0 done; 27 in progress (0 b/s). Total size: 2.61 Kb (??%)...
Download status: 27 done; 0 in progress. Total size: 24.61 Mb (162%)... done!             
Download status: 27 done; 0 in progress. Total size: 4.19 Mb (288%)... done!             
Download status: 0 done; 27 in progress (0 b/s). Total size: 24.61 Mb (??%)...
Download status: 27 done; 0 in progress. Total size: 24.61 Mb (100%)... done!             
Download status: 11 done; 16 in progress (0 b/s). Total size: 4.19 Mb (??%)...
Download status: 27 done; 0 in progress. Total size: 4.19 Mb (100%)... done!             
 *** caught segfault ***
address 0x722f73726573552f, cause 'invalid permissions'
Traceback:
 1: grid.Call(C_stringMetric, as.graphicsAnnot(x$label))
 2: descentDetails.text(list(label = "gjpqyQ", x = 0.5, y = 0.5,     just = "centre", hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE,     name = "GRID.text.708", gp = list(fontsize = 8.8, fontfamily = "sans"),     vp = NULL))
 3: (function (x) {    UseMethod("descentDetails", x)})(list(label = "gjpqyQ", x = 0.5, y = 0.5, just = "centre",     hjust = NULL, vjust = NULL, rot = 0, check.overlap = FALSE,     name = "GRID.text.708", gp = list(fontsize = 8.8, fontfamily = "sans"),     vp = NULL))
 4: grid.Call(C_convert, x, as.integer(whatfrom), as.integer(whatto),     valid.units(unitTo))
 5: convertUnit(x, unitTo, "y", "dimension", "y", "dimension", valueOnly = valueOnly)
 6: convertHeight(grobDescent(textGrob(label = "gjpqyQ", gp = gg_par(fontsize = size,     cex = cex, fontfamily = family, fontface = face))), "inches")
 7: font_descent(gp$fontfamily, gp$fontface, gp$fontsize, gp$cex)
 8: titleGrob(label, x, y, hjust = hj, vjust = vj, angle = angle,     gp = modify_list(element_gp, gp), margin = margin, margin_x = margin_x,     margin_y = margin_y, debug = element@debug, ...)
 9: `element_grob.ggplot2::element_text`(<object>, x = c(0.188312554170278, 0.521668111207414, 0.85502366824455), margin_y = TRUE, label = c("100", "200", "300"), check.overlap = FALSE)
10: (function (element, ...) {    UseMethod("element_grob")})(<object>, x = c(0.188312554170278, 0.521668111207414, 0.85502366824455), margin_y = TRUE, label = c("100", "200", "300"), check.overlap = FALSE)
11: exec(element_grob, label_element, `:=`(!!position_dim, break_positions),     `:=`(!!label_margin_name, TRUE), label = break_labels, check.overlap = check.overlap)
12: draw_axis_labels(break_positions = pos[indices], break_labels = labels[indices],     label_element = elements$text, is_vertical = params$vertical,     check.overlap = params$check.overlap %||% FALSE)
13: FUN(X[[i]], ...)
14: lapply(dodge_indices, function(indices) {    draw_axis_labels(break_positions = pos[indices], break_labels = labels[indices],         label_element = elements$text, is_vertical = params$vertical,         check.overlap = params$check.overlap %||% FALSE)})
15: build_labels(...)
16: self$build_labels(key, elems, params)
17: draw(..., self = self)
18: pair$guide$draw(theme, params = pair$params)
19: panel_guides_grob(panel_params$guides, position = "bottom", theme = theme,     labels = panel_params$draw_labels$bottom)
20: render_axis_h(...)
21: coord$render_axis_h(range, theme)
22: draw_panels(...)
23: 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)
24: render(..., self = self)
25: layout$render(geom_grobs, data, theme, plot@labels)
26: `ggplot_gtable.ggplot2::ggplot_built`(data)
27: ggplot_gtable(data)
28: `print.ggplot2::ggplot`(x)
29: print(x)
30: `grid.draw.ggplot2::ggplot`(X[[i]], ...)
31: FUN(X[[i]], ...)
32: lapply(plot, grid.draw)
33: (function (filename, plot = get_last_plot(), device = NULL, path = NULL,     scale = 1, width = NA, height = NA, units = c("in", "cm",         "mm", "px"), dpi = 300, limitsize = TRUE, bg = NULL,     create.dir = FALSE, ...) {    filename <- validate_path(path, filename, create.dir)    dpi <- parse_dpi(dpi)    dev <- validate_device(device, filename, dpi = dpi)    dim <- plot_dim(c(width, height), scale = scale, units = units,         limitsize = limitsize, dpi = dpi)    bg <- get_plot_background(plot, bg)    old_dev <- grDevices::dev.cur()    dev(filename = filename, width = dim[1], height = dim[2],         bg = bg, ...)    on.exit(utils::capture.output({        grDevices::dev.off()        if (old_dev > 1) grDevices::dev.set(old_dev)    }))    if (!is_bare_list(plot)) {        plot <- list(plot)    }    lapply(plot, grid.draw)    invisible(filename)})(filename = "./figura_exemplo.png", plot = <object>, device = function (filename = "Rplot%03d.png",     width = 480, height = 480, units = "px", pointsize = 12,     background = "white", res = 72, scaling = 1, snap_rect = TRUE,     bitsize = 8, bg) {    if (environmentName(parent.env(parent.frame())) == "knitr" &&         deparse(sys.call(), nlines = 1, width.cutoff = 500) ==             "dev(filename = filename, width = dim[1], height = dim[2], ...)") {        units <- "in"    }    file <- validate_path(filename)    if (!bitsize %in% c(8, 16)) {        stop("Only 8 and 16 bit is supported", call. = FALSE)    }    dim <- get_dims(width, height, units, res)    background <- if (missing(bg))         background    else bg    .Call("agg_png_c", file, dim[1], dim[2], as.numeric(pointsize),         background, as.numeric(res), as.numeric(scaling), as.logical(snap_rect),         as.integer(bitsize), PACKAGE = "ragg")    invisible()}, width = 6.3, height = 3.94, units = "in", scale = 1, dpi = 300,     bg = "white")
34: do.call(ggplot2::ggsave, gargs)
35: save_ipeaplot(fig_base, file.name = "figura_exemplo", format = c("eps",     "pdf", "png"))
36: eval(expr, envir)
37: eval(expr, envir)
38: withVisible(eval(expr, envir))
39: withCallingHandlers(code, error = function (e) rlang::entrace(e), 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)})
40: eval(call)
41: eval(call)
42: 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)
43: doWithOneRestart(return(expr), restart)
44: withOneRestart(expr, restarts[[1L]])
45: withRestartList(expr, restarts[-nr])
46: doWithOneRestart(return(expr), restart)
47: withOneRestart(withRestartList(expr, restarts[-nr]), restarts[[nr]])
48: withRestartList(expr, restarts)
49: 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)
50: evaluate::evaluate(...)
51: 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))
52: in_dir(input_dir(), expr)
53: 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)))
54: eng_r(options)
55: block_exec(params)
56: call_block(x)
57: process_group(group)
58: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),     error = function(e) {        if (progress && is.function(pb$interrupt))             pb$interrupt()        if (is_R_CMD_build() || is_R_CMD_check())             error <<- format(e)    })
59: with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),     error = function(e) {        if (progress && is.function(pb$interrupt))             pb$interrupt()        if (is_R_CMD_build() || is_R_CMD_check())             error <<- format(e)    }), list(rlang_trace_top_env = knit_global()))
60: xfun:::handle_error(with_options(withCallingHandlers(if (tangle) process_tangle(group) else process_group(group),     error = function(e) {        if (progress && is.function(pb$interrupt))             pb$interrupt()        if (is_R_CMD_build() || is_R_CMD_check())             error <<- format(e)    }), list(rlang_trace_top_env = knit_global())), 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)
61: process_file(text, output)
62: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
63: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(),     output_dir = getwd(), ...)
64: vweave_rmarkdown(...)
65: engine$weave(file, quiet = quiet, encoding = enc)
66: doTryCatch(return(expr), name, parentenv, handler)
67: tryCatchOne(expr, names, parentenv, handlers[[1L]])
68: tryCatchList(expr, classes, parentenv, handlers)
69: tryCatch({    engine$weave(file, quiet = quiet, encoding = enc)    setwd(startdir)    output <- find_vignette_product(name, by = "weave", engine = engine)    if (!have.makefile && vignette_is_tex(output)) {        texi2pdf(file = output, clean = FALSE, quiet = quiet)        output <- find_vignette_product(name, by = "texi2pdf",             engine = engine)    }    outputs <- c(outputs, output)}, error = function(e) {    thisOK <<- FALSE    fails <<- c(fails, file)    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s",         file, conditionMessage(e)))})
70: tools::buildVignettes(dir = ".", tangle = TRUE)
An irrecoverable exception occurred. R is aborting now ...
Error: Error in proc$get_built_file() : Build process failed
Calls: <Anonymous> ... build_package -> with_envvar -> force -> <Anonymous>
Execution halted
Error: Process completed with exit code 1.
Run ## --------------------------------------------------------------------
Show testthat output
Run actions/upload-artifact@v4
Warning: No files were found with the provided path: /Users/runner/work/ipeaplot/ipeaplot/check. No artifacts will be uploaded.