Оборачивать, а также помещать номера строк перед фрагментом текста в Rmarkdown?

Question

Допустим, у меня есть простой текстовый кусок в моем.Rmd:

```
bruin@gen8u / $ dmesg|tail -5
[228393.788541] device lo entered promiscuous mode
[228393.817048] device eno2 entered promiscuous mode
[229850.184824] device lo left promiscuous mode
[229850.212337] device eno2 left promiscuous mode
[231129.765300] TCP: request_sock_TCP: Possible SYN flooding on port 3047. Sending cookies.  Check SNMP counters.
```

Последняя строка слишком длинная, которая будет обрезана в выводе PDF, поэтому я хочу, чтобы она была перенесена. Я нашел решение < здесь>, изменив хук по умолчанию knitr:

library(knitr)
def.chunk.hook = knit_hooks$get("chunk")
knit_hooks$set(chunk = function(x, options) {
    # this hook is used only when the linewidth option is not NULL
    if (!is.null(n <- options$linewidth)) {
        x = knitr:::split_lines(x)
        # any lines wider than n should be wrapped
        if (any(nchar(x) > n)) 
            x = strwrap(x, width = n, exdent=4)
        x = paste(x, collapse = "\n")
    }
    def.chunk.hook(x, options)
})

... а также изменить чанк, добавив "заголовок чанка":

```{r eval=FALSE, linewidth=40}
...
```

(Кстати, часть "заголовка куска" загадочна для меня с точки зрения того, что разрешено или какова вероятность того, что я сделал, просто попробовал и ошибся. Я прочитал часть куска в Справочном руководстве RMarkdown, но, кажется, всегда имеет {r ...} заголовок).

Тем не менее, нет визуальной индикации обернутых линий. Поэтому я хотел бы иметь специальный знак переноса в конце каждой перенесенной строки или номер строки в начале каждой строки. Из < this> есть способ поставить номера строк перед каждой строкой, используя заголовок чанка {#numCode .R .numberLines}, который работает как для вывода HTML и PDF.

У меня вопрос, как я могу объединить эти два метода так, чтобы у меня был одновременно и номер строки, и перенос строки?