only gsub if test is character

Author: kevinushey

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