如何在RStudio中加载加密SQLite文件并执行查询？

问题根源：getZip()默认将解密后的文件内容读入内存，而dbConnect()需要的是磁盘上的SQLite文件路径，直接传入内存内容会导致路径参数错误。

以下是两种简洁高效的解决方法：

方法一：使用zip包（推荐，逻辑清晰） #

zip包提供了更直观的解压控制，适合处理加密压缩包：

# 安装并加载依赖包
if (!require("zip")) install.packages("zip")
if (!require("RSQLite")) install.packages("RSQLite")
library(zip)
library(RSQLite)
library(dotenv)

# 从环境变量获取密码
password <- Sys.getenv("PASSWORD")

# 创建临时目录（R会话结束后自动清理，避免污染工作区）
temp_dir <- tempdir()

# 解密并解压压缩包到临时目录
unzip(
  zipfile = "databse.zip",
  exdir = temp_dir,
  password = password
)

# 构建解压后的SQLite文件路径
db_path <- file.path(temp_dir, "database.db")

# 连接SQLite数据库
con <- dbConnect(RSQLite::SQLite(), db_path)

# 执行查询（替换为你的实际表名和列名）
my_data <- dbGetQuery(con, "SELECT column_name FROM your_table_name")

# 关闭数据库连接
dbDisconnect(con)

# 可选：手动清理临时文件（不执行也会自动清理）
file.remove(db_path)

方法二：继续使用Hmisc包，将内容写入磁盘 #

如果不想更换包，只需把getZip()读取的内容写入本地文件，再连接：

library(dotenv)
library(Hmisc)
library(RSQLite)

# 获取密码
password <- Sys.getenv("PASSWORD")

# 解密并将文件写入本地磁盘
getZip("databse.zip", password = password, file = "database.db")

# 连接SQLite数据库
con <- dbConnect(RSQLite::SQLite(), "database.db")

# 执行查询（替换为你的实际表名和列名）
my_data <- dbGetQuery(con, "SELECT column_name FROM your_table_name")

# 关闭连接
dbDisconnect(con)

# 可选：删除解压后的文件
file.remove("database.db")

注意事项 #

• 确认压缩包内的SQLite文件名确实是database.db，同时检查你的压缩包名databse.zip是否是拼写错误（少了一个字母'a'）
• 替换代码中的your_table_name为数据库中实际存在的表名

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