R/do_render_rmd_pdf.R

In olesendan/doutilitiesr: Samling af functioner til R

#' @title
#' oprette pdf fra rmd   # Navn på funktion

#' @description
#' dette er en function til at oprette rapporter som pdf fra rmd

#' @details
#' den bruger specielle do templates at lave rapport
#
# Some useful keyboard shortcuts for package authoring:
#
#   Build and Reload Package:  'Ctrl + Shift + B'
#   Check Package:             'Ctrl + Shift + E'
#   Test Package:              'Ctrl + Shift + T'


#' @export
do_rend_rmd_pdf <- function( .input_name = "ex.rmd",
                             .output_name = "ex.pdf",
                             .output_dir = ".",
                             .input_dir = ".") {

idd <- here::here(.input_dir)
odd <- here::here(.output_dir)
iii <- .input_name
ooo <- .output_name
ttt <- here::here("temp")

rmarkdown::render( input = paste0( idd, iii),
                   output_format = "pdf_document",
                   output_file = ooo,
                   output_dir = odd,
                   intermediates_dir = ttt, # er aendret fra "../rmds/knitr/"
                   knit_root_dir = NULL, # er aendret fra "../rmds/knitr/"
                   clean = TRUE,
                   encoding = "UTF-8")

fs::file_show( path = paste0( odd, ooo))
}