在使用officer插入到powerpoint中的flextable创建的表格中设置行高

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

library(flextable)

# 创建一个空的flextable对象
my_table <- flextable()

# 添加表格内容
my_table <- add_header_lines(my_table, values = c("Header 1", "Header 2"))
my_table <- add_body_lines(my_table, values = c("Value 1", "Value 2"))

# 设置表格的行高
my_table <- height(my_table, part = "all", height = 1)  # 设置所有行的行高为1英寸

# 创建一个PowerPoint文档
ppt <- read_pptx()

# 在文档中插入表格
ppt <- add_slide(ppt, layout = "Title and Content")
ppt <- ph_with(ppt, my_table, location = ph_location_type(type = "body"))

# 保存PowerPoint文档
output_file <- "output.pptx"
print(ppt, target = output_file)