if (requireNamespace("lattice", quietly = TRUE)) {
dir <- tempfile()
dir.create(dir)
for(i in 1:2) {
pdf(file.path(dir, paste("plot", i, ".pdf", sep = "")))
print(lattice::xyplot(iris[,1] ~ iris[,i], data = iris))
dev.off()
}
output <- tempfile(fileext = '.pdf')
combine_pdf(
vec_input =
file.path(dir, paste("plot", 1:2, ".pdf", sep = "")),
output = output,
start_pages = c(NA, NA),
end_pages = c(NA, NA)
)
}
Run the code above in your browser using DataLab