website

R/bug_drug_combinations.R

@@ -164,9 +164,9 @@ bug_drug_combinations <- function(x,
   } else {
     out <- run_it(x)
   }
-  rownames(out) <- NULL
   out <- out %pm>% pm_arrange(mo, ab)
   out <- as_original_data_class(out, class(x.bak)) # will remove tibble groups
+  rownames(out) <- NULL
   structure(out, class = c("bug_drug_combinations", ifelse(data_has_groups, "grouped", character(0)), class(out)))
 }