diff --git a/R/add_header_above.R b/R/add_header_above.R
index 1ff5f1e..0d90117 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -129,7 +129,7 @@
   header_names <- names(header)
   header <- as.numeric(header)
   names(header) <- header_names
-  return(data.frame(header = names(header), colspan = header, row.names = NULL))
+  return(data.frame(header = names(header), colspan = header, row.names = NULL, stringsAsFactors = F))
 }
 
 htmlTable_new_header_generator <- function(header_df, bold, italic, monospace,
@@ -267,7 +267,7 @@
   font_size <- ez_rep(font_size, n)
   angle <- ez_rep(angle, n)
   if (!booktabs) {
-    align[1:(nrow(header_df) - 1)] <- paste0(align, "|")
+    align[1:(n - 1)] <- paste0(align[1:(n - 1)], "|")
   }
   header <- header_df$header
   colspan <- header_df$colspan