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

pm_bind_rows

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-02-11 22:28:48 +01:00
parent b146de6d7f
commit c51fb24363
16 changed files with 282 additions and 275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/eucast_rules.R
View File

@ -475,7 +475,7 @@ eucast_rules <- function(x,
amox$base_ab <- "AMX"
amox$base_name <- ab_name("AMX", language = NULL)
# merge and sort
ab_enzyme <- bind_rows2(ab_enzyme, ampi, amox)
ab_enzyme <- pm_bind_rows(ab_enzyme, ampi, amox)
ab_enzyme <- ab_enzyme[order(ab_enzyme$enzyme_name), , drop = FALSE]
for (i in seq_len(nrow(ab_enzyme))) {
@ -1161,7 +1161,7 @@ edit_sir <- function(x,
)
verbose_new <- verbose_new %pm>% pm_filter(old != new | is.na(old) | is.na(new) & !is.na(old))
# save changes to data set 'verbose_info'
track_changes$verbose_info <- bind_rows2(track_changes$verbose_info,
track_changes$verbose_info <- pm_bind_rows(track_changes$verbose_info,
verbose_new)
# count adds and changes
track_changes$added <- track_changes$added + verbose_new %pm>%
@ -1213,7 +1213,7 @@ eucast_dosage <- function(ab, administration = "iv", version_breakpoints = 12.0)
)
)
}
out <- do.call("bind_rows2", lapply(lst, as.data.frame, stringsAsFactors = FALSE))
out <- do.call("pm_bind_rows", lapply(lst, as.data.frame, stringsAsFactors = FALSE))
rownames(out) <- NULL
out$ab <- ab
out$name <- ab_name(ab, language = NULL)