Use deparse1() instead of paste(deparse(), collapse = " "). Fixes #2709.

r-lib · Aug 15, 2024 · 22f2364 · 22f2364
1 parent be2fd26
commit 22f2364
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rd-example.R b/R/rd-example.R
@@ -63,7 +63,7 @@ process_conditional_examples <- function(rd) {
         if (isTRUE(cond)) {
           remove <- c(remove, idx, idx + 1L)
         } else {
-          cond_expr_str <- paste(deparse(cond_expr), collapse = " ")
+          cond_expr_str <- deparse1(cond_expr)
           is_false <- cond_expr_str == "FALSE"
           if (!is_false) {
             new_cond <- paste0("if (FALSE) { # ", cond_expr_str)