Update style of tables in write_to_xlsx().

bschneidr · Oct 19, 2020 · eebd2a4 · eebd2a4
1 parent 5d6f3f8
commit eebd2a4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/write_to_xlsx.R b/R/write_to_xlsx.R
@@ -39,7 +39,8 @@ write_to_xlsx <- function(x, wb_name = NULL, open_wb = TRUE) {
     # Write the data (If the content is a dataframe, write as a table)
     if (is.data.frame(content_list[[content_index]])) {
       openxlsx::writeDataTable(wb, sheet = sheet_name,
-                               x = content_list[[content_index]])
+                               x = content_list[[content_index]],
+                               tableStyle = "TableStyleMedium16")
     } else {
       openxlsx::writeData(wb, sheet = sheet_name,
                           x = content_list[[content_index]])