commit 2345676ee2dc26804f3e811e1bec95d8ca223205
author Hao Zhu <haozhu233@gmail.com> Mon Mar 26 12:30:10 2018 -0400
committer Hao Zhu <haozhu233@gmail.com> Mon Mar 26 12:30:10 2018 -0400
tree 620c2f6ed3b1650979048c1c0206efb2364a42ad
parent 2223eceafc04c819e3251b54b17f8b3d267be0ea

replace threeparttable with threeparttablex;
Fixed #119

R/add_header_above.R

diff --git a/R/add_header_above.R b/R/add_header_above.R
index fc2b805..c452288 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -71,6 +71,11 @@
                                                    bold, italic, monospace,line)
   xml_add_child(kable_xml_thead, new_header_row, .where = 0)
   out <- as_kable_xml(kable_xml)
+  if (is.null(kable_attrs$header_above)) {
+    kable_attrs$header_above <- 1
+  } else {
+    kable_attrs$header_above <- kable_attrs$header_above + 1
+  }
   attributes(out) <- kable_attrs
   if (!"kableExtra" %in% class(out)) class(out) <- c("kableExtra", class(out))
   return(out)

R/collapse_rows.R

diff --git a/R/collapse_rows.R b/R/collapse_rows.R
index 9feb93d..ec33c5a 100644
--- a/R/collapse_rows.R
+++ b/R/collapse_rows.R
@@ -46,7 +46,12 @@
   if (is.null(columns)) {
     columns <- seq(1, ncol(kable_dt))
   }
-  kable_dt$row_id <- rownames(kable_dt)
+  if (!is.null(kable_attrs$header_above)) {
+    kable_dt_col_names <- unlist(kable_dt[kable_attrs$header_above, ])
+    kable_dt <- kable_dt[-(1:kable_attrs$header_above),]
+    names(kable_dt) <- kable_dt_col_names
+  }
+  kable_dt$row_id <- seq(nrow(kable_dt))
   collapse_matrix <- collapse_row_matrix(kable_dt, columns)
 
   for (i in 1:nrow(collapse_matrix)) {

R/footnote.R

diff --git a/R/footnote.R b/R/footnote.R
index 9225ebf..0d1b3be 100644
--- a/R/footnote.R
+++ b/R/footnote.R
@@ -205,7 +205,7 @@
                                      table_info$ncol, threeparttable)
   if (threeparttable) {
       out <- sub(paste0("\\\\begin\\{", table_info$tabular, "\\}"),
-                 paste0("\\\\begin{threeparttable}\n\\\\begin{",
+                 paste0("\\\\begin{ThreePartTable}\n\\\\begin{",
                         table_info$tabular, "}"),
                  out)
     out <- sub(table_info$end_tabular,
@@ -213,7 +213,7 @@
                       "}\n\\\\begin{tablenotes}",
                       ifelse(footnote_as_chunk, "[para]", ""),
                       "\n\\\\small\n", footnote_text,
-                      "\n\\\\end{tablenotes}\n\\\\end{threeparttable}"),
+                      "\n\\\\end{tablenotes}\n\\\\end{ThreePartTable}"),
                out)
   } else if (table_info$booktabs) {
     out <- sub("\\\\bottomrule",

R/zzz.R

diff --git a/R/zzz.R b/R/zzz.R
index 74e9464..38c06b0 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -11,7 +11,7 @@
     usepackage_latex("colortbl")
     usepackage_latex("pdflscape")
     usepackage_latex("tabu")
-    usepackage_latex("threeparttable")
+    usepackage_latex("threeparttablex")
     usepackage_latex("ulem", "normalem")
   }
 }