Цикл для печати PDF на основе условия Excel - PullRequest
Новая
       14

Цикл для печати PDF на основе условия Excel

0 голосов
/ 09 октября 2018

Мне нужно объединить различные страницы в один PDF-отчет на основе информации Excel.

Мой Excel выглядит следующим образом: 

Column1 (Pages): 1, 2, 1, 2, 3, ...
Column2 (Report): Report A, Report A, Report B, Report B, Report B, ...

У меня есть следующий код: 

excel <- read.xlsx("C:/.../Excel.xlsx", sheetIndex = 1, stringsAsFactors=F)

path <- "C:/..."

report <- c(excel[1,5], excel[2,5])

#Set storage location
setwd("C:/...")

#Create PDF
pdf("xyz.pdf", onefile = TRUE,width = 2560/120, height=1437/120)

for (i in 1:2){

  print(ggdraw() + draw_image(paste(path, report[i], sep="")))
}
dev.off()

Вместо использования предустановленного цикла «для», я хочу выполнить цикл на основе столбца Excel 2 (при условии, что это один и тот же отчет: отчет A, отчет B, ...).Я не уверен, смогу ли я сделать это с while() или repeat()?

...