当列标题中有括号时，Knitr kable（）输出无法正确显示

Question

我有一个线性模型，我想在R markdown文件中的knitr块中打印一个系数表。我从这个R markdown文件中生成一个html文件。

> model <- lm(speed ~ dist, cars)

当我将系数表放在{r results =＆＃39; asis＆＃39;} knitr chunk中时， 不正确显示。该表在html页面中显示为纯文本。

> kable(xtable(model))


|            |  Estimate| Std. Error|  t value| Pr(>|t|)|
|:-----------|---------:|----------:|--------:|--------:|
|(Intercept) | 8.2839056|  0.8743845| 9.473985|        0|
|dist        | 0.1655676|  0.0174945| 9.463990|        0|

当我将系数表 显示在正确显示。该表在html页面中显示为html表。

> kable(data.frame(xtable(model)))


|            |  Estimate| Std..Error|  t.value| Pr...t..|
|:-----------|---------:|----------:|--------:|--------:|
|(Intercept) | 8.2839056|  0.8743845| 9.473985|        0|
|dist        | 0.1655676|  0.0174945| 9.463990|        0|