Update link for downloading NEISS data (#601)

Mkranj · web-flow · commit bc9da34aa276 · 2024-10-16T13:18:52.000-05:00
diff --git a/basic-case-study.Rmd b/basic-case-study.Rmd
@@ -76,7 +76,7 @@ If you want to get the data on to your own computer, run this code:
 ```{r, eval = "FALSE"}
 dir.create("neiss")
 download <- function(name) {
-  url <- "https://github.com/hadley/mastering-shiny/raw/main/neiss/"
+  url <- "https://raw.github.com/hadley/mastering-shiny/main/neiss/"
   download.file(paste0(url, name), paste0("neiss/", name), quiet = TRUE)
 }
 download("injuries.tsv.gz")

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ If you want to get the data on to your own computer, run this code:`
`76`	`76`	```{r, eval = "FALSE"}
`77`	`77`	`dir.create("neiss")`
`78`	`78`	`download <- function(name) {`
`79`		`- url <- "https://github.com/hadley/mastering-shiny/raw/main/neiss/"`
	`79`	`+ url <- "https://raw.github.com/hadley/mastering-shiny/main/neiss/"`
`80`	`80`	`download.file(paste0(url, name), paste0("neiss/", name), quiet = TRUE)`
`81`	`81`	`}`
`82`	`82`	`download("injuries.tsv.gz")`