Filtering empty <mable> combinations errors badly

[mitchelloharawild]

library(tsibble)
#> Registered S3 method overwritten by 'tsibble':
#>   method               from 
#>   as_tibble.grouped_df dplyr
#> 
#> Attaching package: 'tsibble'
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, union
library(fable)
#> Loading required package: fabletools
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

tourism_purpose <- tourism |> 
  group_by(Purpose) |> 
  summarise(Trips = sum(Trips))

tourism_purpose |> 
  model(TSLM(Trips ~ trend() + season())) |> 
  filter(Purpose == "Fun")
#> Error in `[[.default`:
#> ! subscript out of bounds

^{Created on 2026-01-23 with reprex v2.1.1}