无法使用 devtools 安装 R github 包（curl 超时错误）

（这不会解决你的问题，所以从技术上讲它不是一个答案，但评论也太长了......所以学究们可以随意投票）

虽然 SO 不是互联网连接技术支持论坛，但我们可以为您提供一些 R 工具来对您的连接进行分类。

我知道已经curl安装了软件包，因为您正在尝试使用，devtools所以试一试：

do.call(
  rbind.data.frame,
  lapply(
    c(
      "github.com", "stackoverflow.com", "google.com", "yahoo.com",
      "www.this-wont-resolve.com", "cisco.com", "bankofamerica.com",
      "apple.com", "microsoft.com", "curl.haxx.se"
    ), 
    function(x) {
      clock <- system.time(res <- try(curl::nslookup(x), silent = TRUE), gcFirst = FALSE)
      clock <- as.list(clock)
      clock <- c(host = x, clock, result = if (inherits(res, "character")) res else "Error")
      clock
    }
  )
)

在我的系统 ^^ 产生：

##                         host user.self sys.self elapsed user.child sys.child          result
## 2                 github.com     0.000    0.000   0.001          0         0  192.30.253.113
## 21         stackoverflow.com     0.001    0.000   0.001          0         0   151.101.65.69
## 3                 google.com     0.000    0.000   0.001          0         0  172.217.10.142
## 4                  yahoo.com     0.000    0.001   0.001          0         0      72.30.35.9
## 5  www.this-wont-resolve.com     0.071    0.002   0.073          0         0           Error
## 6                  cisco.com     0.000    0.000   0.001          0         0    72.163.4.185
## 7          bankofamerica.com     0.001    0.000   0.000          0         0 171.159.228.150
## 8                  apple.com     0.000    0.001   0.001          0         0   17.142.160.59
## 9              microsoft.com     0.001    0.000   0.001          0         0  40.113.200.201
## 10              curl.haxx.se     0.000    0.000   0.001          0         0  151.101.118.49

它正在做的是使用您的操作系统的解析器库来进行 DNS 查找curl（因此httr/rvest和devtools基于网络的安装程序）。您可以获取时间并查看是否有错误。提供的列表中存在未解析的故意主机。随意添加更多。

这应该让您了解是否存在一般解决问题。

如果已pingr安装，则可以执行以下操作：

t(sapply(
  c(
    "github.com", "stackoverflow.com", "google.com", 
    "yahoo.com", "cisco.com", "time.apple.com"
  ),
  function(x) {
    res <- try(pingr::ping(destination = x, count = 3, timeout = 5))
  }
))

在我的系统上，它返回：

##                      [,1]   [,2]   [,3]
## github.com         30.095 23.964 31.652
## stackoverflow.com  16.524 13.529 20.790
## google.com         30.743 22.004 22.333
## yahoo.com          34.450 33.070 40.198
## cisco.com          67.215 74.290 96.568
## time.apple.com    110.832 88.482 87.582

这应该让您基本了解互联网的基本网络操作进展情况。超高的值是不好的。

如果已speedtest安装，则可以执行以下操作：

speedtest::spd_test()

从 R 控制台或：

Rscript -e 'speedtest::spd_test()'

从命令行/终端提示符，它会给你如下输出：

## Gathering test configuration information...
## Gathering server list...
## Determining best server...
## Initiating test from Comcast Cable (###.###.###.###) to Otelco (Portland, ME)
## 
## Analyzing download speed..........
## Download: 166 Mbit/s
## 
## Analyzing upload speed......
## Upload: 7 Mbit/s

（是的，我们在缅因州农村有可怕的互联网）

稍后我可以发布更多故障排除信息。了解您使用的操作系统会有所帮助。

注意：您所描述的某些行为表明有许多恶意软件会劫持系统上的 DNS（这是我试图提供帮助的另一个原因）。