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

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

Revision: 1856
          http://sourceforge.net/p/r-gregmisc/code/1856
Author:   warnes
Date:     2014-07-21 13:51:43 +0000 (Mon, 21 Jul 2014)
Log Message:
-----------
Mark constants as long ints.

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

Modified: trunk/SASxport/R/xport.R
===================================================================
--- trunk/SASxport/R/xport.R	2014-07-21 13:49:59 UTC (rev 1855)
+++ trunk/SASxport/R/xport.R	2014-07-21 13:51:43 UTC (rev 1856)
@@ -23,12 +23,11 @@
 
 lookup.xport.inner <- function(file) .Call(xport_info, file)
 
-
 read.xport.inner <- function(file, stringsAsFactors=FALSE) {
     data.info <- lookup.xport.inner(file)
     ans <- .Call(xport_read, file, data.info)
-    if (length(ans) == 1)
-      as.data.frame(ans[[1]], stringsAsFactors=stringsAsFactors)
+    if (length(ans) == 1L)
+      as.data.frame(ans[[1L]], stringsAsFactors=stringsAsFactors)
     else
       lapply(ans, as.data.frame, stringsAsFactors=stringsAsFactors)
 }

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