rotate_pages | R Documentation |
If the toolkit Pdftk is available in the system, it will be called to rotate the given pages of the seleted PDF files
See the reference for detailed usage of pdftk
.
rotate_pages(
rotatepages,
page_rotation = c(0, 90, 180, 270),
input_filepath = NULL,
output_filepath = NULL,
overwrite = TRUE
)
rotatepages |
a vector of page numbers to be rotated |
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 |
TRUE if the operation was succesfful. FALSE if the operation fails.
Priyanga Dilini Talagala
https://www.pdflabs.com/tools/pdftk-the-pdf-toolkit/
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()
}
output_file <- file.path(dir, paste('Full_pdf.pdf', sep = ""))
staple_pdf(input_directory = dir, output_filepath = output_file)
input_path <- file.path(dir, paste("Full_pdf.pdf", sep = ""))
output_path <- file.path(dir, paste("Rotated_pgs_pdf.pdf", sep = ""))
rotate_pages(rotatepages = c(2,3), page_rotation = 90, input_path, output_path)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.