only gsub if test is character

r-lib · Dec 12, 2024 · 3dff219 · 3dff219
1 parent dbe8883
commit 3dff219
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/snapshot-reporter.R b/R/snapshot-reporter.R
@@ -35,7 +35,9 @@ SnapshotReporter <- R6::R6Class("SnapshotReporter",
     },
 
     start_test = function(context, test) {
-      self$test <- gsub("\n", "", test)
+      if (is.character(self$test)) {
+        self$test <- gsub("\n", "", test)
+      }
     },
 
     # Called by expectation