added full_width and color warning
diff --git a/R/row_spec.R b/R/row_spec.R
index 92d8150..d056c4a 100644
--- a/R/row_spec.R
+++ b/R/row_spec.R
@@ -248,12 +248,22 @@
})
}
if (!is.null(color)) {
+ if (table_info$tabular == "tabu") {
+ warning("Setting full_width = TRUE will turn the table into a tabu ",
+ "environment where colors are not really easily configable ",
+ "with this package. Please consider turn off full_width.")
+ }
new_row <- lapply(new_row, function(x) {
x <- clear_color_latex(x)
paste0("\\\\textcolor", latex_color(color), "\\{", x, "\\}")
})
}
if (!is.null(background)) {
+ if (table_info$tabular == "tabu") {
+ warning("Setting full_width = TRUE will turn the table into a tabu ",
+ "environment where colors are not really easily configable ",
+ "with this package. Please consider turn off full_width.")
+ }
new_row <- lapply(new_row, function(x) {
x <- clear_color_latex(x, background = TRUE)
paste0("\\\\cellcolor", latex_color(background), "\\{", x, "\\}")