Illustrate Connection Issues

gistfile1.txt

f1 <- tempfile()
f2 <- tempfile()
cat("hello\n", file=f1)
cat("goodbye\n", file=f2)

con1 <- file(f1)
open(con1)
getAllConnections()

close(con1)
con2 <- file(f2)
open(con2)

# Doesn't work

con1 %in% getAllConnections()
## [1] TRUE

# This check may make it work, in addition to checking getAllConnections()

f1 %in% showConnections()[, 1]
## [1] FALSE
f2 %in% showConnections()[, 1]
## [1] TRUE

The particularly terrible thing in all this is that con1 ends up pointing to the same place as con2 ... for example isOpen(con1) returns TRUE. Internals shouldn't re-use connection ids.