R语言如何实现对自定义函数的求导？

在R语言中，简单函数可以手动输入然后调用自带函数去求导。但是对于复杂函数，不得不自定义函数来编写。有大神知道如何对自定义函数求导嘛？