gg_subseries() error when index column name has spaces

[heiku-jiqu]

Hello,

I am getting an error with gg_subseries when my tsibble's index column is named with spaces, e.g. Year Month. There's an error message saying "Don't know how to automatically pick scale for object of type NULL. Defaulting to continuous", which seems to stem from the expr_text() in the line below.

feasts/R/graphics.R

Line 437 in dc8e588

scale_fn <- paste0("scale_x_", ggplot2::scale_type(data[[expr_text(idx)]])[1])

Maybe using as_name() or as_label() instead of expr_text() will help?

[mitchelloharawild]

MRE:

library(feasts)
#> Loading required package: fabletools
library(tsibble)
#> 
#> Attaching package: 'tsibble'
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, union
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 %>% 
  summarise(Trips = sum(Trips)) %>% 
  rename(`index with spaces` = Quarter) %>% 
  gg_subseries()
#> Plot variable not specified, automatically selected `y = Trips`
#> Don't know how to automatically pick scale for object of type NULL. Defaulting to continuous.
#> Error in get(scale_fn, asNamespace("feasts"), mode = "function"): object 'scale_x_continuous' of mode 'function' was not found

^{Created on 2021-05-06 by the reprex package (v1.0.0)}

[mitchelloharawild]

Fixed, thanks!

library(feasts)
#> Loading required package: fabletools
library(tsibble)
#> 
#> Attaching package: 'tsibble'
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, union
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 %>% 
  summarise(Trips = sum(Trips)) %>% 
  rename(`index with spaces` = Quarter) %>% 
  gg_subseries()
#> Plot variable not specified, automatically selected `y = Trips`

^{Created on 2021-05-06 by the reprex package (v1.0.0)}