More polishing

Author: hadley

R/reporter-progress.R

@@ -534,7 +534,7 @@ issue_header <- function(x, pad = FALSE) {
 issue_summary <- function(x, rule = FALSE) {
   header <- cli::style_bold(issue_header(x))
   if (rule) {
-    header <- cli::rule(header, width = max(cli::ansi_nchar(header) + 6, 80))
+    header <- cli::rule(header)
   }
 
   paste0(header, "\n", format(x))

R/snapshot-file.R

@@ -101,7 +101,7 @@ expect_snapshot_file <- function(path,
 
   snapshotter <- get_snapshotter()
   if (is.null(snapshotter)) {
-    snapshot_not_available("New path", path)
+    snapshot_not_available(path)
     return(invisible())
   }
 

R/snapshot.R

@@ -272,7 +272,7 @@ expect_snapshot_helper <- function(lab, val,
 
   snapshotter <- get_snapshotter()
   if (is.null(snapshotter)) {
-    snapshot_not_available("Current snapshot", save(val))
+    snapshot_not_available(save(val))
     return(invisible())
   }
 
@@ -322,12 +322,12 @@ snapshot_accept_hint <- function(variant, file, reset_output = TRUE) {
   )
 }
 
-snapshot_not_available <- function(header, message) {
+snapshot_not_available <- function(message) {
   local_reporter_output()
 
-  cat(cli::rule(header), "\n", sep = "")
+  cat(cli::rule("Snapshot"), "\n", sep = "")
   cli::cli_inform(c(
-    i = "Can't save snapshot or compare to reference when testing interactively."
+    i = "Can't save or compare to reference when testing interactively."
   ))
   cat(message, "\n", sep = "")
   cat(cli::rule(), "\n", sep = "")