Merge pull request #325 from martinschmelzer/master
Fixes for #323 and #324 (update add_header_above.R)
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