R批量加载MySQL所有表到列表时for循环索引报错如何解决

问题根源 #

你写的for循环直接遍历SHOW TABLES返回的查询结果，这个结果是数据框类型，不是一维表名向量。R中直接遍历数据框时，每次循环拿到的是整列对象（即长度大于1的表名集合），而非单个表名字符串，用长度大于1的对象作为列表的[[索引，就会触发no such index at level 1报错。

修复后的可运行代码 #

library(RODBC)
# 建立数据库连接
myconn1 <- odbcConnect("mysqldsn")

# 第一步：正确提取表名，转为字符向量规避因子类型问题
table_result <- sqlQuery(myconn1, "SHOW TABLES;")
table_names <- as.character(table_result[[1]])

# 预分配列表存储空间，提前设置列表名提升运行效率
list_tables <- vector(mode = "list", length = length(table_names))
names(list_tables) <- table_names

# 第二步：遍历单张表名拉取数据
for (tbl_name in table_names) {
  # 表名包裹MySQL反引号，规避表名含特殊字符、关键字、空格导致的语法错误
  query_sql <- paste0("SELECT * FROM `", tbl_name, "`;")
  list_tables[[tbl_name]] <- sqlQuery(myconn1, query_sql)
}

# 操作完成后关闭连接
odbcClose(myconn1)

可复现示例构造方法 #

不需要上传本地完整数据库，只要在提问时贴出dput(head(sqlQuery(myconn1, "SHOW TABLES;")))的输出，其他人就能拿到和你本地一致的表名返回结构，完全复现索引报错的场景，不需要真实业务数据。

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