从sftp服务器下载csv并将其用作数据框

Question

我想从sftp服务器下载一个csv文件，并将其用作数据框。

我正在做以下事情：

library(RCurl) 


url<-c("sftp://data.ftp.net/data.csv")
x <-getURL(url, userpwd="<username>:<passwd>")
writeLines(x, con="data.csv"))

dataframe <- read.csv("data.csv")

问题在于，当使用getURL时，读取文件需要很长时间，例如，大约12分钟以上读取38~mb的文件，通常需要几秒钟才能下载其他FTP客户端（如Filezilla）中的文件。考虑下载多个文件的情况，这是一个巨大的差异。

有更高效/更快的方法吗？