@@ -24,6 +24,29 @@ convert_stan_interval <- function(x, level = 0.95, lower = TRUE) {
2424 res
2525}
2626
27+ convert_args <- function (model_name ) {
28+ envir <- get_model_env()
29+
30+ args <-
31+ ls(envir ) %> %
32+ tibble :: tibble(name = . ) %> %
33+ dplyr :: filter(grepl(" args" , name )) %> %
34+ dplyr :: mutate(model = sub(" _args" , " " , name ),
35+ args = purrr :: map(name , ~ envir [[.x ]])) %> %
36+ tidyr :: unnest(args ) %> %
37+ dplyr :: select(model : original )
38+
39+ convert_df <- args %> %
40+ dplyr :: filter(grepl(model_name , model )) %> %
41+ dplyr :: select(- model ) %> %
42+ tidyr :: pivot_wider(names_from = engine , values_from = original )
43+
44+ convert_df %> %
45+ knitr :: kable(col.names = paste0(" **" , colnames(convert_df ), " **" ))
46+
47+ }
48+
49+
2750# ------------------------------------------------------------------------------
2851# nocov
2952
@@ -32,8 +55,8 @@ utils::globalVariables(
3255 c(' .' , ' .label' , ' .pred' , ' .row' , ' data' , ' engine' , ' engine2' , ' group' ,
3356 ' lab' , ' original' , ' predicted_label' , ' prediction' , ' value' , ' type' ,
3457 " neighbors" , " .submodels" , " has_submodel" , " max_neighbor" , " max_penalty" ,
35- " max_terms" , " max_tree" , " name" , " num_terms" , " penalty" , " trees" ,
58+ " max_terms" , " max_tree" , " model " , " name" , " num_terms" , " penalty" , " trees" ,
3659 " sub_neighbors" , " .pred_class" )
37- )
60+ )
3861
3962# nocov end
0 commit comments