From f0b5bf618788098a925537cae4174845b1c61088 Mon Sep 17 00:00:00 2001 From: hornik Date: Fri, 21 Jul 2023 05:31:52 +0000 Subject: [PATCH] Catch errors from running aspell(). git-svn-id: https://svn.r-project.org/R/trunk@84715 00db46b3-68df-0310-9c12-caf00c1e9a41 --- src/library/tools/R/QC.R | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/library/tools/R/QC.R b/src/library/tools/R/QC.R index e1d31cb95b8..3c9fae00c9c 100644 --- a/src/library/tools/R/QC.R +++ b/src/library/tools/R/QC.R @@ -7383,8 +7383,11 @@ function(dir, localOnly = FALSE, pkgSize = NA) startsWith(language, "en-")) && config_val_to_logical(Sys.getenv("_R_CHECK_CRAN_INCOMING_USE_ASPELL_", "FALSE"))) { - a <- .aspell_package_description_for_CRAN(dir) - if(NROW(a)) + a <- tryCatch(.aspell_package_description_for_CRAN(dir), + error = identity) + if(inherits(a, "error")) + out$aspell_package_description_error <- conditionMessage(a) + else if(NROW(a)) out$spelling <- a } @@ -8508,6 +8511,9 @@ function(x, ...) }))), collapse = "\n") })), + if(length(y <- x$aspell_package_description_error)) { + paste(y, collapse = "\n") + }, if(NROW(y <- x$spelling)) { s <- split(sprintf("%d:%d", y$Line, y$Column), y$Original) paste(c("Possibly misspelled words in DESCRIPTION:",