increase number of vars selected to PCA error #84

# before
PCA1 = 1 + 2 + 3 + 4 + 5

# after
PCA1 = 1 + 2 + 3 
PCA1 = PCA1 + 4 + 5

library(tidymodels)
library(orbital)

rec <- recipe(Sale_Price ~ ., data = ames |> select(Sale_Price, 1:50)) |>
  step_unknown(all_nominal_predictors()) |>
  step_impute_mean(all_numeric_predictors()) |>
  step_dummy(all_nominal_predictors()) |>
  step_zv(all_numeric_predictors()) |>
  step_scale(all_numeric_predictors()) |>
  step_center(all_numeric_predictors()) |>
  step_pca(all_numeric_predictors())

rec |> prep()

mod <- linear_reg()

wf_spec <- workflow(rec, mod)

wf_fit <- fit(wf_spec, ames)

orb <- orbital(wf_fit)

library(DBI)
library(RSQLite)

con_sqlite <- dbConnect(SQLite(), path = ":memory:")

orbital_sql(orb, con_sqlite)