P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 18:22:02 +02:00
Code Releases Activity

(v1.7.1.9063) not_intrinsic_resistant

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-12-09 10:48:25 +01:00
parent e63defe324
commit e18c49ed93
32 changed files with 275 additions and 185 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/guess_ab_col.R
View File

@ -238,9 +238,10 @@ get_column_abx <- function(x,
if (sort == TRUE) {
out <- out[order(names(out), out)]
}
duplicates <- c(out[duplicated(out)], out[duplicated(names(out))])
duplicates <- duplicates[unique(names(duplicates))]
out <- c(out[!names(out) %in% names(duplicates)], duplicates)
# only keep the first hits, no duplicates
duplicates <- c(out[duplicated(names(out))], out[duplicated(unname(out))])
out <- out[!duplicated(names(out))]
out <- out[!duplicated(unname(out))]
if (sort == TRUE) {
out <- out[order(names(out), out)]
}