r - 使用 Safely from Purrr 时调试函数？

Question

我有一个已保存为 Rds 对象的函数，我想知道是否有可能在读取该函数后对其debug() 或看到函数内的代码了吗？

例子

library(purrr)

some_function <- function(x){


  avg <- mean(x)
  std <- sd(x)

  return(c(avg, std))

} 

safe_function <- safely(some_function)

saveRDS(safe_function, 'safe_function.rds')
rm(safe_function)

# How can I debug the function or make changes to it after I've loaded it?

safe_function <- readRDS('safe_function.rds')

Answer 1

这是一种方法:

1. 在控制台中执行 debug(safe_function)，然后调用您的函数，比如 safe_function(c(1, 2))
2. 此时，您将处于 Debug模式:
3. 在您的控制台中，执行 debugonce(.f) 然后点击“下一步”或“继续”(或者，键入 n 或 c在控制台中)
4. 您现在将位于 some_function 的主体内，并且能够看到代码: