r - 为什么在 rmarkdown 的函数中使用时 kable 不打印

Question

我必须在许多 rmarkdown 报告中重复某些输出，并想编写一个用于此的函数。

当我编织 rmd 文件而不是 kable 数据帧时，调用函数输出绘图正常。

例如

---
title: "Markdown example"
output: html_document
---

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

# Markdown example
```{r mtcars}
make_outputs <- function(){
  knitr::kable(head(mtcars))
  plot(mtcars$mpg, mtcars$cyl)
  hist(mtcars$cyl)
}

make_outputs()

```

显示绘图但不显示 kable 表。

Answer 1

您可以使用 print 来做到这一点。打印 kable 输出，设置 results="asis"的代码块，然后使用 kable_styling来自包装kableExtra .

这对我有用:

```{r mtcars, results='asis'}

library(kableExtra)
library(knitr)

make_outputs <- function(){
  print(kable_styling(kable(head(mtcars))))
  plot(mtcars$mpg, mtcars$cyl)
  hist(mtcars$cyl)
}

make_outputs()
```