如何在警官R

如何解决如何在警官R

我正在尝试使用Officer包来创建docx。我想创建具有不同级别和文本样式的段落，同时让每个段落都有自己的边框。我尝试将fp_par与block_list命令和fpar命令一起使用，但是没有运气。有任何想法吗？这是我一直在尝试的：

library(officer)
library(dplyr)

reg24 <- fp_text(color = "black",font.size = 24)
bold <- fp_text(color = "black",font.size = 24,bold = TRUE)
underline <- fp_text(color = "black",underlined = TRUE)
bigbold <- fp_text(color = "black",font.size = 28,bold = TRUE)
border <- fp_par(
  text.align = "left",padding = 0,border = fp_border(color = "black",style = "solid",width = 1))

summary <- block_list(
fpar(ftext("9",bigbold),ftext("Address",bold))%>%
    fpar(ftext("Status:",underline),ftext("Under Construction",reg24))%>%
    fpar(ftext("Expected Completion:",ftext("2020",reg24))%>%
    fpar(ftext("Investment:",ftext("$2,000,000")))

我不确定从这里开始应该走什么路，因为似乎没有一种方法可以使段落具有不同的级别，不同的文字样式，和边框。有什么建议吗？

解决方法

您可以使用以下示例：

library(officer)
library(dplyr)

img.file <- file.path( R.home("doc"),"html","logo.jpg" )
fpt_blue_bold <- fp_text(color = "#006699",bold = TRUE)
fpt_red_italic <- fp_text(color = "#C32900",italic = TRUE)

border <- fp_par(
  text.align = "left",padding = 0,border.bottom = fp_border(color = "red",style = "solid",width = 1))

value <- block_list(
  fpar(ftext("hello world",fpt_blue_bold),fp_p = border),fpar(ftext("hello"," ",ftext("world",fpt_red_italic))
)


read_docx() %>% 
  body_add_blocks(value) %>% 
  print(target = "coco.docx")