Don't indent() an empty message (#1489)

r-lib · Nov 14, 2021 · ccc4194 · ccc4194
1 parent f8ccf03
commit ccc4194
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/snapshot.R b/R/snapshot.R
@@ -312,7 +312,8 @@ local_snapshot_dir <- function(snap_names, .env = parent.frame()) {
   path
 }
 
-indent <- function(x) paste0("  ", x)
+# if transform() wiped out the full message, don't indent, #1487
+indent <- function(x) if (length(x)) paste0("  ", x) else x
 
 check_variant <- function(x) {
   if (is.null(x)) {