我正在尝试附加一个 return 函数，错误是 Error in FUN(X[[i]], ...) : unused argument

Question

我有一个 sapply 行，我想包含一个 return 函数，这样我就可以看到我的代码进展到什么程度了。

当我运行但是我 return 错误：

Error in FUN(X[[i]], ...) : unused argument (return(i))

密码是：

r <- sapply(unique(temp$sim), 
            function(i) optimize(f = eval, interval = c(0, 0.05), df=filter(temp, sim==i))$minimum,return(i))

我哪里错了？

Answer 1

由于无法访问 temp，因此我无法复制您的内容，但该错误可能是由于您输入的小错字造成的。 return 和 $minimum 之间的 , 应该 ;.

你可以试试：

sapply(unique(temp$sim), function(i) optimize(f = eval, interval = c(0, 0.05), df=filter(temp, sim==i))$minimum; return(i))

或更好地显式添加函数括号：

sapply(unique(temp$sim), function(i) {
  optimize(f = eval, interval = c(0, 0.05), df=filter(temp, sim==i))$minimum
  return(i)
})

I am trying to append a return function, error is Error in FUN(X[[i]], ...) : unused argument