在R中，我如何知道函数在执行过程中使用的最大内存量？

library(pryr)

# 定义一个函数
my_function <- function() {
  # 在函数中多次调用mem_used()函数来获取内存使用量
  mem1 <- mem_used()
  
  # 执行一些操作
  # ...
  
  mem2 <- mem_used()
  
  # 执行更多操作
  # ...
  
  mem3 <- mem_used()
  
  # 比较不同时间点的内存使用量，找到最大值
  max_mem <- max(mem1, mem2, mem3)
  
  return(max_mem)
}

# 调用函数并获取最大内存量
max_memory <- my_function()
print(max_memory)