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

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

Revision: 1180
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1180&view=rev
Author:   warnes
Date:     2007-09-13 10:36:47 -0700 (Thu, 13 Sep 2007)

Log Message:
-----------
Ensure 'names.tolower' applies to dataset names

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

Modified: trunk/SASxport/R/read.xport.R
===================================================================
--- trunk/SASxport/R/read.xport.R	2007-09-13 01:55:29 UTC (rev 1179)
+++ trunk/SASxport/R/read.xport.R	2007-09-13 17:36:47 UTC (rev 1180)
@@ -124,15 +124,15 @@
     nods <- length(whichds)
     nds  <- nods - (length(formats) == 0 && length(finfo) > 0)
     which.regular <- setdiff(whichds, fds)
-    dsn <- tolower(which.regular)
 
-
     ## Handle lowercase name conversions
     if(names.tolower)
       names.tolower <- tolower
     else
       names.tolower <- function(x) x
-    
+
+    dsn <- 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.