Make random forest faster

[EmilHvitfeldt]

Trying to deal with tidymodels/orbital#83

For the following code i'm getting:

library(tidymodels)
library(orbital)

rec_spec <- recipe(Sale_Price ~ ., data = ames) |>
  step_normalize(all_numeric_predictors()) |>
  step_dummy(all_nominal_predictors())

mod_spec <- rand_forest("regression", trees = 1)

wf_spec <- workflow(rec_spec, mod_spec)

wf_fit <- fit(wf_spec, ames)

orb <- orbital(wf_fit)

Before

So far