diff --git a/R/build-manual.R b/R/build-manual.R index 0c9112db2..923a703b1 100644 --- a/R/build-manual.R +++ b/R/build-manual.R @@ -14,10 +14,11 @@ build_manual <- function(pkg = ".", path = NULL) { "--force", paste0("--output=", path, "/", name), pkg$path - ), fail_on_status = TRUE, stderr = "2>&1", spinner = FALSE), + ), fail_on_status = TRUE, spinner = FALSE), error = function(e) { cat(e$stdout) - cli::cli_abort("Failed to build manual") + cli::cli_abort(c("x" = no_wrap(e$stderr), + "!" = "Failed to build manual")) }) cat(msg$stdout) diff --git a/R/utils.R b/R/utils.R index 3ea06488a..105a2c7d1 100644 --- a/R/utils.R +++ b/R/utils.R @@ -44,3 +44,10 @@ is_testing <- function() { is_rstudio_running <- function() { !is_testing() && rstudioapi::isAvailable() } + +# Suppress cli wrapping +no_wrap <- function(x) { + x <- gsub(" ", "\u00a0", x, fixed = TRUE) + x <- gsub("\n", "\f", x, fixed = TRUE) + x +}