如何解决使用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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。