Как получить функциональность capture.output при получении цветовых кодов ANSI из карандаша?

Question

Какие существуют способы захвата выходных данных по capture.output, но которые сохранят цветовую кодировку ANSI, которая получается из crayon?

> crayon::green("green")
[1] "\033[32mgreen\033[39m"
> capture.output(crayon::green("green"))
[1] "[1] \"green\""

Редактировать: еще один пример

> green <- function() {
+   print(crayon::green("green"))
+   cat(crayon::green("green"))
+   
+   invisible()
+ }
> green()
[1] "\033[32mgreen\033[39m"
green
> capture.output(green())
[1] "[1] \"green\"" "green"        
>