out of bounds error in step_pca_sparse()

[EmilHvitfeldt]

library(recipes)
library(ggplot2)
library(embed)

data(ad_data, package = "modeldata")

ad_rec <-
  recipe(Class ~ ., data = ad_data) %>%
  step_normalize(all_numeric_predictors()) %>%
  step_pca_sparse(
    all_numeric_predictors()) %>%
  prep()
#> Warning in irlba::ssvd(x = as.matrix(training[, col_names]), k = 5, n = 129L):
#> no sparsity constraints specified

orbital::orbital(ad_rec)
#> Error:
#> ! Failed to evaluate glue component {rot[, i]}
#> Caused by error in `rot[, i]`:
#> ! subscript out of bounds

^{Created on 2024-07-28 with reprex v2.1.0}