mirror of
https://github.com/msberends/AMR.git
synced 2025-07-09 06:02:01 +02:00
use dplyr where available, new antibiogram()
for WISCA, fixed Salmonella Typhi/Paratyphi
This commit is contained in:
@ -244,9 +244,10 @@ translate_into_language <- function(from,
|
||||
if (NROW(df_trans) == 0 | !any_form_in_patterns) {
|
||||
return(from)
|
||||
}
|
||||
|
||||
|
||||
lapply(
|
||||
seq_len(nrow(df_trans)),
|
||||
# starting from last row, since more general translation are on top, such as 'Group'
|
||||
rev(seq_len(nrow(df_trans))),
|
||||
function(i) {
|
||||
from_unique_translated <<- gsub(
|
||||
pattern = df_trans$pattern[i],
|
||||
|
Reference in New Issue
Block a user