[Rcpp-commits] r4560 - in pkg/Rcpp: . R

[noreply at r-forge.r-project.org]

Author: jmc
Date: 2013-10-07 00:11:32 +0200 (Mon, 07 Oct 2013)
New Revision: 4560

Modified:
   pkg/Rcpp/ChangeLog
   pkg/Rcpp/R/exposeClass.R
Log:
Avoid warning from unclosed file(temp, "r") in exposeClass()


Modified: pkg/Rcpp/ChangeLog
===================================================================
--- pkg/Rcpp/ChangeLog	2013-10-06 21:54:52 UTC (rev 4559)
+++ pkg/Rcpp/ChangeLog	2013-10-06 22:11:32 UTC (rev 4560)
@@ -1,5 +1,10 @@
 2013-10-06  John M Chambers  <jmc at r-project.org>
 
+	* R/exposeClass.R: avoid warning from unclosed file()
+
+
+2013-10-06  John M Chambers  <jmc at r-project.org>
+
 	* NAMESPACE: change classModule to exposeClass
 	* R/classModule.R: delete
 	* man/classModule.Rd: delete

Modified: pkg/Rcpp/R/exposeClass.R
===================================================================
--- pkg/Rcpp/R/exposeClass.R	2013-10-06 21:54:52 UTC (rev 4559)
+++ pkg/Rcpp/R/exposeClass.R	2013-10-06 22:11:32 UTC (rev 4560)
@@ -100,8 +100,8 @@
             Rcon <- Rfile
         Rfile <- TRUE
     }
-    temp <- tempfile()
-    mcon <- file(temp, "w")
+    mfile <- tempfile()
+    mcon <- file(mfile, "w")
     writeLines(.stdHeader, con)
     if(length(header))
         writeLines(header, con)
@@ -178,7 +178,7 @@
     close(mcon)
     if(!is.null(ns))
         writeLines(sprintf("} // %s", ns), con) # close namespace
-    writeLines(readLines(file(temp, "r")), con)
+    writeLines(readLines(mfile), con)
     if(Rfile) {
         if(missing(CppClass))
             CppString <- ""