r-gregmisc-users

[R-gregmisc-users] SF.net SVN: r-gregmisc:[1824] trunk/SASxport/R/read.xport.R

[<wa...@us...>]

Revision: 1824
          http://sourceforge.net/p/r-gregmisc/code/1824
Author:   warnes
Date:     2014-07-17 00:14:58 +0000 (Thu, 17 Jul 2014)
Log Message:
-----------
read.xport() argument names.tolower was not being honored for dataset
names.

Modified Paths:
--------------
    trunk/SASxport/R/read.xport.R

Modified: trunk/SASxport/R/read.xport.R
===================================================================
--- trunk/SASxport/R/read.xport.R	2014-06-30 19:26:21 UTC (rev 1823)
+++ trunk/SASxport/R/read.xport.R	2014-07-17 00:14:58 UTC (rev 1824)
@@ -102,7 +102,7 @@
     else
       names.tolower <- function(x) x
 
-    dsn <- tolower(which.regular)
+    dsn <- names.tolower(which.regular)
 
     res <- vector('list', nds)
     names(res) <- gsub('_','.',dsn)

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[R-gregmisc-users] SF.net SVN: r-gregmisc:[1825] trunk/SASxport/R/read.xport.R

[<wa...@us...>]

Revision: 1825
          http://sourceforge.net/p/r-gregmisc/code/1825
Author:   warnes
Date:     2014-07-17 00:27:29 +0000 (Thu, 17 Jul 2014)
Log Message:
-----------
read.xport: Preserve '$' at the beginning of SAS character format strings.

Modified Paths:
--------------
    trunk/SASxport/R/read.xport.R

Modified: trunk/SASxport/R/read.xport.R
===================================================================
--- trunk/SASxport/R/read.xport.R	2014-07-17 00:14:58 UTC (rev 1824)
+++ trunk/SASxport/R/read.xport.R	2014-07-17 00:27:29 UTC (rev 1825)
@@ -130,10 +130,10 @@
       names(w) <- nam
       dinfo    <- dsinfo[[k]]
 
-      fmt      <- sub('^\\$','',dinfo$format)
+      fmt <- dinfo$format
       formats  <- fstr( fmt, dinfo$flength, dinfo$fdigits)
 
-      ifmt     <- sub('^\\$','',dinfo$iformat)
+      ifmt <- dinfo$iformat
       iformats <- fstr( ifmt, dinfo$iflength, dinfo$ifdigits)
 
       lab      <- dinfo$label

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.