r - kable/kableExtra 的条件输出样式

Question

有没有能力写个函数导出kable或 kableExtra基于 knitr 输出的不同格式的表格创造。
具体来说，我想要 format = "simple"为 .docx和 format = "html"为 .html .
我找不到任何这方面的例子，所以不确定是否不可能。

Answer 1

也许这可能会有所帮助( eval=knitr::is_html_output() 用于 html 块):

---
title: "Untitled"
output:
  html_document: default
  word_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F)
library(kableExtra)
```

## Conditional

```{r html, eval=knitr::is_html_output()}
dt <- mtcars[1:5, 1:6]
kbl(dt, "html", booktabs = T)
```

```{r docx}
dt <- mtcars[1:5, 1:6]
kbl(dt, "simple", booktabs = T)
```