Default empty module selection to the first module in filter_data()

[Copilot]

filter_data() treated an empty submission from the interactive module_name chooser as "no filter", which left all modules selected. This change makes an empty Enter submission behave like the non-interactive path and default to the first available module.

• Selection behavior

  • preselect the first module_name in utils::select.list()
  • if the interactive chooser returns an empty selection, fall back to the first module instead of bypassing filtering

• Implementation

  • centralize the available module names in a local module_names vector
  • reuse that vector across interactive and non-interactive branches so the default path is consistent

• Targeted test coverage

  • add coverage for empty interactive selection returning the first module
  • add coverage for multi-module, non-interactive input continuing to select the first module

question1 <- utils::select.list(
  options,
  multiple = TRUE,
  preselect = options[1],
  title = "Select one or more of the following module names"
)

selected_module <<- intersect(module_names, question1)
if (length(selected_module) < 1) {
  selected_module <<- module_names[1]
}

• Fixes [fix]: selection panel for module_name selects all if just "enter" is pressed #334

[Schiano-NOAA]

Fantastic