R/helper_functions.R

In mluu921/cshshelper: What the Package Does (One Line, Title Case)

knit_with_date <- function(input, ...) {
  rmarkdown::render(
    input,
    output_file = paste0(
      xfun::sans_ext(inputFile), '-', Sys.Date(), '.',
      xfun::file_ext(inputFile)
    )
  )
}