commit 1cb595e7df6f255a137fec0aec684e3d7c425b7a
author jokorn <jonatankornholt@outlook.com> Thu Nov 07 21:26:54 2019 +0100
committer GitHub <noreply@github.com> Thu Nov 07 21:26:54 2019 +0100
tree 946311b6607e37b856804b9b15259646e5fc9f89
parent a00ad668763ef04e7dd9d7bf34d2d4d057f18b57

parenthesis error

R/add_header_above.R

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 {