replace outbreaks data with seattle pets; start updating warm-up slides

posit-conf-2024 · Aug 8, 2024 · 9a7a99d · 9a7a99d
1 parent 24d1d5f
commit 9a7a99d
Show file tree

Hide file tree

Showing 9 changed files with 87,426 additions and 59,494 deletions.
diff --git a/slides/data-raw/warm-up/Seattle_Pet_Licenses_20240802.csv b/slides/data-raw/warm-up/Seattle_Pet_Licenses_20240802.csv
diff --git a/slides/data-raw/warm-up/Table 1-Grid view.csv b/slides/data-raw/warm-up/Table 1-Grid view.csv
diff --git a/slides/data-raw/warm-up/outbreaks.Rmd b/slides/data-raw/warm-up/outbreaks.Rmd
diff --git a/slides/data-raw/warm-up/prep-data.R b/slides/data-raw/warm-up/prep-data.R
@@ -0,0 +1,13 @@
+
+# A list of active/current Seattle pet licenses, including animal type (species), pet's name, breed and the owner's ZIP code.
+# https://data.seattle.gov/Community/Seattle-Pet-Licenses/jguv-t9rb/about_data
+
+library(tidyverse)
+
+seattle_pets <-
+  read_csv(here::here("slides", "data-raw", "warm-up", "Seattle_Pet_Licenses_20240802.csv")) |>
+  janitor::clean_names() |>
+  rename(animal_name = animals_name)
+
+seattle_pets |>
+  write_csv(here::here("slides", "data", "warm-up", "seattle_pets.csv"))
diff --git a/slides/data/warm-up/NationalOutbreakPublicDataTool.xlsx b/slides/data/warm-up/NationalOutbreakPublicDataTool.xlsx