附加警告消息返回错误而不是警告

我有两个功能, f_ 它抛出了一个错误 f f级_ .

f_ <- function() stop()
f <- function() {
  warning()
  f_()
}

因为在错误之前我有一个警告,所以R生成“additionnalwarning messages”,但是这个警告中的消息不是我的 f级_ 第二次打电话:

> f()
Error in f_() : 
In addition: Warning message:
In f() :
  Error in f_() :

如果错误是在同一个函数中产生的,或者是由一个内置函数产生的,那么它似乎可以像预期的那样工作。

f <- function() {
  warning()
  stop()
}
> f()
Error in f() : 
In addition: Warning message:
In f() : 

有人能帮我了解那里发生了什么事吗? 谢谢你的帮助。 我使用RStudio在x86_64-w64-mingw32上运行R版本3.3.2。