R/read_poland_links.R

In martinbaumgaertner/cbtext: scrape central banks

read_poland_minute_links<-function(){
  part<-xml2::read_html("https://nbp.pl/en/monetary-policy/mpc-documents/mpc-minutes/")%>%
    rvest::html_nodes("a")%>%
    rvest::html_attr("href")
  
  part<-part[grepl("mi_|voting",part)]
  
  return(part)
}

read_poland_ir_links<-function(){
  part<-xml2::read_html("https://nbp.pl/en/monetary-policy/mpc-documents/inflation-report/")%>%
    rvest::html_nodes("a")%>%
    rvest::html_attr("href")
  
  part<-part[grepl(".pdf",part)]
  
  return(part)
}

read_poland_release_links<-function(){
  part<-xml2::read_html("https://nbp.pl/en/monetary-policy/mpc-documents/monetary-policy-council-press-releases/")%>%
    rvest::html_nodes("a")%>%
    rvest::html_attr("href")
  
  part<-part[grepl(".pdf",part)]
  
  return(part)
}