通过总结函数调用来获得程序结构的概述

Question

我有一组全局函数：

hw     <- function() print("hello world")
gbcw   <- function() cat("Good bye cruel world\n")
wu     <- function() print("what's up ?")   
hwgbcw <- function() {hw();wu();hwgbcw()}

我们假设所有这些函数都是在全局环境中定义的，并且从不过载。 让我们感兴趣的函数放在一个向量中（除了wu之外的所有函数），以及来自基础环境的print

my_functions <- c("hw","gbcw","hwgbcw","print")

我想要的是这份表格的摘要：

get_dependencies(my_functions)
#       f called_in
# 1    hw    hwgbcw
# 2  gbcw    hwgbcw
# 3 print        hw

get_dependencies(my_functions,recursive = TRUE)
#       f called_in
# 1    hw    hwgbcw
# 2  gbcw    hwgbcw
# 3 print    hwgbcw
# 4 print        hw

目标是：

• 轻松概述我自己的程序
• 检查是否有一些我不再使用的功能，只是挂在那里污染我的代码
• 了解被遗忘的节目
• 了解别人的代码
• 可能从这些输出表构建树形可视化

有没有包裹做这种事情？如果没有，你会怎么做？