ibge_ftp.R

ibge_ftp <- paste0("https://ftp.ibge.gov.br/Trabalho_e_Rendimento/",
                   "Pesquisa_Nacional_por_Amostra_de_Domicilios_anual/",
                   "microdados/")


r1 <-  ibge_ftp |> 
       httr2::request() |> 
       httr2::req_perform() |> 
      httr2::resp_body_html()

diretorio <- r1 |> 
         xml2::xml_find_all("//td/a") |> 
         xml2::xml_attr("href") |> 
         tail(-1)

data <- r1 |> 
  xml2::xml_find_all("//td[a/@href]/following-sibling::td[1][@align='right']") |> 
  xml2::xml_text()


url2 <- "https://ftp.ibge.gov.br/Trabalho_e_Rendimento/Pesquisa_Nacional_por_Amostra_de_Domicilios_anual/microdados/2015/"

zips <- url2 |> 
      httr2::request() |> 
      httr2::req_perform() |> 
      httr2::resp_body_html() |> 
      xml2::xml_find_all("//a[contains(@href,'zip')]") |> 
      xml2::xml_attr('href')