Fix #527
diff --git a/R/column_spec.R b/R/column_spec.R
index 77f0c69..91f9777 100644
--- a/R/column_spec.R
+++ b/R/column_spec.R
@@ -138,21 +138,6 @@
border_right <- T
}
- if (include_thead) {
- kable_thead <- xml_tpart(kable_xml, "thead")
- nrow_thead <- length(xml_children(kable_thead))
- for (j in column) {
- target_cell <- xml_child(xml_child(kable_thead, nrow_thead), j)
- column_spec_html_cell(
- target_cell, width, width_min, width_max,
- bold[1], italic[1], monospace[1], underline[1], strikeout[1],
- color[1], background[1], border_left, border_right,
- border_l_css, border_r_css,
- extra_css[1], link[1], new_tab[1], tooltip[1], popover[1]
- )
- }
- }
-
nrows <- length(all_contents_rows)
off <- 0
@@ -169,6 +154,21 @@
popover <- ensure_len_html(popover, nrows, "popover")
image <- ensure_len_html(image, nrows, "image")
+ if (include_thead) {
+ kable_thead <- xml_tpart(kable_xml, "thead")
+ nrow_thead <- length(xml_children(kable_thead))
+ for (j in column) {
+ target_cell <- xml_child(xml_child(kable_thead, nrow_thead), j)
+ column_spec_html_cell(
+ target_cell, width, width_min, width_max,
+ bold[1], italic[1], monospace[1], underline[1], strikeout[1],
+ color[1], background[1], border_left, border_right,
+ border_l_css, border_r_css,
+ extra_css[1], link[1], new_tab[1], tooltip[1], popover[1], image[1]
+ )
+ }
+ }
+
for (i in seq(length(all_contents_rows))) {
for (j in column) {
target_cell <- xml_child(xml_child(kable_tbody, all_contents_rows[i]), j)