library(rvest)
library(archivist)
library(lubridate)
library(xml2)
library(curl)

web_content <- read_html(curl('http://www.sejm.gov.pl/Sejm9.nsf/komunikat.xsp?documentId=84824AA372FAA97AC12584C700554123', handle = new_handle("useragent" = "Mozilla/5.0")))
web_content

strona <- url("http://www.sejm.gov.pl/Sejm9.nsf/komunikat.xsp?documentId=84824AA372FAA97AC12584C700554123","rb")
strona1 <- read_html(strona)
strona1

#zobaczy czy to web_content albo strona1 się wyświetli