diff --git a/R/add_header_above.R b/R/add_header_above.R
index 7d5deef..dea0271 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -97,7 +97,7 @@
   kable_xml_thead <- xml_tpart(kable_xml, "thead")
   
   if (is.data.frame(header)){
-    if(ncol(header) == 2 & is.character(header[[1]]) & is.numeric(header[[2]]){
+    if(ncol(header) == 2 & is.character(header[[1]]) & is.numeric(header[[2]])){
       header <- data.frame(header = header[[1]], colspan = header[[2]])
     }
     else {
@@ -237,7 +237,7 @@
   table_info <- magic_mirror(kable_input)
   
   if (is.data.frame(header)){
-    if(ncol(header) == 2 & is.character(header[[1]]) & is.numeric(header[[2]]){
+    if(ncol(header) == 2 & is.character(header[[1]]) & is.numeric(header[[2]])){
       header <- data.frame(header = header[[1]], colspan = header[[2]])
     }
     else {