mirror of
https://github.com/msberends/AMR.git
synced 2025-07-08 16:42:10 +02:00
unit tests
This commit is contained in:
@ -161,7 +161,7 @@ bug_drug_combinations <- function(x,
|
||||
out <- run_it(x)
|
||||
}
|
||||
rownames(out) <- NULL
|
||||
out <- as_original_data_class(out, class(x.bak))
|
||||
out <- as_original_data_class(out, class(x.bak)) # will remove tibble groups
|
||||
structure(out, class = c("bug_drug_combinations", ifelse(data_has_groups, "grouped", character(0)), class(out)))
|
||||
}
|
||||
|
||||
@ -322,7 +322,7 @@ format.bug_drug_combinations <- function(x,
|
||||
}
|
||||
|
||||
rownames(y) <- NULL
|
||||
as_original_data_class(y, class(x.bak))
|
||||
as_original_data_class(y, class(x.bak)) # will remove tibble groups
|
||||
}
|
||||
|
||||
#' @method print bug_drug_combinations
|
||||
|
Reference in New Issue
Block a user