[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.