This commit is contained in:
dr. M.S. (Matthijs) Berends 2023-01-21 20:57:45 +01:00
parent 8a92c5a869
commit f60bb6aa2d
1 changed files with 1 additions and 1 deletions

View File

@ -165,7 +165,7 @@ add_custom_antimicrobials <- function(x) {
#' @export
clear_custom_antimicrobials <- function() {
n <- nrow(AMR_env$AB_lookup)
AMR_env$AB_lookup <- create_AB_lookup()
AMR_env$AB_lookup <- cbind(AMR::antibiotics, AB_LOOKUP)
n2 <- nrow(AMR_env$AB_lookup)
AMR_env$custom_ab_codes <- character(0)
AMR_env$ab_previously_coerced <- AMR_env$ab_previously_coerced[which(AMR_env$ab_previously_coerced$ab %in% AMR_env$AB_lookup$ab), , drop = FALSE]