pir_run's model_select_params may be a model_select_params (instead of a list of 1 element which is a model_select_params)

[richelbilderbeek]

Currently, pir_run's model_select_params argument assumes a list of 1 or more elements:

model_select_params <- list(
  create_gen_model_select_param(
    alignment_params = alignment_params,
    tree_prior = create_bd_tree_prior()
  )
)
pir_run(
  model_select_params = model_select_params,
  ...
)

Creating a list is awkward for the user. pir_run must up the params to a list, allowing this interface:

# This should work
model_select_param <- create_gen_model_select_param(
  alignment_params = alignment_params,
  tree_prior = create_bd_tree_prior()
)
pir_run(
  model_select_params = model_select_param,
  ...
)

Doing this is simple: in pir_run if is_model_select_param(model_select_params) == TRUE, model_select_params is not a list and must be made so. Something like this:

if (is_model_select_param(model_select_params) == TRUE) {
  model_select_params <- list(model_select_params)
}

Write a test that the listing marked with # This should work works fine, using expect_silent.

[richelbilderbeek]

I think @Giappo will like this one...

If I have not been clear enough, go ahead and hit me with some questions 👍

[richelbilderbeek]

Great, I'll stress-test this...

[richelbilderbeek]

Passed the stress-testing, closing this Issue