2013-02-06 46 views
0

我一直在这段代码工作了一段时间,基本上我需要从this目录读取文件,但我不断收到错误“无法打开连接”,请帮助我看看哪个部分出了问题?R错误无法打开连接使用url

希望这段代码不会混淆你很多,真的想弄清楚如何从上面的链接中获得所有文件以.M文件(.M09或.M10)结尾,如果你有更好的想法达到,请帮助,谢谢。

file.path.in <- file.path("C:", "Users", "agclim", "GAData", fsep=.Platform$file.sep); # Windows        
file.extension <- c("(\\.M\\d{2})"); 
filename.in.all <- list.files(file.path.in, pattern=paste(file.extension,"+$",sep=""), full.names=FALSE);  
filename.in.all <- sort(filename.in.all, decreasing=FALSE);   
library("gdata"); 
for (i.in in 1:length(filename.in.all)) { 
    cat(paste("The data in the",filename.in.all[i.in],"file are processing now.", sep=" "), "\n"); 
    url.conn.server <- url(file.path("ftp://agrofawn-prod01.osg.ufl.edu","pub", "howard","georgia",filename.in.all[i.in],fsep=.Platform$file.sep), open="r", blocking=TRUE, encoding=getOption("encoding"));  
    data.01 <- readLines(url.conn.server, n=-1, ok=TRUE);      
    unlink(url.conn.server); 
    close(url.conn.server); 
} 

回答

0

你不想在你的url()通话file.path()位。尝试这个代替:

ftp_url <- "ftp://agrofawn-prod01.osg.ufl.edu/pub/howard/georgia/" 
# ...skipping loop logic... 
url.conn.server <- url(paste(ftp_url, filename.in.all[i.in], sep="")) 
+0

url.conn.server现在工作原理,但下面的行 “ Rosa

+0

什么是错误? –

+0

原始错误是“NA文件中的数据正在处理中 URL中的错误(file.path(”ftp://agrofawn-prod01.osg.ufl.edu “,”pub“,”howard“,:无法打开连接”,在我尝试ur解决方案后,错误变成“NA文件中的数据正在处理中 readLines中的错误(url.conn.server,n = -1,ok = TRUE):无法打开连接“ – Rosa