fix rstudio/bookdown#166: close the table with a dashed line when tab…

…le header is empty
yihui · Jul 28, 2016 · ad5b0bf · ad5b0bf
1 parent 46dbd61
commit ad5b0bf
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/table.R b/R/table.R
@@ -336,8 +336,10 @@ kable_markdown = function(x, padding = 1, ...) {
 }
 
 kable_pandoc = function(x, caption = NULL, padding = 1, ...) {
-  tab = kable_mark(x, c(NA, '-', if (is.null(colnames(x))) '-' else NA),
-                   padding = padding, ...)
+  tab = kable_mark(
+    x, c(NA, '-', if (is_blank(colnames(x))) '-' else NA),
+    padding = padding, ...
+  )
   if (identical(caption, NA)) caption = NULL
   if (length(caption)) c(paste('Table:', caption), "", tab) else tab
 }