为什么R中存储message函数执行结果的变量返回NULL？

• R中if属于表达式，会将分支内最后一行执行代码的返回值作为整个if块的结果。message()、stop()这类控制台输出函数的返回值本身就是NULL，因此你将if块的结果赋值给sign_assign变量时，变量存储的自然就是NULL。
• 你当前的代码逻辑只有运行完整的if赋值代码块时才会执行判断输出，单独给x赋值不会触发判断逻辑，自然不会生成对应的输出内容。

你可以将判断逻辑封装为独立函数，符合「输入任意数值输出正负、使用message/cat输出」的要求，示例代码如下：

# 封装正负判断函数
check_sign <- function(x) {
  if (x > 0) {
    message(x, " is positive")
  } else if (x < 0) {
    message(x, " is negative")
  } else {
    stop("0 not positive nor negative")
  }
  invisible(x)
}

调用方法如下，即可实现你要的效果：

x <- -6
check_sign(x)

运行后会直接输出：-6 is negative

如果你需要赋值的sign_assign变量存储判断结果而非NULL，可以调整if块内的返回值，示例如下：

x <- 5
sign_assign <- if(x>0){
    res <- paste0(x," is positive")
    message(res)
    res # 将字符串作为分支最后返回值，赋值给sign_assign
} else if(x<0){
    res <- paste0(x," is negative")
    message(res)
    res
} else{
    stop("0 not positive nor negative")
}

调整后调用sign_assign会返回对应判断字符串，而非NULL。

内容的提问来源于stack exchange，提问作者KapitanPilips