R中代理服务器的测试列表

Question

我有一个代理服务器列表，我想与httr和rvest包一起使用。有点像：

x <- read_html(httr::GET("http://www.google.com",
                         use_proxy("111.22.333.444", 8080),
                         user_agent("httr"),
                         verbose()))

但是，并非我列表中的所有代理都会连接。有没有办法提前测试这些？

谢谢！

Answer 1

您可以加载httr库并使用status_code()检查响应状态，如果它不是200，代理可能无效。