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))