如何解决使用pander标题在for循环中打印可反应表格
我想从数据集中的一个组创建标题。然后,在每个组中,我想在该组所属的每个标题下打印一个可反应的表格。这是我尝试过的:
---
title: "test"
author: ""
date: '2020-10-13'
output:
html_document:
theme: flatly
toc: true
toc_float:
collapsed: true
---
```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library(pander)
library(reactable)
library(tidyverse)
library(kableExtra)
library(knitr)
```
```{r results='asis'}
panderOptions('knitr.auto.asis',FALSE)
for(spec in unique(iris$Species)){
pander::pandoc.header(spec,level = 1)
iris_filt = iris %>%
filter(Species == spec)
print(iris_filt %>%
reactable())
# Does work
#print(iris_filt %>%
# kable())
}
```
这仅给我提供标题,但不打印表格。确实适用于使用print + kable的普通表。
关于如何使其与Reactable一起工作的任何想法?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。