Right click save as in RSelenium

[thomasjwood]

No luck on Stackoverflow so I'm trying here. This is such a straightforward application of the RSelenium package that I'm certain I'm missing something obvious.

I want to download a file whose link is generated on a webpage. The following code gets me 99% of the way there:

library(RSelenium)


RSelenium::checkForServer()
RSelenium::startServer()

eCap <- list(phantomjs.binary.path = "C:/Users/tom/Desktop/phantomjs.exe")

remDr <- remoteDriver(browserName = "phantomjs", 
                  extraCapabilities = eCap)

remDr$open()

remDr$navigate("http://www.fantasypros.com/nfl/rankings/wr.php")

xls_link <- remDr$findElement("css selector", 
                          "#export-xls")

remDr$mouseMoveToLocation(webElement = xls_link)

A screenshot demonstrates that the mouse has been located in the right place.

Why doesn't

remDr$click(2) # 2 indicates click the right mouse button
remDr$sendKeysToActiveElement(list(key = 'down_arrow',
                               key = 'down_arrow',
                               key = 'down_arrow',
                               key = 'down_arrow'))
remDr$click(1)

Initiate the "save as" dialogue? For that matter, why doesn't

remDr$click(1)

Download the *xlsx file?

[daigazi]

try below code

library(RCurl)
tmp=getBinalURL(url)
note=file("helloword.xlsx",open="wb")
writeBin(tmp,note)
class(note)

[johndharrison]

PhantomJS doesn't currently support file downloads. Relevant issues with workarounds:

• File download ariya/phantomjs#10052

• How to handle file save dialog box using Selenium webdriver and PhantomJS ariya/phantomjs#12283

[AmeliaMN]

I'm not sure I'm following. I thought that remDr$click(2) was supposed to do a right click, but it does not. Is this because of PhantomJS? I've tried lots of variations, like remDr$click(buttonId = 2) and remDr$click('RIGHT'). Mostly I'm struggling to find documentation about this. Is there a good resource for general selenium documentation that would help with parameters here?

[Sebaristoteles]

I had issues using RCurl. The curl package is another option to download files like xls, png, etc.
Assuming you have set up your RSelenium instance as "remDr":

library(curl)
remDr$navigate("https://file-examples.com/index.php/sample-documents-download/sample-xls-download/")
element <- remDr$findElement(using = "xpath", "//*[contains(@download,'xls')]")
xls_link <- element$getElementAttribute("href")[[1]]
curl_download(url = xls_link, destfile = 'test.xls')