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

r-lib · Aug 17, 2024 · 515efc4 · 515efc4
1 parent 6ecf766
commit 515efc4
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)