curl：：curl_fetch_memory（url， handle = handle） 中的错误：无法解析主机：

问：

在某些情况下，我的 R 代码（见下文）会生成以下错误：

[1] "2023-08-12 16:47:37.463"
Error in curl::curl_fetch_memory(url, handle = handle): Could not resolve host: api.abc.com
Request failed [ERROR]. Retrying in 1.3 seconds...
Error in curl::curl_fetch_memory(url, handle = handle): Could not resolve host: api.abc.com
Request failed [ERROR]. Retrying in 1 seconds...
Error in curl::curl_fetch_memory(url, handle = handle):
Could not resolve host: api.abc.com

api.abc.com 不是我使用的原始 API。 我使用了一个商业 API，它注意到我的服务器在上面的特定时刻没有关闭。在某些情况下，当服务器关闭时，它会返回 http-code 503。

我有两个问题：

1. 这些错误的原因可能是什么？
2. 在出现这些错误的情况下，如何使下面的脚本继续运行？目前，在这些错误消息之后，它会中断。我没想到会这样，因为我在我的代码中使用了 .RETRYGET

我的代码每 10 秒使用调度程序调用一次（请参阅代码末尾）。在此示例代码中，我使用了一个免费的 API （universities.hipolabs.com） 作为示例。tclTaskSchedule

library(httr) # accessing API's'
library(jsonlite) # JSON parsing
library(dplyr)
library(readr)
library(purrr)
library(tidyr)
library(stringr)
library(tibble)
library(tcltk2)
library(lubridate)

run_api_once <- function() {
  
  mydatalist <- list() #create an empty list
  
  my_next_page_with_number <- "http://universities.hipolabs.com/search?country=United+States"

    mydata1 <- RETRY("GET", my_next_page_with_number)
    
    if(mydata1$status_code != 200){
      print(mydata1$status_code)
      http_responses <<- append(http_responses, paste(mydata1$status_code, Sys.time()))
      has_more_pages <- FALSE
      
    } else {
      
      rawdata <- rawToChar(mydata1$content)
      mydata2 <- fromJSON(rawdata, flatten = FALSE, simplifyVector = FALSE)
      
      mydata <- mydata2
      
      mydatalist <- c(mydatalist, mydata)
    }
  
  
    y <- Sys.time()
    y <- format(y, "%Y-%m-%d %H:%M")
    print(y)
    
  users <- tibble(user = mydatalist)
  myvar <<- users %>% unnest_wider(user) 

return(myvar)
  
}


# call function every 10 seconds:
tclTaskSchedule(10000, run_api_once(), id = "run_api_once", redo = TRUE)

# end session:
tclTaskDelete(NULL)

我想这是无关紧要的，尽管为了完整起见：我使用 Plumber 将 myvar 的内容流式传输到我电脑上的本地服务器。请参阅下面的代码：

# stream df myvar to local api at port 8405:
library(plumber)
pr("D:/plumber_universities2test.R") %>%
# pr("C:/plumber_universities2test.R") %>%
  pr_run(port=8405)

它调用此脚本：

library(plumber)
library(dplyr)

#* @param symbol Ticker symbol (just to input something in the function)
#* @get /return
#* @serializer json list(na="string")

universities_data <- function(symbol) {
  data <- myvar
  data 
}

多谢！