如何在rmarkdown中使用大块文本控制可伸缩对象的大小

问题描述

在RMarkdown中使用flextable创建表时，我很费力，其中对于表中的一大串文本，PDF（和HTML）输出始终打印出很小的表。更改块标题中的设置（例如图高度）或使用flextable :: autofit（）或flextable :: width（）均无效。一个例子：

library(tidyverse) # for %>%
library(flextable)

text = "Lorem ipsum dolor sit amet,consectetur adipiscing elit,sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Quis blandit turpis cursus in hac habitasse platea dictumst quisque. Ornare massa eget egestas purus viverra accumsan in nisl. Sociis natoque penatibus et magnis dis. Odio euismod lacinia at quis. Pellentesque elit ullamcorper dignissim cras tincidunt. In egestas erat imperdiet sed euismod nisi porta lorem mollis. Convallis posuere morbi leo urna. Sit amet consectetur adipiscing elit duis tristique sollicitudin. Ac odio tempor orci dapibus ultrices in iaculis nunc. Egestas tellus rutrum tellus pellentesque eu tincidunt tortor."
df = as.data.frame(text)

text_in_box = flextable(df) %>%
  theme_box() %>%
  delete_part(part = "header") %>%
  align(align = "left",part = "all") %>%
  set_caption("Interesting text") %>% 
  autofit()
  
knitr::knit_print(text_in_box)

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

flextable r-markdown