是否使用R在.docx报表中创建页眉和页脚？

install.packages("officer")
library(officer)

# 创建一个新的.docx文档
doc <- docx()

# 添加页眉
header_text <- "这是页眉内容"
header <- block_text(header_text, prop = fp_text(color = "white", font.size = 10))
header <- block_pptx(header, bg = "blue")
header <- block_padding(header, padding = 10)
header <- block_border(header, border = "bottom", color = "white", width = 2)
header <- block_align(header, align = "center")
header <- block_offset(header, offset = 10)
header <- block_position(header, position = "header")
header <- block_position(header, position = "header", vertical = "top")
header <- block_position(header, position = "header", horizontal = "center")
header <- block_position(header, position = "header", vertical = "top", horizontal = "center")
header <- block_position(header, position = "header", vertical = "top", horizontal = "center", width = 500)

doc <- header_add(doc, header)

# 添加页脚
footer_text <- "这是页脚内容"
footer <- block_text(footer_text, prop = fp_text(color = "black", font.size = 10))
footer <- block_pptx(footer, bg = "white")
footer <- block_padding(footer, padding = 10)
footer <- block_border(footer, border = "top", color = "black", width = 1)
footer <- block_align(footer, align = "center")
footer <- block_offset(footer, offset = 10)
footer <- block_position(footer, position = "footer")
footer <- block_position(footer, position = "footer", vertical = "bottom")
footer <- block_position(footer, position = "footer", horizontal = "center")
footer <- block_position(footer, position = "footer", vertical = "bottom", horizontal = "center")
footer <- block_position(footer, position = "footer", vertical = "bottom", horizontal = "center", width = 500)

doc <- footer_add(doc, footer)

# 保存文档
print(doc, target = "path/to/your/docx/file.docx")