[英]How to use index argument in ph_with_text function from officer package
[英]Customize text in the ph_with function from the officer package in R
我正在尝试使用官员 package 自动化我的 PowerPoint 报告; 但是,我不知道如何自定义文本(字体大小、颜色、字体)。
要添加文本,我使用的是 ph_with() function。 我尝试使用官员的 ftext() function 对其进行自定义,但它不起作用。 有了这个例子
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))
有什么建议么?
似乎ph_with
期望该值位于段落包装器中。 将您的文本 object 包装在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")
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.