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

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

Revision: 1172
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1172&view=rev
Author:   warnes
Date:     2007-09-11 16:05:51 -0700 (Tue, 11 Sep 2007)

Log Message:
-----------
Forgot to save buffer before svn commit.

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

Modified: trunk/SASxport/R/write.xport.R
===================================================================
--- trunk/SASxport/R/write.xport.R	2007-09-11 21:22:31 UTC (rev 1171)
+++ trunk/SASxport/R/write.xport.R	2007-09-11 23:05:51 UTC (rev 1172)
@@ -1,5 +1,5 @@
 write.xport <- function(...,
-                        list=c(),
+                        list=base::list(),
                         file = stop("'file' must be specified"), 
                         verbose=FALSE,
                         sasVer="7.00",
@@ -7,15 +7,8 @@
                         cDate=Sys.time()
                         ) 
   {
-    #if(missing(list))
-    #  {
-        list <- c(base::list(...), list)
-        dfNames <- names(list)
-                                        #  }
-    #else
-    #  {
-    #    dfNames <- names(list)
-    #  }
+    list <- c(base::list(...), list)
+    dfNames <- names(list)
 
     if(missing(osType))
       osType <- paste("R ", R.version$major, ".", R.version$minor, sep="")


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