From 1564e404c088b882154c0e9e11d86800fad78548 Mon Sep 17 00:00:00 2001 From: roosen Date: Thu, 6 Oct 2011 06:06:18 +0000 Subject: [PATCH] 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 --- pkg/R/xtable.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.5