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

(v2.1.1.9252) fix MIC for >= and <=

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-04-25 10:19:40 +02:00
parent 6135805455
commit abee2a954e
11 changed files with 40 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/plotting.R
View File

@ -412,7 +412,7 @@ create_scale_sir <- function(aesthetics, colours_SIR, language, eucast_I, ...) {
x[x == "I"] <- "(I) Intermediate"
}
x[x == "R"] <- "(R) Resistant"
x[x == "NI"] <- "(NI) Not interpretable"
x[x == "NI"] <- "(NI) Non-interpretable"
x <- translate_AMR(x, language = language)
}
x
@ -685,7 +685,8 @@ autoplot.mic <- function(object,
"(SDD) Susceptible dose-dependent" = colours_SIR[2],
"(I) Susceptible, incr. exp." = colours_SIR[2],
"(I) Intermediate" = colours_SIR[2],
"(R) Resistant" = colours_SIR[3]
"(R) Resistant" = colours_SIR[3],
"(NI) Non-interpretable" = "grey"
)
names(vals) <- translate_into_language(names(vals), language = language)
p <- p +
@ -918,7 +919,8 @@ autoplot.disk <- function(object,
"(SDD) Susceptible dose-dependent" = colours_SIR[2],
"(I) Susceptible, incr. exp." = colours_SIR[2],
"(I) Intermediate" = colours_SIR[2],
"(R) Resistant" = colours_SIR[3]
"(R) Resistant" = colours_SIR[3],
"(NI) Non-interpretable" = "grey"
)
names(vals) <- translate_into_language(names(vals), language = language)
p <- p +