满足条件时中断运行中R脚本且不崩溃RStudio可用什么函数？

ps_kill的原理是直接强制终止当前R进程，而RStudio的运行依赖绑定的R进程，所以调用该函数必然会导致RStudio崩溃，属于工具误用。你可以用以下R内置函数实现需求，全程不会影响RStudio的正常运行：

方案1：stop() 函数（最常用） #

stop()是R内置的错误抛出函数，仅终止当前正在运行的代码流，不会销毁整个R进程，还支持自定义报错信息方便问题定位。
修改后的示例代码：

df <- data.frame(one = c(1,2,NA,4,NA), two = c(NA,NA,8,NA,10))

if (sum(is.na(df)) > 3)
{
  stop("数据NA值总数超过阈值3，脚本已终止")
}

方案2：stopifnot() 函数（更简洁的校验写法） #

如果仅需要做条件校验中断脚本，可以用stopifnot()省略if判断逻辑，代码更精简，条件不成立时自动终止执行：

df <- data.frame(one = c(1,2,NA,4,NA), two = c(NA,NA,8,NA,10))

# 条件为FALSE时自动终止，支持自定义报错提示
stopifnot("数据NA值总数超过阈值3，脚本已终止" = sum(is.na(df)) <= 3)

方案3：quit() 函数（批处理场景用） #

如果你是运行非交互式批处理脚本，终止后不需要保留R会话，可以用quit()直接结束当前R会话，仅清空工作环境不会导致RStudio崩溃：

df <- data.frame(one = c(1,2,NA,4,NA), two = c(NA,NA,8,NA,10))

if (sum(is.na(df)) > 3)
{
  # save参数："no"不保存工作区，"yes"保存，"ask"弹出询问窗口
  quit(save = "no")
}

注意事项 #

• 函数嵌套场景下stop()会沿调用链向上抛出错误，直到终止整个当前执行流，完全符合中断全脚本的需求
• 所有R内置的执行控制函数都不会破坏RStudio的进程绑定，不要用进程管理类函数做脚本中断操作

内容的提问来源于stack exchange，提问作者Shinipop