save as csv not html

opensafely · Nov 22, 2023 · 6294b14 · 6294b14
1 parent 83df1db
commit 6294b14
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/analysis/table_ccw.R b/analysis/table_ccw.R
@@ -34,7 +34,7 @@ args <- commandArgs(trailingOnly=TRUE)
 if(length(args)==0){
   # use for interactive testing
   period <- "ba1"
-  model <- "cox"
+  model <- "plr"
   subgrp <- "full"
   supp <- "main"
 } else {
@@ -148,6 +148,6 @@ output_combined <-
 # 2. Save
 ################################################################################
 file_name <- 
-  make_filename("table_ccw", period, outcome = "primary", contrast = "", model, subgrp, supp, "html")
-gtsave(gt(output_combined), 
-       fs::path(tables_dir, file_name))
+  make_filename("table_ccw", period, outcome = "primary", contrast = "", model, subgrp, supp, "csv")
+write_csv(output_combined, 
+          fs::path(tables_dir, file_name))