Knitr：如何隐藏Knitr:：kable（）表，以便在html文档中正确显示？

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

---
title: "Test-Tabellen"
output: 
  html_document:
    code_folding: hide
---

<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_文件：
代码折叠：隐藏
---
```{r cache=FALSE，collapse=TRUE，results='asis'}
test发生这种情况的原因是，因此在R代码块和closing
div
标记之间添加一个额外的行：

<div id="BE_Genus_C.txt" style="display:none">
```{r cache=FALSE, collapse=TRUE, results='asis'}
knitr::kable(head(iris))
```

</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>


```{r cache=FALSE，collapse=TRUE，results='asis'}
刀：卡布尔（头（虹膜））
```
显示/隐藏

下次不要忘了使用一个可复制的示例（例如，iris

vs

read.csv

）

这是因为，所以在R代码块和关闭

div

标记之间添加一个额外的行：

<div id="BE_Genus_C.txt" style="display:none">
```{r cache=FALSE, collapse=TRUE, results='asis'}
knitr::kable(head(iris))
```

</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>

```{r cache=FALSE，collapse=TRUE，results='asis'}
刀：卡布尔（头（虹膜））
```
显示/隐藏

---

下次不要忘记使用一个可复制的示例（例如

iris

vs

read.csv

））

在

div

标记和R代码块之间添加一个额外的换行符。非常感谢！它对我有用：）如果你再加上这个作为答案，我可以检查它为“帮助我”（绿色标志），如果你想。我做了一点测试：只需要在块结束后有一个换行符。在

div

标记和R代码块之间添加一个额外的换行符。非常感谢！它对我有用：）如果你再加上这个作为答案，我可以检查它为“帮助我”（绿色标志），如果你想。我做了一点测试：只需要在块结束后有一个换行符。@TheGreenOne，我刚想到我维护了一个R包，将R对象转换为标记，名为

pander

，它会自动将额外的换行符添加到表的末尾，因此，您的问题的另一个解决方案可能是将

knitr:：kintr

替换为

pander:：pander

，而不是额外的换行符。@greenone和我刚刚想到的是，我维护了一个R包，将R对象转换为名为

pander

的标记，这会自动将额外的换行符添加到表的末尾，因此解决问题的另一个方法可能是将

knitr:：kintr

替换为

pander:：pander

，而不是额外的换行符。