9.1 Update formula

all_wf <- bb_wf %>%
  workflows::update_formula(Sale_Price ~ .)

all_wf %>%
  tune::last_fit(ames_split) %>%
  tune::collect_metrics()
## ! Resample1: model (predictions): prediction from a rank-deficient fit may be misleading
## # A tibble: 2 x 3
##   .metric .estimator .estimate
##   <chr>   <chr>          <dbl>
## 1 rmse    standard   38981.   
## 2 rsq     standard       0.758