download lottery data

library(RCurl)
library(XML)
library(RSelenium)
RSelenium::checkForServer()
library(data.table)
library(dplyr)
library(magrittr)

## Access Data
readLotteryHistory = function(year){
  year %>% paste0("http://www.cpzhan.com/lotto649/all-results?year=", .) %>%
  remDr$navigate(.)
  "outerHTML" %>% (remDr$findElement(using = "class name", value = "mytable") %>%
    use_series(getElementAttribute)) %>% extract2(1) %>% readHTMLTable()
}

year_today = Sys.Date() %>% year()
RSelenium::startServer()
remDr = RSelenium::remoteDriver()
open_status = remDr$open()
lottery_html = 2004:year_today %>% sapply(function(year) readLotteryHistory(year)) %>% rbindlist(.)
remDr$close()
remDr$closeServer()