R中的反向Diff函数

Question

是否有可以反转diff功能的功能？基本上如果我有矢量

a = c(1, 2, 3, 4)

而不是

diff(a)
[1] 1 1 1

我想要一个像

这样的功能

altdiff(a)
[1] -1 -1 -1 

我知道我可以简单地反转向量并应用差异，或编写我自己的函数，但我想知道是否有现成的函数可以做到这一点。