Function bhavs downloads the zipfile of equity bhavcopy from NSE for the given date through RSelenium.
library(nser)
library(RSelenium)
# Start a selenium server and browser
# For Google Chrome (Update Chrome to latest version)
driver <- rsDriver(browser = c("chrome"), port = 3163L, chromever = "91.0.4472.101")
remDr <- driver$client
# or for Firefox
driver <- rsDriver(browser = c("firefox"), port = 3799L)
# Download Equity Bhavcopy zip file
bhavs("03012000", 2)
# Close the Browser
remDr$close()