Error creating a simple fable

[robjhyndman]

library(dplyr)
library(tsibble)
library(fabletools)

# This works
tsibble(
    y = c(1, 2, 3),
    date = as.Date(c("2000-01-01", "2000-01-02", "2000-01-03")),
    index = date
  ) %>%
  mutate(dist = dist_unknown(3)) %>%
  as_fable(response = y, distribution = dist)
#> # A fable: 3 x 3 [1D]
#>       y date       dist  
#>   <dbl> <date>     <dist>
#> 1     1 2000-01-01 ?     
#> 2     2 2000-01-02 ?     
#> 3     3 2000-01-03 ?

# But this doesn't
fable(
  y = c(1, 2, 3),
  date = as.Date(c("2000-01-01", "2000-01-02", "2000-01-03")),
  index = date,
  dist = dist_unknown(3),
  response = y,
  distribution = dist
)
#> Error: Can't convert a `quosure/formula` object to a string

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

[mitchelloharawild]

Works fine with dev fabletools. We're avoiding bare expressions, especially for the response attribute as it is no longer required as a column in the dataset.

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
library(tsibble)
library(fabletools)

# This works
tsibble(
  y = c(1, 2, 3),
  date = as.Date(c("2000-01-01", "2000-01-02", "2000-01-03")),
  index = date
) %>%
  mutate(dist = dist_unknown(3)) %>%
  as_fable(response = "y", distribution = "dist")
#> # A fable: 3 x 3 [1D]
#>       y date       dist  
#>   <dbl> <date>     <dist>
#> 1     1 2000-01-01 ?     
#> 2     2 2000-01-02 ?     
#> 3     3 2000-01-03 ?

# But this doesn't
fable(
  y = c(1, 2, 3),
  date = as.Date(c("2000-01-01", "2000-01-02", "2000-01-03")),
  index = date,
  dist = dist_unknown(3),
  response = "y",
  distribution = "dist"
)
#> # A fable: 3 x 3 [1D]
#>       y date       dist  
#>   <dbl> <date>     <dist>
#> 1     1 2000-01-01 ?     
#> 2     2 2000-01-02 ?     
#> 3     3 2000-01-03 ?

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