allow column take vector for LaTeX
diff --git a/R/column_spec.R b/R/column_spec.R
index aa2f841..76df91b 100644
--- a/R/column_spec.R
+++ b/R/column_spec.R
@@ -146,9 +146,14 @@
align_collapse <- ifelse(table_info$booktabs, "", "\\|")
kable_align_old <- paste(table_info$align_vector, collapse = align_collapse)
- table_info$align_vector[column] <- latex_column_align_builder(
- table_info$align_vector_origin[column], width, bold, italic, monospace,
- color, background, border_left, border_right)
+ table_info$align_vector[column] <- unlist(lapply(
+ table_info$align_vector_origin[column],
+ function(x) {
+ latex_column_align_builder(
+ x, width, bold, italic, monospace,
+ color, background, border_left, border_right)
+ }
+ ))
kable_align_new <- paste(table_info$align_vector, collapse = align_collapse)