summarise_ds_models spits error when dealing with uniform without adjustments

[erex]

Question from list on 18Mar24 about an error message:

Minimum reproducible example

library(Distance)
data(ducknest)
x <- ds(ducknest, key="unif", adjustment = NULL)
summarize_ds_models(x)
Error in `[.data.frame`(res, , 4:7) : undefined columns selected

[erex]

Debugging with MRE above:

Line that throws the error is 110 in summarize_ds_models.R. res data frame contains only 6 columns, hence res[, 4:7] results in undefined column message.