在R中函数的多个输出中输出彩色文本

Question

我是在 R 中编写函数的新手。当一个函数要创建多个输出时，我将这些输出聚合到一个列表中并让函数返回这个列表。此方法还允许输出简单文本。但是，我似乎无法打印彩色文本。

一个例子：

library (crayon)

my_function <- function (a = 3, b = 6) {
    first_result <- a * 3
    second_result <- b / a
    print (list (first_result, 
                 second_result, 
                 "my_text"))
}

my_function()

出来（对我来说没问题）：

[[1]]
[1] 9

[[2]]
[1] 2

[[3]]
[1] "my_text"

现在我想看到彩色的“my_text”（有效）：

cat (green ("my_text")) 

但是，当放入列表时，行为不是我想要的 - 文本首先输出，列表中的第一个参数紧随其后：

x <- 5
list (x, cat (green ("my_text")))

比较：

list (x, "my_text")

这种行为对我来说有点不走运——我希望函数在结果之后显示一行彩色文本。我的尝试

my_function <- function (a = 3, b = 6) {
    first_result <- a * 3
    second_result <- b / a
    print (list (first_result, 
                 second_result, 
                 cat (green ("my_text"))))
}

my_function()

当然没有成功。不幸的是，我对在 R 中打印彩色文本没有其他想法。感谢任何帮助。

Answer 1

Cat 不返回变量，而是返回NULL。

绿色输出是否需要在列表中？如果没有，那么这可以工作：

my_function <- function (a = 3, b = 6) {
first_result <- a * 3
second_result <- b / a
print (list (first_result, 
           second_result 
           ))
cat(green ("my_text"))
}

my_function()

我尝试使用 capture.output()，但它只捕捉文本而不捕捉颜色。

print(capture.output(cat(green ("my_text"))))

我也尝试使用 R markdown (https://rmarkdown.rstudio.com/index.html)，然后你失去了颜色。所以我认为目前不可能