(v2.1.1.9274) Improve is_sir_eligible, rename verbose MDRO output

tests/testthat/test-mdro.R

@@ -282,6 +282,11 @@ test_that("test-mdro.R", {
   #   info = FALSE
   # ))
 
+  expect_equal(
+    colnames(suppressWarnings(mdro(example_isolates[1:10, ], verbose = TRUE, info = FALSE))),
+    c("row_number", "microorganism", "MDRO", "reason", "all_nonsusceptible_columns")
+  )
+
   # print groups
   if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) {
     expect_output(x <- mdro(example_isolates %>% group_by(ward), info = TRUE, pct_required_classes = 0))