Highlight the default row in tuning parameters table

[adhikars11]

The default configuration and the plots are based on the optimal value of the first metric. Currently, when the app is first launched, the default row is not selected/highlighted on the tuning parameters datable and we want to do that.
This seems doable but complicated. Here is a way to add a default selection to a DT table. There is also a way to initialize a reactive value (for input$metrics_rows_selected) via eventReactive().

[adhikars11]

I solved this issue by creating a copy of the performance table and finding the row index of the lowest value of the optimal value of the first metric which is the default metric. The following code solved the issue:

table_with_default_metric <- performance %>%
        dplyr::mutate(estimate = ifelse(metric != tune::.get_tune_metric_names(x$tune_results)[1],
                                        NA, estimate))
default_row_index <- which.min(table_with_default_metric$estimate)
output$metrics <- DT::renderDataTable({
        performance %>%
          dplyr::select(-.config) %>%
          DT::datatable(
            selection = list(mode = "single", selected = default_row_index),
            filter = "top",
            fillContainer = FALSE,
            rownames = FALSE,
            style = "bootstrap"
          ) %>%
          DT::formatSignif(columns = reals, digits = 3)
      })

[github-actions]

This issue has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.