无法连接服务器40秒后，Ajax呼叫返回

Question

我需要从其他域加载并执行JavaScript。 因此，我添加了以下代码：

 library(tidyverse)
    library(lubridate)
    dr.url <- "https://www.dr.dk/nyheder/allenyheder/politik/"

    dfrom <- '01012019'
    dto <- '20032019'
    Daten <- dmy(dfrom)
    while (Daten < dmy(dto)) {
      print(paste0(dr.url,as.character(as.Date(Daten), "%d%m%Y")))
      Daten <- Daten +1
    } 

如果url响应，即使它找不到在url中指定的文件，它也可以工作。

但是，如果脚本无法连接到IP地址（如示例中所示）或指定的域，则脚本会挂起40秒钟，然后返回。

当脚本无法连接到服务器时，是否可以中止脚本？