Yêu cầu URL không thành công/hết thời gian chờ trong R

Question

Tôi đang cố tải tệp csv từ url nhưng có vẻ như đã hết thời gian chờ sau một phút. Tệp csv đang được tạo tại thời điểm yêu cầu vì vậy nó cần nhiều hơn một phút. Tôi đã cố gắng tăng thời gian chờ nhưng nó không hoạt động, nó vẫn thất bại sau một phút.

Tôi đang sử dụng url và read.csv như sau:

# Start the timer 
ptm <- proc.time() 
urlCSV <- getURL("http://someurl.com/getcsv", timeout = 200) 
txtCSV <- textConnection(urlCSV) 
csvFile <- read.csv(txtCSV) 
close(txtCSV) 
# Stop the timer 
proc.time() - ptm 

dẫn log:

Error in open.connection(file, "rt") : cannot open the connection 
In addition: Warning message: 
In open.connection(file, "rt") : 
cannot open: HTTP status was '500 Internal Server Error' 

user system elapsed 
0.225 0.353 60.445 

Nó giữ không khi nó đạt một phút, những gì có thể là vấn đề? Hoặc làm cách nào để tăng thời gian chờ?

Tôi đã thử các url trong trình duyệt và nó hoạt động tốt nhưng phải mất hơn một phút để nạp csv

Answer 1

libcurl có CONNECTTIMEOUT thiết http://curl.haxx.se/libcurl/c/CURLOPT_CONNECTTIMEOUT.html. Bạn có thể thiết lập này trong RCurl:

library(RCurl) 
> getCurlOptionsConstants()[["connecttimeout"]] 
[1] 78 
myOpts <- curlOptions(connecttimeout = 200) 
urlCSV <- getURL("http://someurl.com/getcsv", .opts = myOpts) 

Answer 2

Bạn đang nhận được một lỗi 500 từ máy chủ, sẽ gợi ý về thời gian ra đang xảy ra ở đó, và là do ngoài tầm kiểm soát của bạn (trừ khi bạn có thể yêu cầu ít dữ liệu)