Extract a listing of all csvs from https://www.stats.govt.nz/large-datasets/csv-files-for-download/

find_all_large_csvs.R

library(tidyverse)
library(rvest)
library(jsonlite)
library(rlang)

all_csvs <-
  read_html("https://www.stats.govt.nz/large-datasets/csv-files-for-download/") |> 
  html_element('#pageViewData') |> 
  html_attr('data-value') |> 
  parse_json() |>
  pluck("PageBlocks") |> 
  discard(~ !has_name(., 'BlockDocuments')) |> 
  map_dfr(function(l) {
    tibble(
      Section = l$Title, 
      Title = l$BlockDocuments |> map_chr(pluck("Title")),
      Path = l$BlockDocuments |> map_chr(pluck("DocumentLink"))
      )
    }
  )