我正在尝试附加一个返回函数，错误是 FUN(X[[i]], ...) 中的错误：未使用的参数答案

【问题标题】：I am trying to append a return function, error is Error in FUN(X[[i]], ...) : unused argument我正在尝试附加一个返回函数，错误是 FUN(X[[i]], ...) 中的错误：未使用的参数
【发布时间】：2020-09-06 12:03:00
【问题描述】：

我有一个 sapply 行，我想包含一个返回函数，这样我就可以看到我的代码进展了多远。

当我运行它时，我返回错误：

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))

我哪里错了？

【问题讨论】：

...$minimum 和 return (i) 之间的逗号不应该是分号吗？

标签： r return sapply

【解决方案1】：

由于无法访问temp，我无法复制您，但该错误可能是由于您输入的小错误造成的。您的回报和$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)
})

【讨论】：