#' Create a PDF file
#'
#' Create pdf file to flush plots into
#'
#' @param PDFname Name of PDF file to export
#'
#' @examples
#' PDFname = "Macoki.pdf"
#' CreatePDF (PDFname)
#'
#' @export
#######################################################################################################################
CreatePDF <- function (PDFname) {
# A4 = 8.27 * 11.69
# plot area = 8 x 11 inches
# all 8 graphics into a single PDF
pdf(
file = PDFname,
width = 8.27,
height = 11.69,
onefile = TRUE,
paper = "A4"
)
par(mfrow = c(4, 2)) # rows and columns (for the plot)
par(mar = c(4, 4, 4, 4)) # margin of each graph (in lines)
#par(oma = c(1, 1, 1, 1)) # outer margin of all graphs (in lines)
par(pty = "s") # make axis square
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.