if (FALSE) { # interactive() || identical(Sys.getenv("IN_PKGDOWN"), "true")
library(dplyr)
car_pred <- select(mtcars, -mpg)
# Needs an upper bound
mtry()
finalize(mtry(), car_pred)
# Nothing to do here since no unknowns
penalty()
finalize(penalty(), car_pred)
library(kernlab)
library(tibble)
library(purrr)
params <-
  tribble(
    ~parameter, ~object,
    "mtry", mtry(),
    "num_terms", num_terms(),
    "rbf_sigma", rbf_sigma()
  )
params
# Note that `rbf_sigma()` has a default range that does not need to be
# finalized but will be changed if used in the function:
complete_params <-
  params |>
  mutate(object = map(object, finalize, car_pred))
complete_params
params |>
  dplyr::filter(parameter == "rbf_sigma") |>
  pull(object)
complete_params |>
  dplyr::filter(parameter == "rbf_sigma") |>
  pull(object)
}
Run the code above in your browser using DataLab