从全局环境选数据框导出至Excel遇参数错误的排查求助

你的代码错误在于没有正确将数据框存入列表：

• list()是一个空列表，用sapply返回的逻辑向量去索引它，得到的依然是空列表（或不符合要求的结构），自然不满足write_xlsx对输入参数的要求。
• 另外，write_xlsx的路径参数需要指定具体文件名（比如"M:/result.xlsx"），只写盘符"M:"会导致路径无效。

正确代码示例 #

步骤1：筛选并创建数据框列表 #

先获取当前环境中所有数据框的名称，再将这些数据框存入列表：

# 筛选出所有数据框的名称
df_names <- ls()[sapply(ls(), function(x) is.data.frame(get(x)))]
# 创建数据框列表
df_list <- mget(df_names)

或者合并成一行代码：

df_list <- mget(ls()[sapply(ls(), function(x) is.data.frame(get(x)))])

步骤2：导出到Excel #

指定完整的文件路径（必须包含文件名）：

writexl::write_xlsx(df_list, "M:/all_dataframes.xlsx")

额外说明 #

• 原代码中的any(is.data.frame(get(x)))是冗余的，is.data.frame(get(x))已经能直接判断单个对象是否为数据框，不需要用any。
• 如果你的环境中有其他非数据框对象（比如向量、函数），上述代码会自动过滤，只保留数据框。

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