library(rvest)
library(httr)
library(RSelenium)



rD <- rsDriver(port=4444L,browser="phantomjs")
remDr <- rD$client

#navigate to main page
remDr$navigate('https://prog.nfz.gov.pl/APP-JGP/KatalogJGP.aspx')

#find 'filter by season' box and click it
webElem <- remDr$findElement(using = 'xpath', value = "//*[(@id = 'ContentPlaceHolder2_ddlSymylacjaJGP')]")
webElem$clickElement()

option <- remDr$findElement(using = 'xpath', "//*/option[text() = 'Rok 2015 - Katalog 1a']")
option$clickElement()

#find 2014/15 season and click it
webElem1 <- remDr$findElement(using = 'xpath', value = "//*[(@id = 'ContentPlaceHolder2_ddlKatalogJGP')]")
webElem1$clickElement()

getsource <-remDr$getPageSource()
name<- read_html(getsource[[1]]) %>% html_nodes("strong") %>% html_text()


#literature: library(rentrez)
# http://stackoverflow.com/questions/25603894/r-not-accepting-xpath-query