Блог

Пожалуйста, простите меня, если это не идеально, но это мой первый пост.

В настоящее время я работаю над попыткой преобразовать большое количество документов .docx в .pdf

Я нашел пакет RDCOMClient, который сотворил чудеса. Однако теперь мне нужно добавить альтернативный текст в мои диаграммы. Код, который я использую, приведен ниже:

 library(RDCOMClient)
library(plyr)
library(tidyverse)

# this will destroy all objects in your workspace so be careful
# rm(list = ls()) # deletes all data frames

file <- "directory"

wordApp <- COMCreate("Word.Application")  # create COM object
wordApp[["Visible"]] <- FALSE #opens a Word application instance visibly if true 
wordApp[["Documents"]]$Add() #adds new blank docx in your application
wordApp[["Documents"]]$Open(Filename=file) #opens your docx in wordApp

#THIS IS THE MAGIC    
wordApp[["ActiveDocument"]]$SaveAs("Directory", 
                                   FileFormat=17) #FileFormat=17 saves as .PDF

wordApp[["ActiveDocument"]]$Close(SaveChanges = 1) # says there are no changes that need saving
  

Там, где есть функция в double [], как документы, есть ли что-нибудь для диаграммы.

Я нашел их полный список для Excel по ссылке здесь: http://www.omegahat.net/RDCOMClient/Docs/introduction.html

Однако я попытался установить пакет SWinTypeLibs, чтобы получить то же самое для word, используя следующий код:

 install.packages("remotes")
remotes::install_github("omegahat/SWinTypeLibs")
  

и продолжайте получать сообщение об ошибке

если у кого-нибудь есть список для word, подобный приведенному выше Excel, он действительно понадобится.

Заранее спасибо за помощь.

Джеймс

Я применил быстрое исправление к .Документы Rd в исходном пакете от omegahat. Вы можете найти его здесь — должен скомпилироваться сейчас.

karnner2/SWinTypeLibs

 devtools::install_github("Karnner2/SWinTypeLibs")