在R中缓存昂贵的操作

# 安装并加载 memoise 包
install.packages("memoise")
library(memoise)

# 定义一个昂贵的操作
expensive_operation <- function(x) {
  Sys.sleep(5) # 模拟耗时操作
  return(x^2)
}

# 使用 memoise 包装 expensive_operation 函数
cached_expensive_operation <- memoise(expensive_operation)

# 第一次调用 cached_expensive_operation 函数
system.time(result1 <- cached_expensive_operation(5))

# 第二次调用 cached_expensive_operation 函数，将直接使用缓存的结果
system.time(result2 <- cached_expensive_operation(5))