如何在给定的持续时间内运行R代码，然后停止它？

# 设置持续时间（秒）
duration <- 60

# 获取当前时间
start_time <- Sys.time()

# 执行需要运行的R代码
# ...

# 获取当前时间
end_time <- Sys.time()

# 计算代码运行时间
elapsed_time <- difftime(end_time, start_time, units = "secs")

# 判断代码是否超过持续时间
if (elapsed_time > duration) {
  # 超时处理逻辑
  # ...
} else {
  # 正常执行完成逻辑
  # ...
}

library(processx)

# 设置持续时间（秒）
duration <- 60

# 创建子进程并运行R代码
process <- process$new("Rscript", args = c("path_to_script.R"))

# 在指定持续时间后停止子进程
Sys.sleep(duration)
process$kill()