0

我一直在研究这段代码，基本上我需要从这个目录中读取文件，但是我一直收到错误“无法打开连接”，请帮我看看哪一部分出错了？

希望这段代码不会让你感到困惑，真的很想弄清楚如何从上面的链接中获取所有以 .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);
}
4

1 回答 1

0

你不想file.path()在你的url()电话中出现这个问题。试试这个：

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=""))
于 2013-02-06T18:59:21.700 回答