R Selenium中的OpenFileDialog

我正在为闪亮的应用程序编写一些测试。在UI.R数据中，我们有一个fileInput对象：

fileInput（inputId=“file”，label=”“，accept=c（“.Rdata”））

点击后：

---

webEl您需要将文件名发送到upload DOM元素。下面是一个使用

是的，您可以这样做。您需要将带有文件名的密钥发送到相应的元素。谢谢！我会试试的
require(RSelenium)
RSelenium::startServer()
remDr <- remoteDriver()
remDr$open()
remDr$navigate("https://gallery.shinyapps.io/uploadfile")
webElem <- remDr$findElement("id", "file1")
# create a dummy csv 
testCsv <- tempfile(fileext = ".csv")
x <- data.frame(a = 1:4, b = 5:8, c = letters[1:4])
write.csv(x, testCsv, row.names = FALSE)

# post the file to the app
webElem$sendKeysToElement(list(testCsv))
remDr$close()
remDr$closeServer()

webEl$sendKeysToElement(list('path/to/my/rdata.Rdata'))