当我将 flextable 编织到 html 时，表格没有输出

Posted 2023-02-14

【中文标题】当我将 flextable 编织到 html 时，表格没有输出

【英文标题】：When I knit a flextable to html there is no output with the table

【发布时间】：2022-01-14 13:42:05

【问题描述】：

该表格在 markdown 中打印得很好，但在 knitted html 文件中不存在。我注意到它被归类为列表，但不知道如何将其更改为可接受的文件类型。针织输出未格式化为表格。感谢您的帮助。

library("crosstable") #important package crosstable() function
library('dplyr')
library("flextable")

tbl1 =  crosstable(mtcars2, c(1), by = 2) %>%
  as_flextable(keep_id=FALSE)
  print(tbl1)

【问题讨论】：

如果您担心为什么某些内容没有打印在 rmarkdown 文档中，那么显示足够的 markdown 文档会很有帮助（可能必要）以便我们收集全局和块选项。

只需删除print，即仅使用tbl1

【参考方案1】：

根据?print.flextable

另请注意，在 R markdown 文档中使用 flextable 时会使用打印方法。请参阅 knit_print.flextable()。

因此，如果我们想在 Rmarkdown 中打印，请使用 knitr::knit_print 或删除 print，如 ?knit_print.flextable 文档所示

你不应该直接调用这个方法。 knitr 包使用此函数自动在“R Markdown”文档中从块中显示弹性表格。

---
title: "Testing"
author: "akrun"
date: "09/12/2021"
output: html_document
---

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

```r, echo = FALSE
suppressPackageStartupMessages(library("crosstable")) #important package crosstable() function
suppressPackageStartupMessages(library('dplyr'))
suppressPackageStartupMessages(library("flextable"))

tbl1 =  crosstable(mtcars2, c(1), by = 2) %>%
    as_flextable(keep_id=FALSE)
 # either use knit_print or remove the print wrapper
 #knitr::knit_print(tbl1)
  tbl1   
```

-输出