将函数应用于数据帧列表，然后将结果写回

Question

我有一组变量“ dfs”中给出的一组数据帧的名称，它们是字符串数组。 即

> dfs
"dfs1" "dfs2" ... "dfsk"

我想重命名dfs中每个数据框的列。 这意味着我想对dfs中的每个条目应用函数'func'并将结果写回。 即结果应等于评估

dfs1 <- func(dfs1)
dfs2 <- func(dfs2)
...
dfsk <- func(dfsk)

困难在于，dfs可能任意长，并且仅在运行时才知道dfs的内容。

我尝试编写一个函数func，并使用以下命令将其应用于dfs：

lapply( mget(dfs), func)

但是，这使实际的data.frames保持不变。

我的问题与以下未解答的问题相似：

将已定义的函数一次应用于所有数据框

Answer 1

在找到一个解决方案：关键是使用eval而不是apply。 可以使用以下方法获得所需的行为：

cCmd  <- paste(dfs, "<- func(" ,dfs,")", sep="")
eCmd  <- parse(text=cCmd)
eval(eCmd)

这可能不是最优雅的方法，但它可以工作。