R：如何提取函数内部生成的值

Question

我想在预定义函数中提取一个值。例如：

sample <- function(x,y){
  p = rnorm(x,y)
  estim = mean(p)
  estim
}

假设这是一个预定义的函数，所以在运行它之后我无法更改它。我是否可以存储/读取调用函数时生成的p？