作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我在循环中使用官员(用于使用记者)来创建 150 个独特的文档。但是,我需要将这些文档从 R 导出为 word docx 和 pdf。
有没有办法将使用官员创建的文档导出为 pdf?
最佳答案
这是可能的,但我的解决方案取决于 libreoffice。这是我正在使用的代码。希望它会有所帮助。我已经对 libreoffice 路径进行了硬编码,那么您可能需要调整或改进变量 cmd_
的代码。
该代码正在将 PPTX 或 DOCX 文件转换为 PDF。
library(pdftools)
office_shot <- function( file, wd = getwd() ){
cmd_ <- sprintf(
"/Applications/LibreOffice.app/Contents/MacOS/soffice --headless --convert-to pdf --outdir %s %s",
wd, file )
system(cmd_)
pdf_file <- gsub("\\.(docx|pptx)$", ".pdf", basename(file))
pdf_file
}
office_shot(file = "your_presentation.pptx")
关于r - 使用官员创建 pdf 和 word docx,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52388945/
我正在尝试使用 Officer 更改段落的字体大小,但我做不到。谁能告诉我我做错了什么? library(officer) text_style <- fp_text(font.size = 12)
我是一名优秀的程序员,十分优秀!