From 6294b140ae2fb36f304bb30188ea3e855c7e4bc8 Mon Sep 17 00:00:00 2001
From: Linda Nab <linda.nab@thedatalab.org>
Date: Wed, 22 Nov 2023 21:22:59 +0000
Subject: [PATCH] save as csv not html

---
 analysis/table_ccw.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/analysis/table_ccw.R b/analysis/table_ccw.R
index 3949be3..7cc7ea3 100644
--- 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))