使用 phantomJS R 下载文件

Question

我想使用 webdriver 包（phantomJS）下载文件，但是每当我单击/输入该对象时，什么也没有发生。我打算点击“下载 dos bados”，然后点击并下载“Baixar .csv”。

library(webdriver)

url <-'https://idesevis.dee.rs.gov.br/#tab-9023-6'

#webdriver::install_phantomjs() # If it is not installed
pjs <- run_phantomjs()

ses <- Session$new(port = pjs$port)
ses$go(url)
ses$getUrl()

### Click on 'Download dos dados'
search <- ses$findElement(xpath='/html/body/div[2]/nav/div/ul/li[6]/a')
search$sendKeys('html',key$enter)

### Finds and clicks 'Baixar .csv'
search <- ses$findElement(xpath='/html/body/div[2]/div[3]/div/div[7]/div/div[1]/form/a')
search$sendKeys('html',key$enter)
ses$takeScreenshot()

显然，即使使用完整的 xpath，我也没有选择对象“Baixar .csv”。我正在使用 webdriver，因为我无法在笔记本上使用 RSelenium，并且静态网页抓取在这里不适合，因为每次访问主 url 时会话代码都会改变。