cleanup. table style check now allows custom table styles

Author: JanMarvin

R/write.R

@@ -883,15 +883,16 @@ write_data_table <- function(
     }
 
     ## If 0 rows append a blank row
-    validNames <- c("none", paste0("TableStyleLight", seq_len(21)), paste0("TableStyleMedium", seq_len(28)), paste0("TableStyleDark", seq_len(11)))
+    cstm_tableStyles <- rbindlist(xml_attr(wb$styles_mgr$styles$tableStyles, "tableStyles", "tableStyle"))$name
+    validNames <- c("none", paste0("TableStyleLight", seq_len(21)), paste0("TableStyleMedium", seq_len(28)), paste0("TableStyleDark", seq_len(11)), cstm_tableStyles)
     if (!tolower(tableStyle) %in% tolower(validNames)) {
-      warning("Invalid table style.")
-    } else {
-      tableStyle <- grep(paste0("^", tableStyle, "$"), validNames, ignore.case = TRUE, value = TRUE)
-      tableStyle <- tableStyle[!is.na(tableStyle)]
-      if (length(tableStyle) == 0) {
-        warning("Unknown table style.")
-      }
+      stop("Invalid table style.")
+    }
+
+    tableStyle <- grep(paste0("^", tableStyle, "$"), validNames, ignore.case = TRUE, value = TRUE)
+    tableStyle <- tableStyle[!is.na(tableStyle)]
+    if (length(tableStyle) == 0) {
+      stop("Unknown table style.")
     }
 
     ## If zero rows, append an empty row (prevent XML from corrupting)