隐式vs显式如果/在R中，括号改变输出？

Question

当函数中隐式使用if/else语句而不是显式指定if/else语句中包含的表达式时，我很难理解一些R行为。

这个玩具函数的工作原理和我预期的一样，当收到TRUE时打印"x is TRUE"，当收到FALSE时打印"x is FALSE"。

f1 <- function(x){
  if (x)
    print("x is TRUE")
  else 
    print("x is FALSE")
}

> f1(TRUE)
[1] "x is TRUE"
> f1(FALSE)
[1] "x is FALSE"
>

然而，如果我向它添加一个隐式的嵌套if语句，那么它就会停止我所期望的行为。下面的函数应该与上面的函数完全相同，但是如果给它一个FALSE，它就不会打印任何内容。

f1 <- function(x){
  if (x)
    if(TRUE)
      print("x is TRUE")
  else 
    print("x is FALSE")
}

> f1(TRUE)
[1] "x is TRUE"
> f1(FALSE) # No output?
> 

最后，如果我添加括号来指定排列并使if/else显式，它将再次按预期运行：

f1 <- function(x){
  if (x){
    if (TRUE)
      print("x is TRUE")
  } else {
    print("x is FALSE")
  }
}

> f1(TRUE)
[1] "x is TRUE"
> f1(FALSE)
[1] "x is FALSE"
>

在网上搜索这个问题时，我发现了两个模糊相关的答案。一个讨论括号不起作用的问题，但如果括号完全缺失，则不讨论不同的输出，另一个讨论著名的问题“其他”错误中出现意外的“其他”。从他们那里，我了解到R可能将if语句解释为它自己的行，但我不明白为什么函数或任何其他输出中没有意外的else抛出错误。

有人能帮我理解R的控制流逻辑吗？

Answer 1

与许多语言一样，R贪婪地将else附加到最近的if。因此，您的代码没有按R读取的方式缩进，这是

  if (x)
    if(TRUE)
      print("x is TRUE")
    else 
      print("x is FALSE")

if（TRUE）语句获取了ther，并且由于TRUE为TRUE，因此永远不会执行ther。

R中的一个奇怪之处是，如果直接将它们输入到控制台，而不是函数中，它们的行为会有所不同。然后它贪婪地完成语句，所以我上面写的是语法错误：

  if (x)
    if(TRUE)
      print("x is TRUE")

是一个完整的语句，因此将执行它。然后，当您输入else时，您会得到一个错误，因为else不允许启动语句。