set name of PDF document

NEWS.md

@@ -2,6 +2,7 @@
 
 * Add support for costings from the DM reporting group.
 * Refer to Institution rather than Sponsor on the costing PDF.
+* MZ noticed that the filename in adobe is sometimes shown as "A test document". This update changes it to the filename instead.
 
 # CTUCosting 0.4.9 (2024-04-10)
 

R/gen_pdf.R

@@ -62,7 +62,8 @@ gen_pdf <- function(output,
                       fte = inputs$fte,
                       include_design = inputs$include_design,
                       include_int = inputs$include_int,
-                      include_participants = inputs$include_participants
+                      include_participants = inputs$include_participants,
+                      filename = inputs$filename
                       ),
                     clean = FALSE
                     )

inst/app/server.R

@@ -564,6 +564,14 @@ function(input, output, session){
 
   # downloads ----
   ## PDF ----
+  fname <- function(cons_num,
+                    proj_num,
+                    studyname){
+      num <- cons_num
+      if(!is.na(proj_num)) num <- paste0("Amendment_P", proj_num)
+      paste0("Costing_", num, "_", studyname, "_", Sys.Date(), ".pdf")
+  }
+
   output$pdf <- downloadHandler(
     filename = function(cons_num = info()$consultingnum,
                         proj_num = info()$projnum,
@@ -601,6 +609,7 @@ function(input, output, session){
       inputs$include_design <- input$include_design
       inputs$include_int <- input$include_int
       inputs$include_participants <- input$include_participants
+      inputs$filename <- fname(info()$consultingnum, info()$projnum, info()$acronym)
 
       inputs$break_tasks <- unlist(strsplit(input$break_tasks, ","))
 

inst/ext/template.Rmd

@@ -1,5 +1,5 @@
 ---
-title: "A test document"
+title: "`r params$filename`"
 output:
     pagedown::html_paged
 knit: pagedown::chrome_print
@@ -35,6 +35,7 @@ params:
   include_design: TRUE
   include_int: TRUE
   include_participants: TRUE
+  filename: "filename"
 header-logo: "`r system.file('ext/ub_Logo_english_2019_RGB_wb.png', package = 'ctucosting')`"
 ---