在RStudio中创建好的kable输出

Question

我有一个如下所示的数据框:

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|

我希望在HTML报告中kable处理输出knitr并创建一个很好的表.在文档中?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.

Answer 1

opts_chunk$set并且opts_current$set不会影响调用它们的块.

从 ?opts_chunk

请注意,在一个块中设置的全局选项不会影响此块本身中的选项,这就是我们经常需要在单独的块中设置全局选项的原因.

以下选项将起作用:

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