R markdown results = 'hold', но для сообщений?

Question

У меня есть функции, выводящие несколько сообщений в моем коде, и я не могу получить эти сообщения в одном и том же выходном чанке, как с results='hold'.

На данный момент единственная опция такого родаэмулируется то, что я хочу, это опция collapse=T, но это склеивает вывод и код, что мне не нужно.

Этот код иллюстрирует ситуацию:

---
title: "Example"
author: "Me"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```



```{r}
a <- function(){
  print("hello")
  print("world")
  message("hello again")
  message("world")
}
```

### default
```{r}
a()
```


### with `results='hold'`
```{r results='hold'}
a()
```


### with `collapse=T`
```{r collapse=T}
a()
```

Вывод:

Я также думаю, что интересно, как сообщения выводятся до того, как результаты / печатаются с results='hold'.