page <- html(paste0('http://www.sejm.gov.pl/Sejm7.nsf/',
'wypowiedz.xsp?posiedzenie=15&dzien=1&wyp=0')
page <- html_nodes(page, '.stenogram')
statements_links <- html_nodes(page, 'h2 a')
statements_get_statements_data(statements_links,
home_page = 'http://www.sejm.gov.pl/Sejm7.nsf/')Run the code above in your browser using DataLab