P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-24 18:06:11 +01:00
Code Releases Activity

algorithm improvement

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2023-01-07 14:53:14 +01:00
parent 08fe5a88c0
commit 1029aa2fdc
5 changed files with 27 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
DESCRIPTION
View File

@ -1,5 +1,5 @@
Package: AMR
Version: 1.8.2.9088
Version: 1.8.2.9089
Date: 2023-01-07
Title: Antimicrobial Resistance Data Analysis
Description: Functions to simplify and standardise antimicrobial resistance (AMR)

2
NEWS.md
View File

@ -1,4 +1,4 @@
# AMR 1.8.2.9088
# AMR 1.8.2.9089
*(this beta version will eventually become v2.0! We're happy to reach a new major milestone soon!)*

10
R/mo.R
View File

@ -236,6 +236,9 @@ as.mo <- function(x,
x[trimws2(x) %like% translate_into_language("no .*growth", language = language)] <- NA_character_
x[trimws2(x) %like% paste0("^(", translate_into_language("no|not", language = language), ") ")] <- NA_character_
# groups are in our taxonomic table with a capital G
x <- gsub(" group ", " Group ", x, fixed = TRUE)
# run over all unique leftovers
x_unique <- unique(x[is.na(out) & !is.na(x)])
@ -782,7 +785,7 @@ rep.mo <- function(x, ...) {
#' @noRd
print.mo_uncertainties <- function(x, ...) {
if (NROW(x) == 0) {
cat(word_wrap("No uncertainties to show. Only uncertainties of the last call of `as.mo()` or any `mo_*()` function are stored.\n", add_fn = font_blue))
cat(word_wrap("No uncertainties to show. Only uncertainties of the last call of `as.mo()` or any `mo_*()` function are stored.\n\n", add_fn = font_blue))
return(invisible(NULL))
}
@ -925,6 +928,11 @@ convert_colloquial_input <- function(x) {
x[x %like_case% "strepto[ck]o[ck].* [abcdfghkl]$"],
perl = TRUE
)
out[x %like_case% "strep[a-z]* group [abcdfghkl]$"] <- gsub(".* ([abcdfghkl])$",
"B_STRPT_GRP\\U\\1",
x[x %like_case% "strep[a-z]* group [abcdfghkl]$"],
perl = TRUE
)
out[x %like_case% "group [abcdfghkl] strepto[ck]o[ck]"] <- gsub(".*group ([abcdfghkl]) strepto[ck]o[ck].*",
"B_STRPT_GRP\\U\\1",
x[x %like_case% "group [abcdfghkl] strepto[ck]o[ck]"],

16
R/mo_property.R
View File

@ -137,18 +137,18 @@
#' \donttest{
#' # Becker classification, see ?as.mo ----------------------------------------
#'
#' mo_fullname("Staph. epidermidis")
#' mo_fullname("Staph. epidermidis", Becker = TRUE)
#' mo_shortname("Staph. epidermidis")
#' mo_shortname("Staph. epidermidis", Becker = TRUE)
#' mo_fullname("Staph epidermidis")
#' mo_fullname("Staph epidermidis", Becker = TRUE)
#' mo_shortname("Staph epidermidis")
#' mo_shortname("Staph epidermidis", Becker = TRUE)
#'
#'
#' # Lancefield classification, see ?as.mo ------------------------------------
#'
#' mo_fullname("Strep Group B")
#' mo_fullname("Strep Group B", Lancefield = TRUE)
#' mo_shortname("Strep Group B")
#' mo_shortname("Strep Group B", Lancefield = TRUE)
#' mo_fullname("Strep agalactiae")
#' mo_fullname("Strep agalactiae", Lancefield = TRUE)
#' mo_shortname("Strep agalactiae")
#' mo_shortname("Strep agalactiae", Lancefield = TRUE)
#'
#'
#' # language support --------------------------------------------------------

16
man/mo_property.Rd
View File

@ -409,18 +409,18 @@ mo_shortname("K. pneu rh")
\donttest{
# Becker classification, see ?as.mo ----------------------------------------
mo_fullname("Staph. epidermidis")
mo_fullname("Staph. epidermidis", Becker = TRUE)
mo_shortname("Staph. epidermidis")
mo_shortname("Staph. epidermidis", Becker = TRUE)
mo_fullname("Staph epidermidis")
mo_fullname("Staph epidermidis", Becker = TRUE)
mo_shortname("Staph epidermidis")
mo_shortname("Staph epidermidis", Becker = TRUE)
# Lancefield classification, see ?as.mo ------------------------------------
mo_fullname("Strep Group B")
mo_fullname("Strep Group B", Lancefield = TRUE)
mo_shortname("Strep Group B")
mo_shortname("Strep Group B", Lancefield = TRUE)
mo_fullname("Strep agalactiae")
mo_fullname("Strep agalactiae", Lancefield = TRUE)
mo_shortname("Strep agalactiae")
mo_shortname("Strep agalactiae", Lancefield = TRUE)
# language support --------------------------------------------------------