R语言中是否存在计算数值百分比的内置函数？

问题场景 #

计算一个数值的特定百分比时，例如求80000的50%，可以直接编写计算式：

> 80000 / 100 * 50
[1] 40000

但因为不常进行这类计算，每次都要花几秒回忆计算步骤，所以好奇R语言是否提供了语义化的内置快捷函数，比如类似这样的调用方式：

percent(50, 80000)

这种写法可读性更强，比如percent(50, dat$foo)能立刻明白是求dat$foo的50%，而dat$foo / 100 * 50则需要额外的认知转换。

注意：我知道可以自定义函数，本次提问不涉及自定义函数的实现，只关心是否有现成的内置函数。

补充说明 #

请勿以“百分比计算过于简单，不值得专门做函数”作为回应——Base R中本身就有mean(x)这类函数，它的复杂度并不比sum(x) / length(x)高，同样是把简单计算封装成了语义化的内置函数。

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