fix typo
diff --git a/R/add_header_above.R b/R/add_header_above.R
index d5c4521..409722b 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -117,10 +117,11 @@
# If there is no existing header, add one
if (is.null(kable_xml_thead)) {
- xml_add_child(kable_xml, 'thead', .where = 0) # Add thead node as first child
+ # Add thead node as first child
+ xml_add_child(kable_xml, 'thead', .where = 0)
kable_xml_thead <- xml_tpart(kable_xml, 'thead')
- # To check the number of colums in the new header, compare it to body
+ # To check the number of columns in the new header, compare it to body
kable_xml_tbody <- xml_tpart(kable_xml, 'tbody')
body_rows <- xml_children(kable_xml_tbody)
kable_ncol <- max(xml_length(body_rows))