将工作代码包装在函数中，它会停止工作

Question

我有一些运行良好的代码，并且我在代码中以相同的格式重复了几次，因此我尝试将其包装在通用函数中，一旦我这样做，它就会停止工作。我不知道为什么，但我错过了一些基本的东西。如果您能告诉我我的基本错误，我会很高兴。谢谢。J

在代码中工作的函数的格式为：

vec1[ as.logical (vec1 == val1 & vec2 >= val2)] <- val3

因此，当满足条件时，这会将 vec1 中的值从当前值更改为 val3。但是，如果我创建一个函数，例如

ChangeState <- function (vec1, vec2, val1, val2, val3) {
    vec1[as.logical(vec1 == va1 & vec2 >= val2)] <- val3
}

然后我这样执行它：

ChangeState(inputvec1, inputvec2, value1, value2, value3)

什么也没发生，它不会改变 vec1 中的任何值，即使它应该改变。它运行并且不会抛出任何错误或警告。这可能是一个“范围界定”问题吗？如果是这样我该如何修复它？

Answer 1

正如索托斯所说，你缺少一份return声明。你的函数中发生的事情是无声返回。考虑以下示例。如果我们将add函数定义为

add <- function(x, y){
  z <- x + y
}

然后打电话

add(1, 2)

看起来好像什么也没返回。控制台没有打印任何输出。

另一方面，看看当我们将函数的结果分配给一个对象时会发生什么：

z <- add(1, 2)
z

[1] 3

因此，无需return声明，函数就可以默默地返回一个值。通常提供return某种形式的声明（无论是隐式的还是显式的）。

对于您的函数，一个重要的警告是您需要一个 return 语句。尽管您仅对 的子集执行替换vec1，但如果不使用 return 语句，您的函数将仅返回vec1满足的子集as.logical(vec1 == va1 & vec2 >= val2)。因此，为了获得您（大概）想要的输出，您应该使用

ChangeState <- function (vec1, vec2, val1, val2, val3) {
    vec1[as.logical(vec1 == va1 & vec2 >= val2)] <- val3
    vec1 # implicit return
}

或者

ChangeState <- function (vec1, vec2, val1, val2, val3) {
    vec1[as.logical(vec1 == va1 & vec2 >= val2)] <- val3
    return(vec1) # explicit return
}