Use deparse1 (#2617)

r-lib · Jun 21, 2024 · 6ed78c2 · 6ed78c2
1 parent 1c2c8a9
commit 6ed78c2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -72,7 +72,7 @@ auto_names <- function(x) {
     if (is_linter(x)) {
       attr(x, "name", exact = TRUE)
     } else {
-      paste(deparse(x, 500L), collapse = " ")
+      deparse1(x)
     }
   }
   defaults <- vapply(x[empty], default_name, character(1L), USE.NAMES = FALSE)