如何在html文档中隐藏格式正确的knitr:：kable（）？

我试图隐藏格式正确的knitr:：kable（）表。没有隐藏，他们看起来很好。。。但如果我显示的是已经隐藏的表，它们将显示为普通文本。。。。这是我目前的代码：

---
title: "Test-Tabellen"
output: 
  html_document:
    theme: cerulean
    highlight: textmate
    code_folding: hide
---

```{r}
setwd("/Users/AnyName/Desktop/")
```

#####31 elements included exclusively in "Control":
<div id="BE_Genus_C.txt" style="display:none">
```{r cache=FALSE, collapse=TRUE, results='asis'}
test<-read.csv2("BE_Genus_C.txt", header=FALSE, sep="\t")
knitr::kable(test)
```
</div>
<button title="Click to show answer" type="button" onclick="if(document.getElementById('BE_Genus_C.txt') .style.display=='none') {document.getElementById('BE_Genus_C.txt') .style.display=''}else{document.getElementById('BE_Genus_C.txt') .style.display='none'}">Show/hide</button>

---
标题：“测试泰伯伦”
输出：
html_文件：
主题：蔚蓝
推荐理由：textmate
代码折叠：隐藏
---
```{r}
setwd（“/Users/AnyName/Desktop/”）
```
#####31只包含在“控制”中的要素：
```{r cache=FALSE，collapse=TRUE，results='asis'}
测试只要在
div
后面加一行就足够了

<div id="BE_Genus_C.txt" style="display:none">
```{r cache=FALSE, collapse=TRUE, results='asis'}
test<-read.csv2("BE_Genus_C.txt", header=FALSE, sep="\t")
knitr::kable(test)
```

</div>


```{r cache=FALSE，collapse=TRUE，results='asis'}
测试