add enc2utf8 to solve unicode issue
diff --git a/R/group_rows.R b/R/group_rows.R
index 47a02f0..1d848b7 100644
--- a/R/group_rows.R
+++ b/R/group_rows.R
@@ -85,7 +85,7 @@
group_rows_latex <- function(kable_input, group_label, start_row, end_row,
gap_space, escape) {
table_info <- magic_mirror(kable_input)
- out <- kable_input
+ out <- enc2utf8(as.character(kable_input))
if (escape) {
group_label <- escape_latex(group_label)
@@ -110,6 +110,7 @@
}
out <- sub(rowtext, new_rowtext, out)
out <- gsub("\\\\addlinespace\n", "", out)
+ out <- structure(out, format = "latex", class = "knitr_kable")
table_info$group_rows_used <- TRUE
attr(out, "kable_meta") <- table_info
out <- add_indent(out, seq(start_row, end_row))