@@ -37,6 +37,7 @@ profr <- function(expr, interval = 0.02, quiet = TRUE) { tc <- textConnection(NULL, "w") sink(tc) on.exit(sink(), add=TRUE) + on.exit(close(tc), add=TRUE) } Rprof(tmp, append=TRUE) R/profile.r e6d3c16841f8a57cd497610b4f34acd026b9a860 hadley h.wickham@gmail.com http://github.com/hadley/profr/commit/c0c9c47861c3ed47ee151b8ff029a7b7944e8f6c c0c9c47861c3ed47ee151b8ff029a7b7944e8f6c 2008-06-10T12:36:03-07:00 2008-06-10T12:36:03-07:00 Close connection on exit 1a8a1e8ded60e1c96fea96739a0c55edd9c3eadf hadley h.wickham@gmail.com