[Swift-commit] r4368 - SwiftApps/SwiftR/Swift/R

[tga at ci.uchicago.edu]

Author: tga
Date: 2011-04-13 14:00:09 -0500 (Wed, 13 Apr 2011)
New Revision: 4368

Modified:
   SwiftApps/SwiftR/Swift/R/Export.R
   SwiftApps/SwiftR/Swift/R/Library.R
Log:
Invisible return values for some functions.


Modified: SwiftApps/SwiftR/Swift/R/Export.R
===================================================================
--- SwiftApps/SwiftR/Swift/R/Export.R	2011-04-13 18:47:51 UTC (rev 4367)
+++ SwiftApps/SwiftR/Swift/R/Export.R	2011-04-13 19:00:09 UTC (rev 4368)
@@ -87,7 +87,7 @@
     session$exports[[length(session$exports) + 1]] <- file
     options(.swift.session=session)
 
-    return(NULL)
+    return(invisible(NULL))
 
 }
 
@@ -106,7 +106,7 @@
     # TODO: think about how to clean up data files.
     # it is hard to know when they can be safely removed
     options(.swift.session=newSession())
-    return(NULL)
+    return(invisible(NULL))
 }
 
 getExportDir <- function () {

Modified: SwiftApps/SwiftR/Swift/R/Library.R
===================================================================
--- SwiftApps/SwiftR/Swift/R/Library.R	2011-04-13 18:47:51 UTC (rev 4367)
+++ SwiftApps/SwiftR/Swift/R/Library.R	2011-04-13 19:00:09 UTC (rev 4368)
@@ -38,7 +38,7 @@
         plist[[length(plist) + 1]] <- c("library", packname)
     
     options(.swift.packages=plist)
-    return (NULL)
+    return (invisible(NULL))
 }
 
 swiftDetachAll <- function () {
@@ -61,7 +61,7 @@
                 }
             })
     options(.swift.packages=plist)
-    return (NULL)
+    return (invisible(NULL))
 }
 
 sstartsWith <- function (str, prefix) {
@@ -113,7 +113,7 @@
     plist[[length(plist) + 1]] = c("detach", packname)
 
     options(.swift.packages=plist)
-    return (NULL)
+    return (invisible(NULL))
 }
 
 buildLibStr <- function () {