在 RMarkdown 中隐藏打印语句

Question

有没有办法在 RMarkdown 中隐藏打印语句？我编写了一个函数，它将算法学习行为的进度打印到 R 控制台。这是一个例子：

f <- function() {
  print("Some printing")
  return(1)
}

在 RMarkdown 我有

```{r, eval = TRUE, results = "show"}
res = f()
print(res)
```

这会将“一些打印”和 1 添加到 RMarkdown 输出文件中。有没有办法抑制“一些打印”，但保留函数的输出（这里是 1）？对于警告、错误和消息，有一些选项，但我找不到用于打印语句的选项。

Answer 1

如果您在函数中使用message 而不是print，则可以隐藏消息

```{r} 
f <- function() {
    message("Some printing")   # change this line
    return(1) 
}

res <- f()    
print(res)    # original prints both  
```
#> Some printing
#> [1] 1

使用suppressMessages：

```{r} 
res <- suppressMessages(f())
print(res) 
```
#> [1] 1

或通过message=FALSE 块选项：

```{r, message=FALSE} 
res <- f()
print(res) 
```
#> [1] 1

专为此类用途设计的消息。如果你真的想保留print，你可以子集化（这很尴尬），或者使用capture.output来捕获和存储消息，同时将结果存储在另一个变量中：

```{r}
f <- function() {
    print("Some printing")
    return(1)
}

trash <- capture.output(res <- f())   
print(res)
```
#> [1] 1

...但这仍然很尴尬。