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

(v1.5.0.9011) small dosage update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-01-24 23:27:11 +01:00
parent 286eaa9699
commit 24eb4453db
29 changed files with 207 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/eucast_rules.R
View File

@ -1196,7 +1196,7 @@ eucast_dosage <- function(ab, administration = "iv", version_breakpoints = 11.0)
ab <- as.ab(ab)
df <- AMR::dosage[which(AMR::dosage$ab %in% ab & AMR::dosage$administration %in% administration), , drop = FALSE]
df <- df[match(ab, df$ab), colnames(df)[colnames(df) != "administration"], drop = FALSE]
df <- df[which(df$ab == ab), colnames(df)[colnames(df) != "administration"], drop = FALSE]
rownames(df) <- NULL
df$ab <- ab
df