在 r (Rmd) 中的每个 flextable 之后插入空格

Question

我有这个问题：

问题：

我在同一个 r 块中有多个 flextable 对象：

mtcars %>% 
  select(1:3) %>% 
  head() %>% 
  flextable()

mtcars %>% 
  select(1:3) %>% 
  head() %>% 
  flextable()

但是当我在officedown::rdocx_document 中编织 Rmd 时，表格看起来像这样粘在一起： 这是一个问题，因为粘贴多个表格会更改以下表格的大小，并且 Word 会将其视为单个大表格。所以我设法以这种方式解决它：

library(tidyverse)
library(flextable)
library(officer)
library(officedown)

mtcars %>% 
  select(1:3) %>% 
  head() %>% 
  flextable()

officer::run_linebreak()

mtcars %>% 
  select(1:3) %>% 
  head() %>% 
  flextable()

现在表格之间有一行或 Enter。所以我想知道的是将这两个功能合二为一，这样我就不必使用两个不同的功能。像这样的东西：

mtcars %>% 
  select(1:3) %>% 
  head() %>% 
  table_and_enter()

mtcars %>% 
  select(1:3) %>% 
  head() %>% 
  table_and_enter()

我真正想要的是表格之间的空间，所以如果您找到更有效的方法，请随时提出建议。

目的：

• 在每个 flextable 对象之后插入一行（Enter），并带有一行代码。

尝试：

• 显然，即使您多次使用 return()，r 中的函数也无法检索对象和函数。

谢谢。

Answer 1

如果您希望 return() 从一个函数返回多个对象，您可以将这些对象放在一个列表中并返回该列表。

my_fun <- function(x, y){
  x = x+1
  y = x*y
  
  the_list <- list(x, y)
  
  return(the_list)
}

my_fun(3, 4)