diff --git a/.github/workflows/run-tests.yaml b/.github/workflows/run-tests.yaml
index f1cb221..8faedbb 100644
--- a/.github/workflows/run-tests.yaml
+++ b/.github/workflows/run-tests.yaml
@@ -11,7 +11,7 @@ jobs:
     runs-on: ubuntu-latest
 
     container:
-      image: ghcr.io/ctsit/rstudio-ci:4.2.1
+      image: ghcr.io/ctsit/rstudio-ci:4.3.3
 
     env:
       CI: "TRUE"
diff --git a/DESCRIPTION b/DESCRIPTION
index 7a17f75..b295af3 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -56,7 +56,7 @@ Imports:
     tidyr,
     vctrs,
     jsonlite,
-    writexl
+    openxlsx
 Suggests:
     RSQLite,
     digest,
diff --git a/Dockerfile b/Dockerfile
index 5b0b123..054fd04 100644
--- a/Dockerfile
+++ b/Dockerfile
@@ -25,7 +25,7 @@ RUN R -e "install.packages(c( \
   'rjson', \
   'sendmailR', \
   'sqldf', \
-  'writexl', \
+  'openxlsx', \
   'kableExtra' \
 ))"
 
diff --git a/NAMESPACE b/NAMESPACE
index 44a7a30..1127fe9 100644
--- a/NAMESPACE
+++ b/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)
diff --git a/R/logging.R b/R/logging.R
index 36679dd..4b0e559 100644
--- a/R/logging.R
+++ b/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'.")
           }