如何向officer包的已有block_list对象添加元素？

在officer包中，block_list本质是带有特定类属性的列表结构，因此可以通过以下两种简单方式扩展已创建的block_list对象：

方法一：使用c()函数合并元素 #

直接将已有block_list与新的fpar元素通过c()函数合并，即可得到扩展后的block_list：

library(officer) # 0.6.2

my_block_list_1 <- block_list(fpar("Something on the left",
                                   fp_p = fp_par(text.align = "left")))

# 扩展得到my_block_list_2
my_block_list_2 <- c(my_block_list_1, 
                     fpar("Something on the right",
                          fp_p = fp_par(text.align = "right")))

方法二：直接给列表追加元素 #

因为block_list是列表类型，也可以通过索引赋值的方式直接追加新元素：

library(officer) # 0.6.2

my_block_list_1 <- block_list(fpar("Something on the left",
                                   fp_p = fp_par(text.align = "left")))

# 先复制原对象，避免修改原数据
my_block_list_2 <- my_block_list_1
# 追加新的fpar元素
my_block_list_2[[length(my_block_list_2) + 1]] <- fpar("Something on the right",
                                                       fp_p = fp_par(text.align = "right"))

两种方法都能得到与示例中my_block_list_2完全一致的结果，且无需重复编写原block_list中的已有代码。

内容的提问来源于stack exchange，提问作者Patrick