Improve an error message in #552
diff --git a/R/add_header_above.R b/R/add_header_above.R
index 49416ff..f6bc395 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -145,8 +145,8 @@
}
if (sum(header$colspan) != kable_ncol) {
- stop("The new header row you provided has a different total number of ",
- "columns with the original kable output.")
+ stop("The new header row you provided has a total of ", sum(header$colspan),
+ " columns but the original kable_input has ", kable_ncol, ".")
}
new_header_row <- htmlTable_new_header_generator(