commit 316fd74540ea0604be06924ef52f1df15ab2949a
author Stéphane Laurent <stephane.x.laurent@gsk.com> Sat Aug 12 21:02:52 2017 +0200
committer Stéphane Laurent <stephane.x.laurent@gsk.com> Sat Aug 12 21:02:52 2017 +0200
tree d88ec24054417c935147c322bf17364dd981576e
parent d5bda3409b0713dfea7d41d5021da3d672433914

fix issue #34

R/kable_styling.R

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")