Julie report

app/.Rprofile

@@ -0,0 +1 @@
+source("renv/activate.R")

app/app.R

@@ -411,13 +411,16 @@ server <- function(input, output, session) {
     content = function(file) {
       temp_report <- file.path(tempdir(), "report.Rmd")
       file.copy("report.Rmd", temp_report, overwrite = TRUE)
+      temp_styles <- file.path(tempdir(), "styles.docx")
+      file.copy("styles.docx", temp_styles, overwrite = TRUE)
       files <- purrr::map_chr(input$sample_id, ~ {
         params <- list(
           qc_data = dplyr::filter(qc(), sample == .),
           pred_data = dplyr::filter(dat_preds(), sample == .)
         )
         rmarkdown::render(
           input = temp_report,
+          output_format = rmarkdown::word_document(reference_docx = temp_styles),
           output_file = paste0("report_", ., ".docx"),
           params = params,
           envir = new.env(parent = globalenv()),

app/app.Rproj

@@ -0,0 +1,16 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+AutoAppendNewline: Yes
+StripTrailingWhitespace: Yes