从 FTP 服务器检索文件的修改日期时间答案

【问题标题】：Retrieve modified DateTime of a file from an FTP Server从 FTP 服务器检索文件的修改日期时间
【发布时间】：2015-09-09 20:31:33
【问题描述】：

有没有办法在 R 中找到 FTP 服务器上文件的修改日期/时间？我找到了一种列出所有可用文件的好方法，但我只想下载自上次检查以来已更新的文件。我尝试使用：

info<-file.info(url)

但是，它返回一个非常丑陋的列表，什么都没有。我的网址由以下部分组成： "ftp://username:password@FTPServer//filepath.xml"

【问题讨论】：

如果您至少可以显示目录列表的输出会有所帮助

标签： r ftp rcurl last-modified

【解决方案1】：

直到我们看到 这个特定的 FTP 服务器的输出（它们都是不同的）的目录列表，这是您可以遵循的路径：

library(curl)
library(stringr)

获取原始目录列表：

con <- curl("ftp://ftp.FreeBSD.org/pub/FreeBSD/")
dat <- readLines(con)
close(con)
dat

## [1] "-rw-rw-r--    1 ftp      ftp          4259 May 07 16:18 README.TXT" 
## [2] "-rw-rw-r--    1 ftp      ftp            35 Sep 09 21:00 TIMESTAMP"  
## [3] "drwxrwxr-x    9 ftp      ftp            11 Sep 09 21:00 development"
## [4] "-rw-r--r--    1 ftp      ftp          2566 Sep 09 10:00 dir.sizes"  
## [5] "drwxrwxr-x   28 ftp      ftp            52 Aug 23 10:44 doc"        
## [6] "drwxrwxr-x    5 ftp      ftp             5 Aug 05 04:16 ports"      
## [7] "drwxrwxr-x   10 ftp      ftp            12 Sep 09 21:00 releases"

过滤掉目录：

no_dirs <- grep("^d", dat, value=TRUE, invert=TRUE)
no_dirs

## [1] "-rw-rw-r--    1 ftp      ftp          4259 May 07 16:18 README.TXT"
## [2] "-rw-rw-r--    1 ftp      ftp            35 Sep 09 21:00 TIMESTAMP" 
## [3] "-rw-r--r--    1 ftp      ftp          2566 Sep 09 10:00 dir.sizes"

只提取时间戳和文件名：

date_and_name <- sub("^[[:alnum:][:punct:][:blank:]]{43}", "", no_dirs)
date_ane_name
## [1] "May 07 16:18 README.TXT"
## [2] "Sep 09 21:00 TIMESTAMP" 
## [3] "Sep 09 10:00 dir.sizes"

将它们放入data.frame：

do.call(rbind.data.frame, 
        lapply(str_match_all(date_and_name, "([[:alnum:] :]{12}) (.*)$"), 
               function(x) {
                 data.frame(timestamp=x[2],
                            filename=x[3], 
                            stringsAsFactors=FALSE)
})) -> dat
dat

##      timestamp   filename
## 1 May 07 16:18 README.TXT
## 2 Sep 09 21:00  TIMESTAMP
## 3 Sep 09 10:00  dir.sizes

您仍然需要将时间戳转换为POSIXct，但这很简单。

此特定示例取决于该系统的 FTP 目录列表响应。只需更改您的正则表达式即可。

【讨论】：

很高兴它成功了。欢迎在已回答的框中打勾。
如果这对其他人有帮助，如果您的 ftp 有密码，请使用：con ftp.FreeBSD.org/pub/FreeBSD/")