From: roosen <roosen@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Thu, 6 Oct 2011 06:06:18 +0000 (+0000)
Subject: Fix bug in which values for multiple logical columns were collapsed into a single... 
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1564e404c088b882154c0e9e11d86800fad78548;p=xtable.git

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

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 ec6a770..d082a06 100644
--- 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)