如何在R函数中为data.table分配参数传入的变量名

你的代码有两个核心问题导致无法生成与数据库表名同名的data.table：

1. SQL查询硬编码了table作为表名，没有替换为传入的参数值
2. 全局赋值时固定使用table作为变量名，而非传入的表名字符串

修正后的完整代码 #

tbl_import <- function(table_name) {
  # 生成带目标表名的SQL语句，glue_sql自动处理数据库标识符格式
  sql <- glue_sql("SELECT * FROM {`table_name`}", .con = con)
  
  # 查询数据并转换为data.table
  dt <- dbGetQuery(con, sql)
  setDT(dt)
  
  # 将结果赋值为与数据库表名同名的全局变量
  assign(table_name, copy(dt), envir = .GlobalEnv)
}

# 调用示例
tbl_import("clients")

关键改动说明 #

• 将参数名改为table_name：避免与R内置的table()函数冲突，语义更清晰
• SQL语句使用{table_name}语法：glue_sql会自动将传入的表名转换为数据库支持的标识符格式（如MySQL的反引号、PostgreSQL的双引号），确保查询正确的表
• 使用assign()实现动态变量名赋值：通过传入的表名字符串，将data.table赋值到全局环境中对应名称的变量上
• 保留copy(dt)：确保生成的data.table是独立对象，避免后续操作意外修改原始查询结果

更规范的替代方案（不使用全局变量） #

全局变量容易引发代码副作用，更推荐让函数直接返回data.table，手动赋值：

tbl_import <- function(table_name) {
  sql <- glue_sql("SELECT * FROM {`table_name`}", .con = con)
  dt <- dbGetQuery(con, sql)
  setDT(dt)
  dt
}

# 调用时手动赋值为目标变量名
clients <- tbl_import("clients")

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