Merge pull request #38 from stla/master
fix issue #34
diff --git a/R/kable_styling.R b/R/kable_styling.R
index bb9cd4c..e1d5c81 100644
--- a/R/kable_styling.R
+++ b/R/kable_styling.R
@@ -292,14 +292,15 @@
continue_line <- paste0("\\caption[]{", repeat_header_text, "}\\\\")
}
- x <- x[x != "\\bottomrule"]
+ index_bottomrule <- which(x == "\\bottomrule")
+ x <- x[-index_bottomrule]
+ x[index_bottomrule - 1] <- paste0(x[index_bottomrule - 1], "*\\bottomrule")
x <- c(
x[1:header_rows_end],
"\\endfirsthead",
continue_line,
x[header_rows_start:header_rows_end],
"\\endhead",
- "\\bottomrule\\endlastfoot",
x[(header_rows_end + 1):length(x)]
)
x <- paste0(x, collapse = "\n")