[R-gregmisc-users] SF.net SVN: r-gregmisc:[1403] trunk/gdata/R

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

Revision: 1403
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1403&view=rev
Author:   warnes
Date:     2010-01-24 18:19:33 +0000 (Sun, 24 Jan 2010)

Log Message:
-----------
Close connections when done.

Modified Paths:
--------------
    trunk/gdata/R/read.xls.R
    trunk/gdata/R/sheetCount.R

Modified: trunk/gdata/R/read.xls.R
===================================================================
--- trunk/gdata/R/read.xls.R	2010-01-24 18:17:26 UTC (rev 1402)
+++ trunk/gdata/R/read.xls.R	2010-01-24 18:19:33 UTC (rev 1403)
@@ -60,6 +60,8 @@
     else
       stop("Unknown method", method)
 
+    close(con)
+
     cat("Done.\n")     
   }
   retval

Modified: trunk/gdata/R/sheetCount.R
===================================================================
--- trunk/gdata/R/sheetCount.R	2010-01-24 18:17:26 UTC (rev 1402)
+++ trunk/gdata/R/sheetCount.R	2010-01-24 18:19:33 UTC (rev 1403)
@@ -57,6 +57,7 @@
   results <- system(cmd, intern=TRUE)
   tc <- textConnection(results)
   results <- read.table(tc, as.is=TRUE, header=FALSE)
+  close(tc)
   results <- unlist(results)
   names(results) <- NULL
   ##


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