render.R

In chenmengkun/stat-5014-homework-6: Running R Scripts on a Schedule with GitHub Actions

library(rmarkdown)
output_file <- gsub(" ","_",gsub(':|- ', '_', Sys.time()),fixed=TRUE)
output_file <- paste0("data/report-",output_file)
rmarkdown::render(
    input         = "R/stock_summary.Rmd",
    output_format = "pdf_document",
    output_file   = output_file,
    output_dir    = "reports/",
    params        = list(
        symbols        = c('AAPL','MSFT','MRNA','BNTX','PFE'),
        show_code      = FALSE
    )
)