If the toolkit Pdftk is available in the system, it will be called to rotate the entire PDF document
See the reference for detailed usage of pdftk
.
rotate_pdf( page_rotation = c(0, 90, 180, 270), input_filepath = NULL, output_filepath = NULL, overwrite = TRUE )
page_rotation | An integer value from the vector c(0, 90, 180, 270). Each option sets the page orientation as follows: north: 0, east: 90, south: 180, west: 270. Note that the orientation cannot be cummulatively changed (eg. 90 (east) will always turn the page so the beginning of the page is on the right side) |
---|---|
input_filepath | the path of the input PDF file. The default is set to NULL. IF NULL, it prompt the user to select the folder interactively. |
output_filepath | the path of the output PDF file. The default is set to NULL. IF NULL, it prompt the user to select the folder interactively. |
overwrite | If a file exists in |
this function returns a PDF document with the rotated pages
https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
Priyanga Dilini Talagala
if (FALSE) { # This command prompts the user to select the file interactively. # Rotate the entire PDF document to 90 degrees clockwise rotate_pdf(page_rotation = 90) } if (FALSE) { dir <- tempdir() require(lattice) for(i in 1:3) { pdf(file.path(dir, paste("plot", i, ".pdf", sep = ""))) print(xyplot(iris[,1] ~ iris[,i], data = iris)) dev.off() } output_file <- file.path(dir, paste('Full_pdf.pdf', sep = "")) staple_pdf(input_directory = dir, output_file) input_path <- file.path(dir, paste("Full_pdf.pdf", sep = "")) output_path <- file.path(dir, paste("rotated_pdf.pdf", sep = "")) rotate_pdf( page_rotation = 90, input_path, output_path) }