4.2 - Incorrect link to raw data in "4 Case study: ER injuries"

[DrWillParry]

Currently, the path to data hosted on GitHub is incorrect. This link causes a "400 invalid request".

https://raw.github.com/hadley/mastering-shiny/main/neiss/

Seems the link should now go to:
https://raw.githubusercontent.com/hadley/mastering-shiny/refs/heads/main/neiss/

Code section that this issue relates to:

dir.create("neiss")
#> Warning in dir.create("neiss"): 'neiss' already exists
download <- function(name) {
  url <- "https://raw.github.com/hadley/mastering-shiny/main/neiss/"
  download.file(paste0(url, name), paste0("neiss/", name), quiet = TRUE)
}
download("injuries.tsv.gz")
download("population.tsv")
download("products.tsv")