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

(v2.1.1.9083) update for first_isolate()

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2024-09-30 19:13:53 +02:00
parent 681fe011fe
commit 8907e8e4af
4 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
R/first_isolate.R
View File

@ -670,8 +670,7 @@ duplicated_antibiogram <- function(antibiogram, points_threshold, ignore_I, type
# fast return, only 1 isolate
return(FALSE)
}
stop("Check R/first_isolate.R -> duplicated_antibiogram()")
# first sort on data availability - count the dots and order that ascending
# first sort on data availability - count the dots and order that ascending so that highest availability of SIR is on top
number_dots <- vapply(FUN.VALUE = integer(1),
antibiogram,
function(x) sum(strsplit(x, "", fixed = TRUE)[[1]] == "."),