Update the vigenette

numbats · May 29, 2024 · 5f6a8fd · 5f6a8fd
1 parent 0b9f9f2
commit 5f6a8fd
Show file tree

Hide file tree

Showing 8 changed files with 60 additions and 3 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -7,3 +7,4 @@
 ^\.github$
 ^LICENSE\.md$
 ^README\.Rmd$
+^key.txt
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -13,7 +13,7 @@ Description: This package allows users to easily retrieve air quality data from
 License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Imports: 
     assertthat,
     httr,

diff --git a/example/example1.R b/example/example1.R
@@ -24,4 +24,8 @@ tb <- get_measures(qr)
 unique(tb$parameter)
 nrow(tb)
 
-a <- get_measurements_for_location(country = "AU", city = "Melbourne", location = "Footscray", max_observations = 100, date_from = lubridate::ymd("2024-05-24"), parameter = c("pm10", "pm25"))
+a <- get_measurements_for_location(country = "AU", city = "Melbourne",
+                                   location = "Footscray",
+                                   max_observations = 100,
+                                   date_from = lubridate::ymd("2024-05-24"),
+                                   parameter = c("pm10", "pm25"))
diff --git a/key b/key
@@ -0,0 +1 @@
+set_openaq_api_key("5132becb89bac7d410e81eadd4384894789b141ba1e5a18b2ac4f599bf132bc5")
diff --git a/man/collate_paginated_output.Rd b/man/collate_paginated_output.Rd
diff --git a/man/figures/.DS_Store b/man/figures/.DS_Store
diff --git a/vignettes/air_quality_map.gif b/vignettes/air_quality_map.gif
diff --git a/vignettes/map-in-australia.Rmd b/vignettes/map-in-australia.Rmd
@@ -20,6 +20,9 @@ library(ozmaps)
 library(sf)
 library(dplyr)
 library(ggplot2)
+library(colorspace)
+library(tsibble)
+library(gganimate)
 
 states <- ozmaps::ozmap_states |>
   filter(NAME %in% c("New South Wales", "Victoria"))
@@ -40,7 +43,7 @@ a <- get_measurements_for_location(
 
 locations_of_interest <- a |>
   filter(long > 141, lat < -31) |>
-  distinct(location_id) |>
+  distinct(location) |>
   pull()
 
 station_data <- get_measurements_for_location(
@@ -74,6 +77,7 @@ animated_plot <- ggplot() +
   geom_sf(data = states) +
   geom_point(aes(x = long, y = lat, colour = log(value)), data = time_series_stations) +
   transition_time(date_utc) +
+  scale_color_continuous_sequential(palette = "Heat")+
   labs(subtitle = "Date: {frame_time}")
 
 anim_save("air_quality_map.gif", nframes = 300, fps = 10, width = 800, height = 600, animation = animated_plot, renderer = gifski_renderer())
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		set_openaq_api_key("5132becb89bac7d410e81eadd4384894789b141ba1e5a18b2ac4f599bf132bc5")