问题描述
我想在 Word 文档中包含一个宽 flextable，以便它出现在横向页面上。
officeverse-guidebook (https://ardata-fr.github.io/officeverse/index.html) 包含有关如何在 Rmarkdown 中添加格式化段落或表格的示例。然而，它缺乏关于如何结合表格或图形解决纸张格式从纵向变为横向再返回的示例。
这个方法我试过了
# Appendix
## Timing
<!---BLOCK_LANDSCAPE_START--->
```{r,include=T}
tibble("Age of inclusion" = c("13 - 28"," ","20 - 28","22 - 28","24 - 28","26 - 28","28"),"1" = c("Graffities","Purse snatching","Driving w/o permit","Illegal\nemployment","Ill. advantage\nover employer","False claims\n(insurance)","Paying for\nservice w/o bill"),"2" = c("Scratching","Robbery","Hit and run","Drunk driving","Ill. advantage\nfor employer","False claims\n(public agency)","Illicit upload of\nproprietary media"),"3" = c("Vandalism","Burglary","Partner violence","Tax evasion"," "),"4" = c("Machine theft","Other thefts","False\nrepresentation\n(sale of goods)","5" = c("Shoplifting","Accepting\nstolen goods","Selling goods w/o\nintent to deliver","6" = c("Bicycle theft","Aggrav. assault\nw/o a weapon","Fraudul.\ninducement\nto contract","7" = c("Motor-vehicle\ntheft","Aggrav. assault\nwith a weapon","8" = c("Theft out of vehicle","Drug dealing"," ")) %>%
flextable %>%
flextable::align(j=1,align = "left",part = "all") %>%
bold(j = 1,bold = T) %>%
bold(i = 1,bold = T,part = "header") %>%
set_caption(table_nums("timing")) %>%
fit_to_width(max_width = 6.5,max_iter = 2)
```
<!---BLOCK_LANDSCAPE_end--->
Lorem ipsum …
没有用。
任何帮助将不胜感激。
最好的， 乔治
解决方法
这是一个例子：
---
date: "`r Sys.Date()`"
author: "Your Name"
title: "officedown template"
output:
officedown::rdocx_document:
mapstyles:
Normal: ['First Paragraph']
---
```{r setup,include=FALSE}
knitr::opts_chunk$set(echo = FALSE,fig.cap = TRUE)
library(officedown)
library(officer)
library(flextable)
op_section <- prop_section(type = "continuous")
close_section <- prop_section(
page_size = page_size(orient = "landscape"),type = "continuous")
```
```{r}
block_section(op_section)
```
```{r}
qflextable(head(mtcars))
```
```{r}
block_section(close_section)
```
您可以在此处阅读有关块的更多信息：
https://ardata-fr.github.io/officeverse/officedown-for-word.html#add-blocks