Report CRAN rust versions

[JosiahParry]

We can begin reporting CRAN's rust versions by using this script.
It relies on the CRAN check status of @albersonmiranda's {fio} package

library(rvest)

check_links <- "https://cran.r-project.org/web/checks/check_results_fio.html" |> 
  read_html() |> 
  html_node(".container") |> 
  html_nodes("a") |> 
  html_attr("href") 

check_links <- unique(check_links[grepl("^https://", check_links)])

install_logs <- gsub(
  "00check.html",
  "00install.html",
  check_links
)

extract_semver <- function(ver) {
  if (grepl("\\d+\\.\\d+(\\.\\d+)?", ver)) {
    sub(".*?(\\d+\\.\\d+(\\.\\d+)?).*", "\\1", ver)
  } else {
    NA
  }
}

versions <- lapply(install_logs, function(.log) {
  message("Extracting Rust & Cargo version from ", .log)
  lns <- readLines(.log)
  rust_version <- extract_semver(lns[grepl("^Rust version:", lns)])
  cargo_version <- extract_semver(lns[grepl("^Cargo version:", lns)])
  data.frame(rustc = rust_version, cargo = cargo_version)
})


# get all of the flavors
flavor <- dirname(
  gsub("https://www.r-project.org/nosvn/r.check/", "", tolower(install_logs))
)

res <- cbind(
  flavor = flavor,
  do.call(rbind.data.frame, versions)
) |> 
  dplyr::mutate(rustc = numeric_version(rustc), cargo = numeric_version(cargo)) |> 
  dplyr::arrange(rustc)