如何在 RStudio 服务器中同时将输出保存到控制台和文件？

Question

我想在控制台中查看我的计算输出，但同时将其保存到文件中。 sink() 函数不适合我，因为它只是将输出重定向到文件，而我需要在控制台和文件中同时编写它们。有可能吗？

Answer 1

看起来sink 有一个参数split，它将把输出发送到文件和输出流（控制台）。例如，

> sink(file="test.file", split = TRUE)
> head(iris)
  Sepal.Length Sepal.Width Petal.Length Petal.Width Species
1          5.1         3.5          1.4         0.2  setosa
2          4.9         3.0          1.4         0.2  setosa
3          4.7         3.2          1.3         0.2  setosa
4          4.6         3.1          1.5         0.2  setosa
5          5.0         3.6          1.4         0.2  setosa
6          5.4         3.9          1.7         0.4  setosa
> sink()
> x <- read.csv("test.file")
> x
    Sepal.Length.Sepal.Width.Petal.Length.Petal.Width.Species
1 1          5.1         3.5          1.4         0.2  setosa
2 2          4.9         3.0          1.4         0.2  setosa
3 3          4.7         3.2          1.3         0.2  setosa
4 4          4.6         3.1          1.5         0.2  setosa
5 5          5.0         3.6          1.4         0.2  setosa
6 6          5.4         3.9          1.7         0.4  setosa
>