我希望从 R Notebook 编写一个 html 文件,其中包含带有超链接的分页表。
可以使用插入超链接knitr::kable
,但我找不到生成的方法paged
由于我的问题似乎没有完美的解决方案,我想我应该发布我想出的解决方法 - 以防有人遇到类似的问题。
我创建了表格以及超链接knitr::kable
然后添加一个 html 按钮内联 JavaScript https://www.w3schools.com/howto/tryit.asp?filename=tryhow_js_toggle_hide_show切换可见性 - 不像分页表那么优雅,但可以完成工作。
请注意<script>
文件底部的标记hides https://stackoverflow.com/questions/4644673/hide-all-elements-with-class-using-plain-javascript默认情况下的表。
(将代码粘贴到 RStudio 中的 .Rmd 文件中):
---
title: "Managing large tables with hyperlinks in html notebook"
output:
html_notebook:
code_folding: "hide"
---
<script>
function myFunction(id) {
var x = document.getElementById(id);
if (x.style.display === 'none') {
x.style.display = 'block';
} else {
x.style.display = 'none';
}
}
</script>
```{r}
library(knitr)
df1 <- data.frame(Month=month.name, Link=paste0("[", month.name, "](https://en.wikipedia.org/wiki/", month.name, ")"))
```
<button class="button" onclick="myFunction('DIV_months')">Show/hide table</button>
<div id="DIV_months" class="div_default_hide">
```{r}
knitr::kable(df1)
```
</div>
<script>
var divsToHide = document.getElementsByClassName("div_default_hide");
for(var i = 0; i < divsToHide.length; i++)
{
divsToHide[i].style.display = 'none';
}
</script>
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)