根据Excel条件循环进行PDF打印

Question

我需要根据Excel信息将各个页面组合成一个PDF报告。

我的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()

我希望不使用预设的“ for”循环，而是基于Excel列2进行循环（只要它是相同的报告：Report A，Report B等）。我不确定是否可以使用while()或repeat()来做到这一点？