switch to openxlsx

Author: ljwoodley

DESCRIPTION

@@ -56,7 +56,7 @@ Imports:
     tidyr,
     vctrs,
     jsonlite,
-    writexl
+    openxlsx
 Suggests:
     RSQLite,
     digest,

Dockerfile

@@ -25,7 +25,7 @@ RUN R -e "install.packages(c( \
   'rjson', \
   'sendmailR', \
   'sqldf', \
-  'writexl', \
+  'openxlsx', \
   'kableExtra' \
 ))"
 

NAMESPACE

@@ -61,6 +61,6 @@ export(write_info_log_entry)
 export(write_summary_metrics)
 export(write_to_sql_db)
 importFrom(magrittr,"%>%")
+importFrom(openxlsx,write.xlsx)
 importFrom(rlang,.data)
 importFrom(sendmailR,"sendmail")
-importFrom(writexl,write_xlsx)

R/logging.R

@@ -656,7 +656,7 @@ write_info_log_entry <- function(conn, target_db_name, table_written = NULL, df,
 #'
 #' }
 #' @importFrom sendmailR "sendmail"
-#' @importFrom writexl write_xlsx
+#' @importFrom openxlsx write.xlsx
 #' @export
 send_email <-
   function(email_body,
@@ -711,7 +711,7 @@ send_email <-
           if (file_extension == "csv") {
             readr::write_csv(df_to_email[[i]], file_fullpath, ...)
           } else if (file_extension == "xlsx") {
-            writexl::write_xlsx(df_to_email[[i]], file_fullpath, ...)
+            openxlsx::write.xlsx(df_to_email[[i]], file_fullpath, ...)
           } else {
             stop("Unsupported file format. Use 'csv' or 'xlsx'.")
           }