Создание хорошего выхода kable в RStudio - программирование

Создание хорошего выхода kable в RStudio

У меня есть кадр данных, который выглядит так:

er.frame <- structure(c(0.475, 0.525, 0.45, 0.475, 0.45, 0.55, 0.425, 0.5, 
0.5, 0.4, 0.45, 0.375, 0.55, 0.425, 0.5, 0.475, 0.4, 0.45, 0.375, 
0.55, 0.425), .Dim = c(7L, 3L), .Dimnames = list(NULL, c("CSP.LDA.error.rate", 
"CSP.SWLDA.error.rate", "CSP.SVM.error.rate")))

kable(er.frame)

|  CSP.LDA.error.rate|  CSP.SWLDA.error.rate|  CSP.SVM.error.rate|
|-------------------:|---------------------:|-------------------:|
|               0.475|                 0.500|               0.500|
|               0.525|                 0.500|               0.475|
|               0.450|                 0.400|               0.400|
|               0.475|                 0.450|               0.450|
|               0.450|                 0.375|               0.375|
|               0.550|                 0.550|               0.550|
|               0.425|                 0.425|               0.425|

Я хотел бы, чтобы этот вывод kable обрабатывался knitr и создавал красивую таблицу в отчете HTML. Следуя документации в ?kable, я сделал этот фрагмент:

``` {r snippet}
opts_chunk$set(results='asis')
kable(er.frame)
```

Мой HTML-отчет, однако, как сгенерированный RStudio, является только эховым выходом консоли (или вообще ничего, если я добавлю параметр output=FALSE):

## |  CSP.LDA.error.rate|  CSP.SWLDA.error.rate|  CSP.SVM.error.rate|
## |-------------------:|---------------------:|-------------------:|
## |               0.425|                 0.400|               0.400|
## |               0.425|                 0.475|               0.500|
## |               0.400|                 0.400|               0.400|
## |               0.425|                 0.425|               0.425|
## |               0.425|                 0.325|               0.275|
## |               0.350|                 0.375|               0.375|
## |               0.450|                 0.425|               0.425|

Вышеупомянутое также появляется в сгенерированном файле Markdown с сопроводительными разделителями ```, и это выглядит просто отлично, если я удаляю разделители и хеши.

Как правильно выводить с помощью kable? Этот вопрос принимает ответные подсказки на него, но не подходит к документации.

Кстати, я запускаю R 2.15.1, knitr 1.5.15.

4b9b3361

Ответ 1

opts_chunk$set и opts_current$set не влияют на кусок, в котором они вызываются.

from ?opts_chunk

Обратите внимание, что глобальные параметры, установленные в одном фрагменте, не будут влиять на параметры этого самого блока, поэтому нам часто нужно устанавливать глобальные параметры в отдельном фрагменте.

Будет работать следующий параметр:

```{r, results = 'asis'}
kable(er.frame)
```