从 R 中的官员包中自定义 ph_with 函数中的文本答案

【问题标题】：Customize text in the ph_with function from the officer package in R从 R 中的官员包中自定义 ph_with 函数中的文本
【发布时间】：2020-12-01 13:57:03
【问题描述】：

我正在尝试使用officer 包自动化我的PowerPoint 报告；但是，我不知道如何自定义文本（字体大小、颜色、字体）。

为了添加文本，我使用了ph_with() 函数。我尝试使用官员的ftext() 函数对其进行自定义，但它不起作用。用这个例子

library(officer)

dataframe <- data.frame(column="Sample")
ppt_temp <- read_pptx()
ppt_temp <- add_slide(ppt_temp)

properties <- fp_text(color = "red", font.size = 28, bold = TRUE)

slide_title <- ftext(paste0("These data cover ", dataframe$column[1]), properties)

slide <- ph_with(x = ppt_temp, value = slide_title, 
   location = ph_location_type(type = "title"))

我收到以下错误

Error in UseMethod("ph_with", value) :
  no applicable method for "ph_with" applied to an object of class "c('ftext', 'cot', 'run')"

如果我不尝试设置文本属性，这将起作用

slide <- ph_with(x = ppt_temp, value = paste0("These data cover ", dataframe$column[1]), 
    location = ph_location_type(type = "title))

有什么建议吗？

【问题讨论】：

@MrFlick，虽然我无法共享模板/数据来直接重现错误，但我在最近的编辑中包含了我的确切代码。

标签： r officer

【解决方案1】：

似乎ph_with 期望该值位于段落包装器中。将您的文本对象包裹在fpar() 中。试试

slide <- ph_with(x = ppt_temp, value = fpar(slide_title), 
    location = ph_location_type(type = "title"))

所以一个完整的例子是

library(officer)

dataframe <- data.frame(column="Sample")
ppt_temp <- read_pptx()
ppt_temp <- add_slide(ppt_temp)

properties <- fp_text(color = "red", font.size = 28, bold = TRUE)
slide_title <- ftext(paste0("These data cover ", dataframe$column[1]), properties)
slide <- ph_with(x = ppt_temp, value = fpar(slide_title),
                 location = ph_location_type(type = "title"))

print(ppt_temp, target="temp.pptx")

【讨论】：