commit 19f6b53af874d1b5149ba8511d3fc34a388cd0f4
author jokorn <jonatankornholt@outlook.com> Thu Nov 07 21:57:53 2019 +0100
committer GitHub <noreply@github.com> Thu Nov 07 21:57:53 2019 +0100
tree 87ba6f0561d81271da820c66c1bca30fa9a3d0c4
parent 1cb595e7df6f255a137fec0aec684e3d7c425b7a

stringsAsFactors = FALSE for the data frame input

R/add_header_above.R

diff --git a/R/add_header_above.R b/R/add_header_above.R
index dea0271..6beb5a0 100644
--- a/R/add_header_above.R
+++ b/R/add_header_above.R
@@ -98,7 +98,8 @@
   
   if (is.data.frame(header)){
     if(ncol(header) == 2 & is.character(header[[1]]) & is.numeric(header[[2]])){
-      header <- data.frame(header = header[[1]], colspan = header[[2]])
+      header <- data.frame(header = header[[1]], colspan = header[[2]],
+                           stringsAsFactors = FALSE)
     }
     else {
       stop("If header input is provided as a data frame instead of a named vector ",
@@ -238,7 +239,8 @@
   
   if (is.data.frame(header)){
     if(ncol(header) == 2 & is.character(header[[1]]) & is.numeric(header[[2]])){
-      header <- data.frame(header = header[[1]], colspan = header[[2]])
+      header <- data.frame(header = header[[1]], colspan = header[[2]],
+                           stringsAsFactors = FALSE)
     }
     else {
       stop("If header input is provided as a data frame instead of a named vector ",