P281424/AMR
1
0 Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-10-01 04:13:33 +02:00
Code Releases Activity

(v1.5.0.9011) small dosage update

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

No files matched your search

R/eucast_rules.R
+1 -1
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