如何用list.files和purrr::map优雅连接目录下多SQLite数据库？

优化现有连接与查询代码 #

你当前的代码可以简化并增强可读性，调整后如下：

library(tidyverse)
library(RSQLite)
library(DBI)

# 获取目录下所有SQLite文件（带完整路径）
sqlite_files <- list.files("./", pattern = "\\.sqlite$", full.names = TRUE)

# 一站式完成连接建立与数据查询
db_results <- tibble(file_path = sqlite_files) %>%
  mutate(
    # 建立数据库连接
    db_conn = map(file_path, ~dbConnect(SQLite(), .x)),
    # 执行通用查询
    geometry_data = map(db_conn, ~dbGetQuery(.x, "SELECT * FROM geometry_columns"))
  )

优化点说明：

• 使用tibble替代data.frame，更适配tidyverse生态的操作逻辑
• 增加full.names = TRUE获取完整文件路径，避免相对路径引发的问题
• 变量名更具语义（db_conn、geometry_data），提升代码可读性

将连接存入专属环境 #

可以创建独立的环境来统一存储数据库连接，方便后续管理（比如批量关闭），实现方式如下：

# 创建专门用于存储连接的环境
db_conn_env <- new.env()

# 遍历文件，将连接存入环境（以文件名作为连接的标识名）
walk(sqlite_files, function(file) {
  # 提取不带后缀的文件名作为连接名
  conn_id <- str_remove(basename(file), "\\.sqlite$")
  db_conn_env[[conn_id]] <- dbConnect(SQLite(), file)
})

# 调用环境中的连接执行查询示例
dbGetQuery(db_conn_env$your_db_name, "SELECT * FROM geometry_columns")

# 批量关闭所有连接（使用完毕后务必执行，释放资源）
walk(names(db_conn_env), ~dbDisconnect(db_conn_env[[.x]]))

这种方式的优势：

• 连接集中管理，避免与全局环境中的其他变量混淆
• 可通过直观的标识名快速调用特定数据库连接
• 批量操作连接（关闭、检查状态等）更高效

结合数据框与连接环境（可选） #

如果需要同时保留文件信息和连接关联，可以在数据框中记录连接标识，关联到专属环境中的连接：

db_results <- tibble(
  file_path = sqlite_files,
  conn_id = str_remove(basename(file_path), "\\.sqlite$")
) %>%
  mutate(
    db_conn = map(conn_id, ~db_conn_env[[.x]]),
    geometry_data = map(db_conn, ~dbGetQuery(.x, "SELECT * FROM geometry_columns"))
  )

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