Fix bug in which values for multiple logical columns were collapsed into a single...

git-svn-id: svn://scm.r-forge.r-project.org/svnroot/xtable@5 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/R/xtable.R b/pkg/R/xtable.R
index ec6a770bf44d33acdbb2ffd955f1a19d39228a62..d082a0601f472b967e594c26dbd3b2345e1afb4e 100644 (file)
--- a/pkg/R/xtable.R
+++ b/pkg/R/xtable.R
@@ -31,7 +31,7 @@ xtable <- function(x,caption=NULL,label=NULL,align=NULL,
 xtable.data.frame <- function(x,caption=NULL,label=NULL,align=NULL,
                               digits=NULL,display=NULL,...) {
   logicals <- unlist(lapply(x,is.logical))
-  x[,logicals] <- as.character(x[,logicals])
+  x[,logicals] <- lapply(x[,logicals], as.character)
   characters <- unlist(lapply(x,is.character))
   factors <- unlist(lapply(x,is.factor))
   ints <- sapply(x, is.integer)