# \dontshow{
if (requireNamespace("lattice", quietly = TRUE)) {
dir <- tempfile()
dir.create(dir)
for(i in 1:3) {
pdf(file.path(dir, paste("plot", i, ".pdf", sep = "")))
print(lattice::xyplot(iris[,1] ~ iris[,i], data = iris))
dev.off()
}
n <- length(Sys.glob(file.path(dir,"*.pdf")))
rename_files(input_directory = dir, new_names = paste("file",1:n))
}
# }
Run the code above in your browser using DataLab