mirror of https://github.com/msberends/AMR.git
89 lines
4.3 KiB
R
89 lines
4.3 KiB
R
% Generated by roxygen2: do not edit by hand
|
|
% Please edit documentation in R/custom_eucast_rules.R
|
|
\name{custom_eucast_rules}
|
|
\alias{custom_eucast_rules}
|
|
\title{Define Custom EUCAST Rules}
|
|
\usage{
|
|
custom_eucast_rules(...)
|
|
}
|
|
\arguments{
|
|
\item{...}{rules in \link[base:tilde]{formula} notation, see \emph{Examples}}
|
|
}
|
|
\value{
|
|
A \link{list} containing the custom rules
|
|
}
|
|
\description{
|
|
Define custom EUCAST rules for your organisation or specific analysis and use the output of this function in \code{\link[=eucast_rules]{eucast_rules()}}.
|
|
}
|
|
\details{
|
|
Some organisations have their own adoption of EUCAST rules. This function can be used to define custom EUCAST rules to be used in the \code{\link[=eucast_rules]{eucast_rules()}} function.
|
|
}
|
|
\section{How it works}{
|
|
|
|
\subsection{Basics}{
|
|
|
|
If you are familiar with the \code{\link[dplyr:case_when]{case_when()}} function of the \code{dplyr} package, you will recognise the input method to set your own rules. Rules must be set using what \R considers to be the 'formula notation'. The rule itself is written \emph{before} the tilde (\code{~}) and the consequence of the rule is written \emph{after} the tilde:
|
|
|
|
\if{html}{\out{<div class="sourceCode {r}">}}\preformatted{x <- custom_eucast_rules(TZP == "S" ~ aminopenicillins == "S",
|
|
TZP == "R" ~ aminopenicillins == "R")
|
|
}\if{html}{\out{</div>}}
|
|
|
|
These are two custom EUCAST rules: if TZP (piperacillin/tazobactam) is "S", all aminopenicillins (ampicillin and amoxicillin) must be made "S", and if TZP is "R", aminopenicillins must be made "R". These rules can also be printed to the console, so it is immediately clear how they work:
|
|
|
|
\if{html}{\out{<div class="sourceCode {r}">}}\preformatted{x
|
|
}\if{html}{\out{</div>}}
|
|
|
|
The rules (the part \emph{before} the tilde, in above example \code{TZP == "S"} and \code{TZP == "R"}) must be evaluable in your data set: it should be able to run as a filter in your data set without errors. This means for the above example that the column \code{TZP} must exist. We will create a sample data set and test the rules set:
|
|
|
|
\if{html}{\out{<div class="sourceCode {r}">}}\preformatted{df <- data.frame(mo = c("Escherichia coli", "Klebsiella pneumoniae"),
|
|
TZP = as.rsi("R"),
|
|
ampi = as.rsi("S"),
|
|
cipro = as.rsi("S"))
|
|
df
|
|
|
|
eucast_rules(df, rules = "custom", custom_rules = x, info = FALSE)
|
|
}\if{html}{\out{</div>}}
|
|
}
|
|
|
|
\subsection{Using taxonomic properties in rules}{
|
|
|
|
There is one exception in variables used for the rules: all column names of the \link{microorganisms} data set can also be used, but do not have to exist in the data set. These column names are: \verb{r vector_and(colnames(microorganisms), sort = FALSE)}. Thus, this next example will work as well, despite the fact that the \code{df} data set does not contain a column \code{genus}:
|
|
|
|
\if{html}{\out{<div class="sourceCode {r}">}}\preformatted{y <- custom_eucast_rules(TZP == "S" & genus == "Klebsiella" ~ aminopenicillins == "S",
|
|
TZP == "R" & genus == "Klebsiella" ~ aminopenicillins == "R")
|
|
|
|
eucast_rules(df, rules = "custom", custom_rules = y, info = FALSE)
|
|
}\if{html}{\out{</div>}}
|
|
}
|
|
|
|
\subsection{Usage of antibiotic group names}{
|
|
|
|
It is possible to define antibiotic groups instead of single antibiotics for the rule consequence, the part \emph{after} the tilde. In above examples, the antibiotic group \code{aminopenicillins} is used to include ampicillin and amoxicillin. The following groups are allowed (case-insensitive). Within parentheses are the agents that will be matched when running the rule.
|
|
|
|
\verb{r paste0(" * ", sapply(DEFINED_AB_GROUPS, function(x) paste0("\\"", tolower(gsub("^AB_", "", x)), "\\"\\\\cr(", vector_and(ab_name(eval(parse(text = x), envir = asNamespace("AMR")), language = NULL, tolower = TRUE), quotes = FALSE), ")"), USE.NAMES = FALSE), "\\n", collapse = "")}
|
|
}
|
|
}
|
|
|
|
\examples{
|
|
x <- custom_eucast_rules(
|
|
AMC == "R" & genus == "Klebsiella" ~ aminopenicillins == "R",
|
|
AMC == "I" & genus == "Klebsiella" ~ aminopenicillins == "I"
|
|
)
|
|
x
|
|
|
|
# run the custom rule set (verbose = TRUE will return a logbook instead of the data set):
|
|
eucast_rules(example_isolates,
|
|
rules = "custom",
|
|
custom_rules = x,
|
|
info = FALSE,
|
|
verbose = TRUE
|
|
)
|
|
|
|
# combine rule sets
|
|
x2 <- c(
|
|
x,
|
|
custom_eucast_rules(TZP == "R" ~ carbapenems == "R")
|
|
)
|
|
x2
|
|
}
|