如何在 html-文档中隐藏格式正确的 knitr::kable()?

How to hide correctly formatted knitr::kable() in html-documents?

我试图隐藏格式正确的 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>

只需在 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>