在列表中重命名Data.frame的列

Question

我正在尝试使用lapply（并希望使用lapply的解决方案）重命名位于列表中的data.frame的列，但它返回的是名称，而不是重命名的data.frames：

[HttpPost]
public ActionResult Add(Graphic data)
{
  // "data" will contain all posted values  
}

然而，这会返回：

# define list
li <- list(u_n = data.frame(x = 1:3), r_l = data.frame(y = 4:6))

# trying to rename columns after the element of the list they're located in
li_2 <- lapply(1:length(li),
                function(x,y) colnames(y[[x]]) <- names(y)[x], y = li)

如果我使用与lapply中单独指定的函数相同的方法，它确实有效：

[[1]]
[1] "u_n"

[[2]]
[1] "r_l"