多个函数如何使用错误消息？

Question

如何在R中创建标准错误消息？例如，如果多个函数在某些情况下应返回以下错误消息：

stop("This is an error")

我的第一个想法是创造类似的东西：

err_fun = function() stop("This is an error")
foo = function(a){ if(!a) err_fun()}

但是这种方法并没有正确指出错误位置（这是有道理的）

 foo(FALSE)
 #Error in err_fun() : This is an error 

预期结果将是

#Error in foo(FALSE) : This is an error 

如何正确编写＆＃34;快捷方式＆＃34;对于错误消息，所以我不必每次都写它并且有一个更干净的代码？