How to save file and click ok from download dialog box using RSelenium?-CodePudding

The

How can I save file and click ok with RSelenium?

This is the full HTML:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>ClusPro 2.0: protein-protein docking</title> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> <link rel='stylesheet' type='text/css' href='/css/style.css' /> <link rel='stylesheet' type='text/css' href='/css/loginform.css' /> <link rel='stylesheet' type='text/css' href='/css/signupform.css' /> <link rel='stylesheet' type='text/css' href='/css/contactform.css' /> <link rel='stylesheet' type='text/css' href='/css/jobsform.css' /> <link rel='stylesheet' type='text/css' href='/css/goodform.css' /> <link rel="stylesheet" type="text/css" href="//cdnjs.cloudflare.com/ajax/libs/yui/2.9.0/grids/grids-min.css" /> <style type="text/css">#tabResults { font-weight:bold; }</style> <link rel="shortcut icon" href="/favicon.png" type="image/png" /> <script type="text/javascript" src="/js/jquery-3.5.1.min.js"></script> <script type="text/javascript" src="/js/jquery.equalheights.js"></script> <script type="text/javascript"> var models = { reinit: function(){ var showmodels = $('#showmodels').prop('value'); $('td:gt(' showmodels ')').hide(); $('td:eq(' showmodels ')').hide(); $('td:lt(' showmodels ')').show(); $('#modelslink').prop('href', 'zipmodels.php?job=705945&coeffi=0&nmodels=' showmodels); } } $(document).ready(function(){ models.reinit(); $('#showmodels').change(models.reinit); }) </script> </head> <body> <div id="doc"> <div id="hd"> <ul id='tabs-menu'> <li><a id='tabContact' href='/contact.php'>Contact</a></li> <li><a id='tabHelp' href='/help.php'>Help</a></li> <li><a id='tabPapers' href='/publications.php'>Papers</a></li> <li><a id='tabResults' href='/results.php'>Results</a></li> <li><a id='tabQueue' href='/queue.php'>Queue</a></li> <li><a id='tabDimer' href='/dimer_predict/submit.php'>Dimer Classification</a></li> <li><a id='tabPeptide' href='/peptide/index.php'>Peptide Docking</a></li> <li><a id='tabDock' href='/home.php'>Dock</a></li> </ul> <img src='/image/ClusPro1.png' width='750' height='160' alt=''/> </div> <div id="bd"> <div id='main-header-right'> <a href='/logout.php'>sign out</a> </div> <h3><a href='jobdetail.php?job=705945'>Job Details</a>: lrp1_vs_Hx1sh2</h3><h4><a href='scores.php?job=705945&coeffi=0'>View Model Scores</a></h4><a href='file.php?jobid=705945&coeffi=0&model=0&filetype=model_bz2'>Download all Models for all Coefficients</a><div style="padding-top:1em;">Balanced | <a href='models.php?job=705945&coeffi=2'>Electrostatic-favored</a> | <a href='models.php?job=705945&coeffi=4'>Hydrophobic-favored</a> | <a href='models.php?job=705945&coeffi=6'>VdW Elec</a></div><br /><div>Display Models: <form style='display:inline;'><select id='showmodels'><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='23'>23</option></select></form></div><br /><a id='modelslink' href=''>Download Displayed Models</a><br /><br /><strong>If you use these models in a paper, please cite our <a href='publications.php'>papers</a></strong><br /><br /><table class='nice' id='models'><tr><td><a href='file.php?jobid=705945&coeffi=0&model=0&filetype=model_file'>0</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=0&filetype=model_img' alt='0' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=1&filetype=model_file'>1</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=1&filetype=model_img' alt='1' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=2&filetype=model_file'>2</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=2&filetype=model_img' alt='2' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=3&filetype=model_file'>3</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=3&filetype=model_img' alt='3' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=4&filetype=model_file'>4</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=4&filetype=model_img' alt='4' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=5&filetype=model_file'>5</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=5&filetype=model_img' alt='5' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=6&filetype=model_file'>6</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=6&filetype=model_img' alt='6' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=7&filetype=model_file'>7</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=7&filetype=model_img' alt='7' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=8&filetype=model_file'>8</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=8&filetype=model_img' alt='8' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=9&filetype=model_file'>9</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=9&filetype=model_img' alt='9' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=10&filetype=model_file'>10</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=10&filetype=model_img' alt='10' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=11&filetype=model_file'>11</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=11&filetype=model_img' alt='11' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=12&filetype=model_file'>12</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=12&filetype=model_img' alt='12' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=13&filetype=model_file'>13</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=13&filetype=model_img' alt='13' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=14&filetype=model_file'>14</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=14&filetype=model_img' alt='14' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=15&filetype=model_file'>15</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=15&filetype=model_img' alt='15' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=16&filetype=model_file'>16</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=16&filetype=model_img' alt='16' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=17&filetype=model_file'>17</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=17&filetype=model_img' alt='17' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=18&filetype=model_file'>18</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=18&filetype=model_img' alt='18' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=19&filetype=model_file'>19</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=19&filetype=model_img' alt='19' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=20&filetype=model_file'>20</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=20&filetype=model_img' alt='20' /></td><td><a href='file.php?jobid=705945&coeffi=0&model=21&filetype=model_file'>21</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=21&filetype=model_img' alt='21' /></td></tr><tr><td><a href='file.php?jobid=705945&coeffi=0&model=22&filetype=model_file'>22</a><br /><br /><img src='file.php?jobid=705945&coeffi=0&model=22&filetype=model_img' alt='22' /></td><td>23<br /><br />(image not found)</td></tr></table> </div> <div id="ft"> ClusPro should only be used for noncommercial purposes. <br/> <a href='https://www.vajdalab.org' target='_blank'>Vajda Lab</a> and <a href='http://abcgroup.cluspro.org'>ABC Group</a> <br/> <a href='https://www.bu.edu/'>Boston University</a> and <a href='http://www.stonybrook.edu'>Stony Brook University</a> </div> </div> </body> </html>

CodePudding user response：

Add the following to your existing setup, some of which you may already have, just shown here to illustrate, basically supressing the download popup, as well never asking to save for that mime type (bz2)

require(RSelenium) dirdownload <- "/path_to/my_output_dir" fprof <- makeFirefoxProfile(list(browser.download.dir = dirdownload, browser.download.folderList = 2, browser.download.manager.showWhenStarting = FALSE, browser.helperApps.neverAsk.saveToDisk = "application/x-bzip2")) RSelenium::startServer() remDr <- remoteDriver(extraCapabilities = fprof)

CodePudding user response：

To download in the working directory, you can try,

library(stringr) fold = str_replace_all(getwd(), '/', '\\\\') fprof <- makeFirefoxProfile(list(browser.download.dir = fold, browser.download.folderList = 2, browser.download.manager.showWhenStarting = FALSE, browser.helperApps.neverAsk.saveToDisk = "application/x-bzip2"))