R脚本在文件夹中查找最大文件，然后将该文件复制到其他位置

Question

我想找到大于500 KB的最新jpeg或jpg文件。我知道下面的命令将返回所有匹配我需要的扩展名的文件。

但是我怎么能找到高于500 kb的最新文件？找到该文件后，如何将其复制到其他位置并将其重命名为“circle.jpg”？如果在新位置存在“circle.jpg”，我想要一个会覆盖的命令。

filenames <- Sys.glob(c("*.jpg","*.jpeg","*.JPG","*.JPEG"))

Answer 1

#find the most recent jpeg file >500kb and copy it to a location
setwd("C:/watch")#set folder location
filenames <- Sys.glob(c("*.jpg","*.jpeg","*.JPG","*.JPEG"))
file_list=file.info(filenames)
file_list$Size_in_KB=file_list$size/1024
file_list=file_list[file_list$Size_in_KB>300,]
file_list=file_list[order(file_list$mtime),]
file_list=tail(file_list,1)
file.copy(row.names(file_list)[1],"C:/Documents/",overwrite=TRUE)#destination folder to copy. The command will overwrite if a file exists