ur_revisions.R

library(readabs) # Need dev version: remotes::install_github("mattcowgill/readabs")
library(tidyverse)

get_ur <- function(release_date = "latest",
                   series_id = "A84423050A") {
  raw <- read_abs_series(series_id = series_id,
                  release_date = release_date) |> 
    select(date, series_id, value)
  
  if (release_date == "latest") {
    raw |> 
      mutate(release_date = max(date))
  } else {
    raw |> 
      mutate(release_date = ymd(release_date))
  }
}

dates <- seq(ymd("2019-12-01"),
             ymd("2022-10-01"),
             "1 month")

ur <- map_dfr(as.character(dates),
              get_ur)

ur |> 
  filter(date == ymd("2020-04-01")) |> 
  ggplot(aes(x = release_date, y = value)) +
  geom_line() +
  theme_minimal(base_size = 18) +
  labs(x = "Data release date", y = "April 2020 unemployment rate")