Omit ANSI in as.character() methods

So copying to clipboard with
```
clipr::write_clip(session_info())
```
does not have ANSI sequences.

R/external-info.R

@@ -82,5 +82,7 @@ print.external_info <- function(x, ...) {
 #' @export
 
 as.character.external_info <- function(x, ...) {
+  old <- options(cli.num_colors = 1)
+  on.exit(options(old), add = TRUE)
   format(x, ...)
 }

R/package-info.R

@@ -322,5 +322,7 @@ print.packages_info <- function(x, ...) {
 #' @export
 
 as.character.packages_info <- function(x, ...) {
+  old <- options(cli.num_colors = 1)
+  on.exit(options(old), add = TRUE)
   format(x, ...)
 }

R/platform-info.R

@@ -97,6 +97,8 @@ print.platform_info <- function(x, ...) {
 #' @export
 
 as.character.platform_info <- function(x, ...) {
+  old <- options(cli.num_colors = 1)
+  on.exit(options(old), add = TRUE)
   format(x, ...)
 }
 

R/python-info.R

@@ -48,6 +48,8 @@ format.python_info <- function(x, ...) {
 #' @export
 
 as.character.python_info <- function(x, ...) {
+  old <- options(cli.num_colors = 1)
+  on.exit(options(old), add = TRUE)
   format(x, ...)
 }
 

R/session-info.R

@@ -134,6 +134,8 @@ format.session_info <- function(x, ...) {
 #' @export
 
 as.character.session_info <- function(x, ...) {
+  old <- options(cli.num_colors = 1)
+  on.exit(options(old), add = TRUE)
   format(x, ...)
 }