[R-gregmisc-users] SF.net SVN: r-gregmisc:[1959] trunk/gdata/R/write.fwf.R
Brought to you by:
warnes
From: <wa...@us...> - 2015-04-25 07:56:25
|
Revision: 1959 http://sourceforge.net/p/r-gregmisc/code/1959 Author: warnes Date: 2015-04-25 07:56:23 +0000 (Sat, 25 Apr 2015) Log Message: ----------- Remove stray call to 'browser' Modified Paths: -------------- trunk/gdata/R/write.fwf.R Modified: trunk/gdata/R/write.fwf.R =================================================================== --- trunk/gdata/R/write.fwf.R 2015-04-25 06:26:40 UTC (rev 1958) +++ trunk/gdata/R/write.fwf.R 2015-04-25 07:56:23 UTC (rev 1959) @@ -37,7 +37,7 @@ options("scipen"=100) } - + if(rownames) { x <- cbind(rownames(x), x) rowColVal <- ifelse(!is.null(rowCol), rowCol, "row") @@ -80,8 +80,6 @@ ## Collect information about how format() will format columns. ## We need to get this info now, since format will turn all columns to character -browser() - tmp <- apply(x, 2, format.info, ...) tmp1 <- sapply(tmp, length) tmp <- t(as.data.frame(tmp)) @@ -171,7 +169,7 @@ na=na, row.names=FALSE, col.names=FALSE, - qmethod=qmethod) + qmethod=qmethod) } write.table(x=x, This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |