I gave this one a try here, didn't get the full million, but about 50.000 it seems:
#Loading the rvest package
library('rvest')
#Specifying the url for desired website to be scraped
url <- 'https://www.piday.org/million/'
#Reading the HTML code from the website
webpage <- read_html(url)
pi_xml <- html_nodes(webpage,'#million_pi')
pi_data <- html_text(pi_xml)
substr(pi_data, 1, 100)