change parmeter from align to latex_align to match existing parameter in function
diff --git a/R/group_rows.R b/R/group_rows.R
index 2684782..6cc8ec5 100644
--- a/R/group_rows.R
+++ b/R/group_rows.R
@@ -19,7 +19,7 @@
#' documents.
#' @param escape A T/F value showing whether special characters should be
#' escaped.
-#' @param align Adjust justification of group_label in latex only. Value should be "c" for
+#' @param latex_align Adjust justification of group_label in latex only. Value should be "c" for
#' centered on row, "r" for right justification, or "l" for left justification. Default
#' Value is "l" If using html, the alignment can be set by using the label_row_css
#' parameter.
@@ -36,7 +36,7 @@
index = NULL,
label_row_css = "border-bottom: 1px solid;",
latex_gap_space = "0.3em",
- escape = TRUE, align = "l", colnum = NULL) {
+ escape = TRUE, latex_align = "l", colnum = NULL) {
kable_format <- attr(kable_input, "format")
if (!kable_format %in% c("html", "latex")) {
@@ -47,21 +47,21 @@
}
if (is.null(index)) {
if (kable_format == "html") {
- if(!missing(align)) warning("Align parameter is not used in HTML Mode,
+ if(!missing(latex_align)) warning("latex_align parameter is not used in HTML Mode,
use label_row_css instead.")
return(group_rows_html(kable_input, group_label, start_row, end_row,
label_row_css, escape, colnum))
}
if (kable_format == "latex") {
return(group_rows_latex(kable_input, group_label, start_row, end_row,
- latex_gap_space, escape, align, colnum))
+ latex_gap_space, escape, latex_align, colnum))
}
} else {
index <- group_row_index_translator(index)
out <- kable_input
if (kable_format == "html") {
for (i in 1:nrow(index)) {
- if(!missing(align)) warning("Align parameter is not used in HTML Mode,
+ if(!missing(latex_align)) warning("latex_align parameter is not used in HTML Mode,
use label_row_css instead.")
out <- group_rows_html(out, index$header[i],
index$start[i], index$end[i],
@@ -72,7 +72,7 @@
for (i in 1:nrow(index)) {
out <- group_rows_latex(out, index$header[i],
index$start[i], index$end[i],
- latex_gap_space, escape, align, colnum)
+ latex_gap_space, escape, latex_align, colnum)
}
}
return(out)
@@ -127,7 +127,7 @@
}
group_rows_latex <- function(kable_input, group_label, start_row, end_row,
- gap_space, escape, align, colnum) {
+ gap_space, escape, latex_align, colnum) {
table_info <- magic_mirror(kable_input)
out <- enc2utf8(as.character(kable_input))
@@ -150,14 +150,14 @@
"\\\\multicolumn{", ifelse(is.null(colnum),
table_info$ncol,
colnum),
- "}{", align, "}{\\\\textbf{", group_label,
+ "}{", latex_align, "}{\\\\textbf{", group_label,
"}}\\\\\\\\\n",
rowtext
)
} else {
rowtext <- paste0("\\\\hline\n", rowtext)
new_rowtext <- paste0(
- "\\\\hline\n\\\\multicolumn{", table_info$ncol, "}{", align,"}{\\\\textbf{",
+ "\\\\hline\n\\\\multicolumn{", table_info$ncol, "}{", latex_align,"}{\\\\textbf{",
group_label, "}}\\\\\\\\\n", rowtext
)
}
diff --git a/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd b/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd
index 7c9f809..b942a0a 100644
--- a/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd
+++ b/tests/visual_tests/add_indent_and_group_rows_pdf.Rmd
@@ -30,7 +30,7 @@
dplyr::mutate(wt = paste0("%", mpg)) %>%
kable(format = "latex", booktabs = T) %>%
kable_styling() %>%
- group_rows("Group 1", 4, 7, align='r',colnum=3) %>%
+ group_rows("Group 1", 4, 7, latex_align='r',colnum=3) %>%
group_rows("Group 2", 8, 10)
```
@@ -39,7 +39,7 @@
kable(format = "latex", booktabs = T) %>%
kable_styling() %>%
group_rows("Group 1", 4, 7) %>%
- group_rows("Group 2", 8, 10, align='c') %>%
+ group_rows("Group 2", 8, 10, latex_align='c') %>%
group_rows("Group 2", 20, 22)
aa <- mtcars