从受密码保护的FTP服务器下载zip文件

Question

我想从受密码保护的ftp服务器上下载多个zip文件，但是卡住了。

我的第一种方法是仅下载一个zip文件：

library(RCurl)
url <- "ftp://adress"
userpwd = "user:pw"

listoffiles <- getURL(url,userpwd = userpwd, dirlistonly = TRUE)

filenames <- read.csv(text = listoffiles, header = F)
filenames <- sapply(filenames, as.vector)

download.file(paste( url, filenames[1], sep="" ) , paste( "./" ,  filenames[1] , sep = "" ),   mode="wb" )

这只会导致无尽的负载... 多谢您的协助！