问题描述
我有一个很长的 flextable,我把它编织成文字输出。我的 flextable 有一个标题,我想在我的 flextable 标题之前的每一页上打印一个“附加标题”(我的标题的简短版本)。我试图找到解决方案,但我找不到任何有关它的信息。 有什么解决办法吗?
---
output:
word_document
---
```{r}
library(flextable)
ft1 <- flextable(iris)
library(officer)
ft1 <- set_caption(ft1,caption = "My caption",autonum = run_autonum() )
autofit(ft1)
```
解决方法
类似的东西?
---
title: "Untitled"
output: word_document
---
```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r}
library(flextable)
ft1 <- flextable(iris)
library(officer)
ft1 <- add_header_lines(ft1,"a short caption")
ft1 <- align(ft1,i = 1,part = "header",align = "right")
ft1 <- color(ft1,color = "orange")
ft1 <- set_caption(ft1,caption = "My caption",autonum = run_autonum() )
autofit(ft1)
```