如何在R语言中创建文件句柄向量？

问题现象 #

循环创建多个文件连接并将句柄存入向量后，后续写入时触发invalid connection错误，同时出现“closing unused connection”警告，文件句柄被重复使用，部分文件无法正常写入预期内容。

问题原因 #

1. 垃圾回收自动回收无引用连接：R的连接对象如果没有被任何变量持有有效引用，会被垃圾回收（GC）机制自动关闭。使用f <- c(f, af)扩展向量时，旧的连接对象会失去唯一引用，被标记为“未使用”并被GC回收关闭。
2. 向量存储连接ID而非对象本身：向量中存储的是连接的整数标识符，而非连接对象实体。当旧连接被关闭后，这些ID会被重新分配给新创建的连接，导致后续写入时引用的是已失效的连接。

解决方案：用列表存储连接对象 #

列表可以保留对连接对象的引用，避免触发垃圾回收。修改代码如下：

Sys.setenv(LANG = "en")
# 初始化空列表而非向量
f <- list()
for(i in 1:10)
{
    fn <- paste("deb/name", i, sep="_")
    af <- file(fn, "w")
    cat(file=af, "opened file", i, "\n")
    cat("opened file", i, fn, "\n")
    # 向列表添加连接对象
    f[[i]] <- af
    showConnections(all=T)
}

print(f)
for(i in 1:10)
{
    cat(file=f[[i]], "wrote to file", i, "\n")
    # 显式关闭连接（可选，也可让R在会话结束时自动关闭）
    close(f[[i]])
}

验证结果 #

运行上述代码后：

• 每个deb/name_*文件中都会包含opened file X和wrote to file X的内容
• 不再出现“closing unused connection”警告
• 后续写入不会触发invalid connection错误

补充方案：单次写入后立即关闭连接 #

如果不需要长期保持连接，也可以在每次循环中完成所有写入操作后立即关闭连接，避免连接资源占用：

Sys.setenv(LANG = "en")
for(i in 1:10)
{
    fn <- paste("deb/name", i, sep="_")
    af <- file(fn, "w")
    cat(file=af, "opened file", i, "\n")
    cat(file=af, "wrote to file", i, "\n")
    close(af)
    cat("processed file", i, fn, "\n")
}

内容的提问来源于stack exchange，提问作者Peter Buske