P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-01-30 23:44:39 +01:00
Code Releases Activity

fix note

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R/custom_antimicrobials.R
View File

@ -165,7 +165,7 @@ add_custom_antimicrobials <- function(x) {
#' @export #' @export
clear_custom_antimicrobials <- function() { clear_custom_antimicrobials <- function() {
n <- nrow(AMR_env$AB_lookup) 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) n2 <- nrow(AMR_env$AB_lookup)
AMR_env$custom_ab_codes <- character(0) 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] 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]