R脚本问题-从列表中采样并使用间隔

你好，这是我的代码…

# Load Libraries and Suppress Messages:
#
suppressMessages(library(dplyr))        # Re-arranging data frames
suppressMessages(library(httr))         # For http utilities
#
# Read in the URL Data from CSV:
print("Read the Data into R...")
url_list <- read.csv(file="urllist.csv", stringsAsFactors=FALSE, header=FALSE)
#
# Example HTTR Package 'HTTP GET' Code:
# GET("http://symantec.com/")
#
# For' Loop for URL List Iterations
for (i in 1:40) {
  selected_sample <- sample(url_list$V1, size=1, replace=FALSE)
  GET(selected_sample)
  interval <- runif(1, min=1, max=2)
  Sys.sleep(interval)
}
#
# Finish the Script:
print("Finished & Closing Script")

以下是我的解释：

[1] "Initializing Script"
[1] "Read the Data into R..."
Error in curl::curl_fetch_memory(url, handle = handle) : 
  Couldn't resolve host name

我正在尝试编写一个测试脚本，该脚本将在一段时间（1小时）内读取URL列表，并在DNS日志中的DNS服务器上生成DNS请求。DNS日志中的DNS请求生成工作正常，但要获得正确的时间却很棘手

---

我在“interval打印出每个url之前遇到了麻烦，以确保它们是您所期望的

---

这个错误是GET（curl）中的一个解决问题，我不明白你为什么要责怪runif…–Tensibai

---

你好，pcantalupo和Tensibai，非常感谢你的建议。我想我的url列表中有一个错误的url。我将它替换为另一个，并成功运行，没有错误。非常感谢Rick–Rick_thompson

---

600次迭代耗时约1小时，谢谢，所有问题现在都已解决。

在GET之前打印出每个url，以确保它们符合您的预期。错误是GET（curl）中的解决问题我不明白你为什么要责怪runif…嗨，pcantalupo和Tensibai，非常感谢你的建议真的很有帮助。我想我的url列表中有一个不好的url。我将它替换为另一个，并设法运行无误。非常感谢，RickI现在将运行一个2200次迭代的循环，并计时，希望使用我添加了间隔。谢谢Rick。600次迭代花了大约1小时，谢谢，所有问题现在都解决了。