Strip control character when writing to a file

DESCRIPTION

@@ -18,6 +18,7 @@ Imports:
     styler,
     withr
 Suggests: 
+    fansi,
     flow,
     knitr,
     lobstr,

R/boomer-package.R

@@ -36,6 +36,6 @@
 #' - `boomer.abbreviate`: Whether to show only the function's name rather than the
 #'   call when it's entered.
 #' - `boomer.path`: A file path to write the output to. By default, output is written
-#'   to the console (standard output).
+#'   to the console (standard output). Requires the fansi package.
 #'
 "_PACKAGE"

R/wrap.R

@@ -136,7 +136,7 @@ append_lines <- function(x, path) {
     writeLines(x)
   } else {
     con <- withr::local_connection(file(path, "at"))
-    writeLines(x, con = con)
+    writeLines(fansi::strip_sgr(x), con = con)
   }
 }