aggregate_key() and gg_season()

[GeorgeAthana]

library(fpp3)
#> -- Attaching packages ------------------------------------------------------------ fpp3 0.3 --
#> v tibble      3.0.3     v tsibble     0.9.2
#> v dplyr       1.0.2     v tsibbledata 0.2.0
#> v tidyr       1.1.2     v feasts      0.1.5
#> v lubridate   1.7.9     v fable       0.2.1
#> v ggplot2     3.3.2
#> -- Conflicts --------------------------------------------------------------- fpp3_conflicts --
#> x lubridate::date()   masks base::date()
#> x dplyr::filter()     masks stats::filter()
#> x tsibble::interval() masks lubridate::interval()
#> x dplyr::lag()        masks stats::lag()
tourism_hts <- tourism %>% aggregate_key(State/Region, Trips = sum(Trips))
tourism_hts %>% filter(State=="NT", is_aggregated(Region)) %>% gg_season(Trips)
#> Error in format.POSIXlt(as.POSIXlt(x), ...): invalid 'format' argument
tourism_hts %>% filter(vctrs::vec_in(State,c("NT", "NSW")), is_aggregated(Region)) %>%
  gg_season(Trips)
#> Error in format.POSIXlt(as.POSIXlt(x), ...): invalid 'format' argument

^{Created on 2020-09-17 by the reprex package (v0.3.0)}