如何在R代码内部临时暂停互联网连接并后续恢复以开展CRAN合规包测试？

R本身没有内置的网络断开控制接口，需通过系统命令调用或函数重写的方式，在测试流程中模拟无网场景，适配CRAN包测试的校验要求。

分系统真断网实现（需管理员权限） #

这类方案会真实断开系统层面的互联网连接，完全还原真实无网环境的运行状态：

• Windows 系统
  • 离线操作：调用系统自带netsh命令禁用对应网络适配器，代码为system("netsh interface set interface \"Wi-Fi\" admin=disable", invisible = TRUE)，其中Wi-Fi需替换为当前实际使用的网络适配器名称（如以太网、USB tethering等）
  • 恢复联网：对应执行system("netsh interface set interface \"Wi-Fi\" admin=enable", invisible = TRUE)
• macOS 系统
  • 离线操作：调用networksetup命令关闭指定网络服务，代码为system("networksetup -setnetworkserviceenabled Wi-Fi off")
  • 恢复联网：对应执行system("networksetup -setnetworkserviceenabled Wi-Fi on")
• Linux 系统
  • 离线操作：删除系统默认公网路由，阻断所有外部网络请求，代码为system("sudo ip route del default")
  • 恢复联网：重新添加默认路由，代码为system("sudo ip route add default via 你的网关IP 对应网卡名")，其中网关和网卡名需根据本地实际网络配置替换

注意：所有系统级断网操作均需要R持有管理员/root权限，Linux环境需提前配置sudo免密规则，避免命令执行过程中弹出密码输入框阻塞R进程。

无权限模拟断网实现 #

如果没有系统管理员权限，可通过临时重写curl::has_internet函数的方式模拟断网状态，效果和真实断网完全一致，不会修改系统配置，测试结束无残留：

1. 流程开始前先保存原始函数的引用：

   original_has_internet <- curl::has_internet
   

2. 触发断网模拟：

   assignInNamespace("has_internet", function(...) FALSE, ns = "curl")
   

3. 完成测试后恢复联网状态：

   assignInNamespace("has_internet", original_has_internet, ns = "curl")
   

适配你的测试流程的完整示例 #

library(curl)
# 保存原函数
original_has_internet <- curl::has_internet

# 触发断网
assignInNamespace("has_internet", function(...) FALSE, ns = "curl")

# 校验断网状态
if (!curl::has_internet()) {
  message("No internet connection.")
}

# 恢复联网
assignInNamespace("has_internet", original_has_internet, ns = "curl")

校验说明：断网状态下，所有依赖curl::has_internet()做前置判断的包函数，都会自动进入无网错误处理分支，完全匹配CRAN关于“网络资源不可用时优雅失败”的政策检查要求。

内容的提问来源于stack exchange，提问作者rafa.pereira