R 从浏览器自动下载和接收文件

我有一个脚本，它使用RSelenium自动下载Excel文件。我试图做到的是：假设这是自动化的，并且每天都在服务器上运行。如何下载它并将其摄入R

library(rvest) 
library(RSelenium)

remDr <- remoteDriver(port=4444L)
remDr$open()
remDr$navigate("http://abc.xyz.com/Login.aspx?ReturnUrl=%2fOrdersAndDelivery%2fOrderStatus.aspx")
username <- remDr$findElement(using = "name", value = "ctl00$MainContent$Login1$UserName")
username$sendKeysToElement(list("xxx"))

password <- remDr$findElement(using = "name", value = "ctl00$MainContent$Login1$Password")
password$sendKeysToElement(list("xxx"))

login <- remDr$findElement(using = "name",value = "ctl00$MainContent$Login1$LoginButton")
login$clickElement()

format_status <- remDr$findElement(using = 'xpath', "//*/option[@value = 'Excel']")
format_status$clickElement()

submit <- remDr$findElement(using = "id",value = "SubmitButton")
submit$clickElement()

库（rvest）
图书馆（资源库）
remDr这是一种解决方法，但是您可以通过检查目录中最近x秒内添加的文件来识别文件名。通过这样做，您可以识别文件名

fileNames <- list.files()
index <- which(Sys.time() - file.info(fileNames)$mtime < 1)
fileNames[index]

fileNames这是一种解决方法，但是您可以通过检查目录中最近x秒内添加的文件来识别文件名。通过这样做，您可以识别文件名

fileNames <- list.files()
index <- which(Sys.time() - file.info(fileNames)$mtime < 1)
fileNames[index]

文件名答案对你有用吗？答案对你有用吗？