我正在尝试直接从 R 代码本身的 Kaggle 空间下载 zip 文件。不幸的是,它的效果并不好。这是发生的事情:
对于旧金山犯罪数据集,请访问https://www.kaggle.com/c/sf-crime/data https://www.kaggle.com/c/sf-crime/data
取第一个数据集:test.csv.zip:https://www.kaggle.com/c/sf-crime/download/test.csv.zip https://www.kaggle.com/c/sf-crime/download/test.csv.zip
我正在使用 R 代码:
download.file(url='https://www.kaggle.com/c/sf-crime/download/test.csv.zip', destfile = 'test.zip',method = 'curl')
R 只下载 183 字节的文件来代替原始的 18.75MB 文件。
会话输出:
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0100 183 100 183 0 0 665 0 --:--:-- --:--:-- --:--:-- 667
我究竟做错了什么?
提前致谢,
拉胡尔
library(RCurl)
#Set your browsing links
loginurl = "https://www.kaggle.com/account/login"
dataurl = "https://www.kaggle.com/c/titanic/download/train.csv"
#Set user account data and agent
pars=list(
UserName="[email protected] /cdn-cgi/l/email-protection",
Password="-----"
)
agent="Mozilla/5.0" #or whatever
#Set RCurl pars
curl = getCurlHandle()
curlSetOpt(cookiejar="cookies.txt", useragent = agent, followlocation = TRUE, curl=curl)
#Also if you do not need to read the cookies.
#curlSetOpt( cookiejar="", useragent = agent, followlocation = TRUE, curl=curl)
#Post login form
welcome=postForm(loginurl, .params = pars, curl=curl)
bdown=function(url, file, curl){
f = CFILE(file, mode="wb")
curlPerform(url = url, writedata = f@ref, noprogress=FALSE, curl = curl)
close(f)
}
ret = bdown(dataurl, "c:\\test.csv",curl)
rm(curl)
gc()
FYI:像 Web 客户端一样使用 RCurl。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)