@NickKnauer Попробуйте это сейчас. Было несколько ошибок, но большая из них использовала grep вместо grepl.
учаю ежедневные электронные письма, где есть вложение, содержащее 1 zip-файл, содержащий 1 csv-файл.
В теле моего письма есть изображение, которое распознается как еще одно вложение, я в этом уверен.
Приведенный ниже сценарий работает, когда в теле письма есть только текст, но с изображением «Adobe Marketing Cloud» он портит сценарий.
Есть ли способ, которым я могу только прочитать, может быть, первое чтение вложения (при условии, что это будет zip-файл)?
Вот мой сценарий:
library(readr)
library(RDCOMClient)
outlook_app <- COMCreate("Outlook.Application")
search <- outlook_app$AdvancedSearch(
"Inbox",
"urn:schemas:httpmail:subject = 'SUBJECTNAME'"
)
Sys.sleep(5) # Wait a hot sec!
results <- search$Results() # Saves search results into results object
Sys.sleep(5) # Wait a hot sec!
results$Item(1)$ReceivedTime() # Received time of first search result
as.Date("1899-12-30") + floor(results$Item(1)$ReceivedTime()) # Received
date
# Iterates through results object to pull out all of the items
for (i in 1:results$Count()) {
if (as.Date("1899-12-30") + floor(results$Item(i)$ReceivedTime())
== as.Date(Sys.Date())) {
email <- results$Item(i)
}
}
attachment_file <- tempfile()
email$Attachments(1)$SaveAsFile(attachment_file)
##Automatically Determine csv file name
file_name<-unzip(attachment_file,list=TRUE)
csv_file<-file_name$Name
##Read CSV File
newly_read_data <- read_csv(unz(attachment_file,csv_file))
Ошибка приходит сюда:
file_name<-unzip(attachment_file,list=TRUE)
Error in unzip(attachment_file, list = TRUE) :
zip file 'C:\Temp\Rtmp86Gnzp\file29904a23387b' cannot be opened
Любая помощь будет отличной, спасибо!