sparse step_dummy progress

sparse-step_dummy.md

library(recipes)
library(nycflights13)

rec <- recipe(dep_delay ~ carrier + tailnum + dest + origin, data = flights) |>
  step_dummy(all_nominal_predictors())

options("recipes.sparse" = FALSE)

system.time({
print(
  lobstr::obj_size(
  rec |>
    prep() |>
    bake(NULL)
  )
)
})
#> Warning: ! There are new levels in a factor: `NA`.
#> 11.22 GB
#>    user  system elapsed 
#> 127.027   9.761 142.584

options("recipes.sparse" = TRUE)

system.time({
  print(
    lobstr::obj_size(
    rec |>
      prep() |>
      bake(NULL)
    )
  )
})
#> 20.80 MB
#>    user  system elapsed 
#>   3.787   0.490   4.330