getURL()函数做获取网页做debug,三步骤
1、首先创建一个对象debugGatherer(),该对象包含三个函数:(update(), value(), reset());
R> debugInfo <- debugGatherer() R> names(debugInfo) [1] "update" "value" "reset" R> class(debugInfo[[1]]) [1] "function"
2、然后请求一个url使用getURL(debugfunction,verbose=TRUE),注意参数debugfunciton和参数vervose
res <- getURL(url = url, debugfunction = debugInfo$update,verbose = T)
3、然后利用函数 value()访问 debugInfo,注意返回值
R> names(debugInfo$value())
[1] "text" "headerIn" "headerOut" "dataIn" "dataOut"
[6] "sslDataIn" "sslDataOut"