使用RCurl :: getURL从安全FTP获取数据

问题描述

我的组织建立了一个FTP服务器，该服务器保存有读取Shiny应用程序所需的数据。我能够通过以下方式成功连接并获取终端中的写入文件：

curl --ftp-ssl ftp://<HOSTNAME>:<PORT_NUM> --user "<MY_USER>:<MY_PW>" -o Wellness\ Quarantine\ and\ Isolation.csv

但是，由于它是FTPS而不是FTP，因此我最艰难的尝试是使用RCurl软件包将其读入R。当我尝试时，我能够进入，但是由于SSL握手失败而出现了530错误：

library(RCurl)

opts <- curlOptions(
  dirlistonly = TRUE,sslversion = 6L,verbose = TRUE,ftp.use.epsv = FALSE,ssl.verifypeer=TRUE
  
)

x <- getURL("ftp://<HOSTNAME>:<PORT_NUM>",userpwd = "<MY_USER>:<MY_PW>",.opts = opts)

使用curl包使我更接近一点，但是我无法弄清楚如何真正提取文件，只是看到元数据

#using curl package - better maintained
library(curl)
h <- curl::new_handle(ftp_use_epsv=FALSE,dirlistonly=TRUE,crlf=TRUE,ssl_verifypeer=FALSE,ftp_response_timeout=30)
curl::handle_setopt(h,use_ssl = 3)

tmp <- tempfile()
curl::curl_download("ftp://<HOSTNAME>:<PORT_NUM>",handle = h,tmp)

readLines(tmp)

解决方法

经过更多的浏览和抓挠后，此操作成功了！！！
（只需将ftp.ssl = TRUE添加到getURL（）即可）

library (RCurl)

# Input #
protocol <- "ftp"
server <- "<HOSTNAME>:<PORT_NAME>"
userpwd <- "<MY_USER>:<MY_PW>"
tsfrFilename <- "/Wellness\ Quarantine\ and\ Isolation.csv" #you can transfer other kinds,like text,as well.

# Run #
## Download Data
url <- paste0(protocol,"://",server,tsfrFilename)
data <- getURL(url = url,userpwd=userpwd,ftp.ssl = TRUE)


## read File to csv
quar_iso <- readr::read_csv(data)