(v1.5.0.9030) as.ab() speed improvement

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AMR
-Version: 1.5.0.9027
-Date: 2021-02-26
+Version: 1.5.0.9030
+Date: 2021-03-05
 Title: Antimicrobial Resistance Data Analysis
 Authors@R: c(
     person(role = c("aut", "cre"), 
@@ -38,8 +38,8 @@ Authors@R: c(
 Description: Functions to simplify the analysis and prediction of Antimicrobial 
     Resistance (AMR) and to work with microbial and antimicrobial properties by
     using evidence-based methods, like those defined by Leclercq et al. (2013) 
-    <doi:10.1111/j.1469-0691.2011.03703.x> and the Clinical and Laboratory 
-    Standards Institute (2014) <isbn: 1-56238-899-1>.
+    <doi:10.1111/j.1469-0691.2011.03703.x> and containing reference data such as 
+    LPSN <doi:10.1099/ijsem.0.004332>.
 Depends:
     R (>= 3.0.0)
 Suggests:

NEWS.md

@@ -1,5 +1,5 @@
-# AMR 1.5.0.9027
-## <small>Last updated: 26 February 2021</small>
+# AMR 1.5.0.9030
+## <small>Last updated:  5 March 2021</small>
 
 ### New
 * Support for EUCAST Clinical Breakpoints v11.0 (2021), effective in the `eucast_rules()` function and in `as.rsi()` to interpret MIC and disk diffusion values. This is now the default guideline in this package.
@@ -45,6 +45,14 @@
   ```
 
 ### Changed
+* Updated the bacterial taxonomy to 3 March 2021 (using [LSPN](https://lpsn.dsmz.de))
+  * Added 3,372 new species and 1,523 existing species became synomyms
+  * The URL of a bacterial species (`mo_url()`) will now lead to https://lpsn.dsmz.de
+* Big update for plotting classes `rsi`, `<mic>`, and `<disk>`:
+  * Plotting of MIC and disk diffusion values now support interpretation colouring if you supply the microorganism and antimicrobial agent
+  * All colours were updated to colour-blind friendly versions for values R, S and I for all plot methods (also applies to tibble printing)
+  * Interpretation of MIC and disk diffusion values to R/SI will now be translated if the system language is German, Dutch or Spanish (see `translate`)
+  * Plotting is now possible with base R using `plot()` and with ggplot2 using `ggplot()` on any vector of MIC and disk diffusion values
 * `is.rsi()` and `is.rsi.eligible()` now return a vector of `TRUE`/`FALSE` when the input is a data set, by iterating over all columns
 * Using functions without setting a data set (e.g., `mo_is_gram_negative()`, `mo_is_gram_positive()`, `mo_is_intrinsic_resistant()`, `first_isolate()`, `mdro()`) now work with `dplyr`s `group_by()` again
 * `first_isolate()` can be used with `group_by()` (also when using a dot `.` as input for the data) and now returns the names of the groups
@@ -55,8 +63,6 @@
 * `is.rsi.eligible()` now detects if the column name resembles an antibiotic name or code and now returns `TRUE` immediately if the input contains any of the values "R", "S" or "I". This drastically improves speed, also for a lot of other functions that rely on automatic determination of antibiotic columns.
 * Functions `get_episode()` and `is_new_episode()` now support less than a day as value for argument `episode_days` (e.g., to include one patient/test per hour)
 * Argument `ampc_cephalosporin_resistance` in `eucast_rules()` now also applies to value "I" (not only "S")
-* Updated `plot()` functions for classes `<mic>`, `<disk>` and `<rsi>` - the former two now support colouring if you supply the microorganism and antimicrobial agent
-* Updated colours to colour-blind friendly version for values R, S and I in tibble printing and for all plot methods (`ggplot_rsi()` and using `plot()` on classes `<mic>`, `<disk>` and `<rsi>`)
 * Functions `print()` and `summary()` on a Principal Components Analysis object (`pca()`) now print additional group info if the original data was grouped using `dplyr::group_by()`
 * Improved speed and reliability of `guess_ab_col()`. As this also internally improves the reliability of `first_isolate()` and `mdro()`, this might have a slight impact on the results of those functions.
 * Fix for `mo_name()` when used in other languages than English
@@ -64,6 +70,8 @@
 * *Staphylococcus cornubiensis* is now correctly categorised as coagulase-positive
 * `random_disk()` and `random_mic()` now have an expanded range in their randomisation
 * Support for GISA (glycopeptide-intermediate *S. aureus*), so e.g. `mo_genus("GISA")` will return `"Staphylococcus"` 
+* Added translations of German and Spanish for more than 200 antimicrobial drugs
+* Speed improvement for `as.ab()` when the input is an official name or ATC code
 
 ### Other
 * Big documentation updates
@@ -670,7 +678,7 @@ This software is now out of beta and considered stable. Nonetheless, this packag
   * Based on the Compound ID, almost 5,000 official brand names have been added from many different countries
   * All references to antibiotics in our package now use EARS-Net codes, like `AMX` for amoxicillin
   * Functions `atc_certe`, `ab_umcg` and `atc_trivial_nl` have been removed
-  * All `atc_*` functions are superceded by `ab_*` functions
+  * All `atc_*` functions are superseded by `ab_*` functions
   * All output will be translated by using an included translation file which [can be viewed here](https://github.com/msberends/AMR/blob/master/data-raw/translations.tsv)
 * Improvements to plotting AMR results with `ggplot_rsi()`:
   * New argument `colours` to set the bar colours

R/ab.R

@@ -105,14 +105,29 @@ as.ab <- function(x, flag_multiple_results = TRUE, info = TRUE, ...) {
   already_regex <- isTRUE(list(...)$already_regex)
   fast_mode <- isTRUE(list(...)$fast_mode)
   
-  if (all(toupper(x) %in% antibiotics$ab)) {
-    # valid AB code, but not yet right class
-    return(set_clean_class(toupper(x),
-                           new_class = c("ab", "character")))
-  }
 
   x_bak <- x
   x <- toupper(x)
+  x_nonNA <- x[!is.na(x)]
+  
+  if (all(x_nonNA %in% antibiotics$ab, na.rm = TRUE)) {
+    # all valid AB codes, but not yet right class
+    return(set_clean_class(x,
+                           new_class = c("ab", "character")))
+  }
+  if (all(x_nonNA %in% toupper(antibiotics$name), na.rm = TRUE)) {
+    # all valid AB names
+    out <- antibiotics$ab[match(x, toupper(antibiotics$name))]
+    out[is.na(x)] <- NA_character_
+    return(out)
+  }
+  if (all(x_nonNA %in% antibiotics$atc, na.rm = TRUE)) {
+    # all valid ATC codes
+    out <- antibiotics$ab[match(x, antibiotics$atc)]
+    out[is.na(x)] <- NA_character_
+    return(out)
+  }
+  
   # remove diacritics
   x <- iconv(x, from = "UTF-8", to = "ASCII//TRANSLIT")
   x <- gsub('"', "", x, fixed = TRUE)
@@ -310,10 +325,12 @@ as.ab <- function(x, flag_multiple_results = TRUE, info = TRUE, ...) {
       x_translated <- paste(lapply(strsplit(x[i], "[^A-Z0-9]"),
                                    function(y) {
                                      for (i in seq_len(length(y))) {
-                                       y[i] <- ifelse(tolower(y[i]) %in% tolower(translations_file$replacement),
-                                                      translations_file[which(tolower(translations_file$replacement) == tolower(y[i]) &
-                                                                                !isFALSE(translations_file$fixed)), "pattern"],
-                                                      y[i])
+                                       for (lang in LANGUAGES_SUPPORTED[LANGUAGES_SUPPORTED != "en"]) {
+                                         y[i] <- ifelse(tolower(y[i]) %in% tolower(translations_file[, lang, drop = TRUE]),
+                                                        translations_file[which(tolower(translations_file[, lang, drop = TRUE]) == tolower(y[i]) &
+                                                                                  !isFALSE(translations_file$fixed)), "pattern"],
+                                                        y[i])
+                                       }
                                      }
                                      generalise_antibiotic_name(y)
                                    })[[1]],

R/catalogue_of_life.R

@@ -46,7 +46,7 @@ format_included_data_number <- function(data) {
 #' \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 #' This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <http://www.catalogueoflife.org>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, [lpsn.dsmz.de](https://lpsn.dsmz.de)). This supplementation is needed until the [CoL+ project](https://github.com/CatalogueOfLife/general) is finished, which we await.
 #'
-#' [Click here][catalogue_of_life] for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with [catalogue_of_life_version()].
+#' [Click here][catalogue_of_life] for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with [catalogue_of_life_version()].
 #' @section Included Taxa:
 #' Included are:
 #' - All `r format_included_data_number(microorganisms[which(microorganisms$kingdom %in% c("Archeae", "Bacteria", "Chromista", "Protozoa")), ])` (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa
@@ -99,7 +99,7 @@ NULL
 #'
 #' This function returns information about the included data from the Catalogue of Life.
 #' @seealso [microorganisms]
-#' @details For DSMZ, see [microorganisms].
+#' @details For LPSN, see [microorganisms].
 #' @return a [list], which prints in pretty format
 #' @inheritSection catalogue_of_life Catalogue of Life
 #' @inheritSection AMR Read more on Our Website!
@@ -109,15 +109,15 @@ catalogue_of_life_version <- function() {
   check_dataset_integrity()
   
   # see the `catalogue_of_life` list in R/data.R
-  lst <- list(catalogue_of_life =
+  lst <- list(CoL =
                 list(version = gsub("{year}", catalogue_of_life$year, catalogue_of_life$version, fixed = TRUE),
                      url = gsub("{year}", catalogue_of_life$year, catalogue_of_life$url_CoL, fixed = TRUE),
                      n = nrow(pm_filter(microorganisms, source == "CoL"))),
-              deutsche_sammlung_von_mikroorganismen_und_zellkulturen =
-                list(version = "Prokaryotic Nomenclature Up-to-Date from DSMZ",
-                     url = catalogue_of_life$url_DSMZ,
-                     yearmonth = catalogue_of_life$yearmonth_DSMZ,
-                     n = nrow(pm_filter(microorganisms, source == "DSMZ"))),
+              LPSN =
+                list(version = "List of Prokaryotic names with Standing in Nomenclature",
+                     url = catalogue_of_life$url_LPSN,
+                     yearmonth = catalogue_of_life$yearmonth_LPSN,
+                     n = nrow(pm_filter(microorganisms, source == "LPSN"))),
               total_included =
                 list(
                   n_total_species = nrow(microorganisms),
@@ -131,16 +131,15 @@ catalogue_of_life_version <- function() {
 #' @export
 #' @noRd
 print.catalogue_of_life_version <- function(x, ...) {
-  lst <- x
-  cat(paste0(font_bold("Included in this AMR package are:\n\n"),
-             font_underline(lst$catalogue_of_life$version), "\n",
-             "  Available at: ", lst$catalogue_of_life$url, "\n",
-             "  Number of included species: ", format(lst$catalogue_of_life$n, big.mark = ","), "\n",
-             font_underline(paste0(lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$version, " (",
-                                   lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$yearmonth, ")")), "\n",
-             "  Available at: ", lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$url, "\n",
-             "  Number of included species: ", format(lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$n, big.mark = ","), "\n\n",
-             "=> Total number of species included:  ", format(lst$total_included$n_total_species, big.mark = ","), "\n",
-             "=> Total number of synonyms included: ", format(lst$total_included$n_total_synonyms, big.mark = ","), "\n\n",
+  cat(paste0(font_bold("Included in this AMR package (v", utils::packageDescription("AMR")$Version, ") are:\n\n", collapse = ""),
+             font_underline(x$CoL$version), "\n",
+             "  Available at: ", font_blue(x$CoL$url), "\n",
+             "  Number of included microbial species: ", format(x$CoL$n, big.mark = ","), "\n",
+             font_underline(paste0(x$LPSN$version, " (",
+                                   x$LPSN$yearmonth, ")")), "\n",
+             "  Available at: ", font_blue(x$LPSN$url), "\n",
+             "  Number of included bacterial species: ", format(x$LPSN$n, big.mark = ","), "\n\n",
+             "=> Total number of species included:  ", format(x$total_included$n_total_species, big.mark = ","), "\n",
+             "=> Total number of synonyms included: ", format(x$total_included$n_total_synonyms, big.mark = ","), "\n\n",
              "See for more info ?microorganisms and ?catalogue_of_life.\n"))
 }

R/data.R

@@ -83,7 +83,7 @@
 
 #' Data Set with `r format(nrow(microorganisms), big.mark = ",")` Microorganisms
 #'
-#' A data set containing the microbial taxonomy of six kingdoms from the Catalogue of Life. MO codes can be looked up using [as.mo()].
+#' A data set containing the microbial taxonomy, last updated in `r catalogue_of_life$yearmonth_LPSN`, of six kingdoms from the Catalogue of Life (CoL) and the List of Prokaryotic names with Standing in Nomenclature (LPSN). MO codes can be looked up using [as.mo()].
 #' @inheritSection catalogue_of_life Catalogue of Life
 #' @format A [data.frame] with `r format(nrow(microorganisms), big.mark = ",")` observations and `r ncol(microorganisms)` variables:
 #' - `mo`\cr ID of microorganism as used by this package
@@ -92,15 +92,15 @@
 #' - `rank`\cr Text of the taxonomic rank of the microorganism, like `"species"` or `"genus"`
 #' - `ref`\cr Author(s) and year of concerning scientific publication
 #' - `species_id`\cr ID of the species as used by the Catalogue of Life
-#' - `source`\cr Either "CoL", "DSMZ" (see *Source*) or "manually added"
+#' - `source`\cr Either `r vector_or(microorganisms$source)` (see *Source*)
 #' - `prevalence`\cr Prevalence of the microorganism, see [as.mo()]
 #' - `snomed`\cr SNOMED code of the microorganism. Use [mo_snomed()] to retrieve it quickly, see [mo_property()].
 #' @details 
 #' Please note that entries are only based on the Catalogue of Life and the LPSN (see below). Since these sources incorporate entries based on (recent) publications in the International Journal of Systematic and Evolutionary Microbiology (IJSEM), it can happen that the year of publication is sometimes later than one might expect.
 #' 
-#' For example, *Staphylococcus pettenkoferi* was newly named in Diagnostic Microbiology and Infectious Disease in 2002 (PMID 12106949), but it was not before 2007 that a publication in IJSEM followed (PMID 17625191). Consequently, the AMR package returns 2007 for `mo_year("S. pettenkoferi")`.
+#' For example, *Staphylococcus pettenkoferi* was described for the first time in Diagnostic Microbiology and Infectious Disease in 2002 (\doi{10.1016/s0732-8893(02)00399-1}), but it was not before 2007 that a publication in IJSEM followed (\doi{10.1099/ijs.0.64381-0}). Consequently, the AMR package returns 2007 for `mo_year("S. pettenkoferi")`.
 #' 
-#' ## Manually additions
+#' ## Manual additions
 #' For convenience, some entries were added manually:
 #' 
 #' - 11 entries of *Streptococcus* (beta-haemolytic: groups A, B, C, D, F, G, H, K and unspecified; other: viridans, milleri)
@@ -110,7 +110,6 @@
 #' - 1 entry of *Blastocystis* (*Blastocystis hominis*), although it officially does not exist (Noel *et al.* 2005, PMID 15634993)
 #' - 5 other 'undefined' entries (unknown, unknown Gram negatives, unknown Gram positives, unknown yeast and unknown fungus)
 #' - 6 families under the Enterobacterales order, according to Adeolu *et al.* (2016, PMID 27620848), that are not (yet) in the Catalogue of Life
-#' - `r format(nrow(subset(microorganisms, source == "DSMZ")), big.mark = ",")` species from the DSMZ (Deutsche Sammlung von Mikroorganismen und Zellkulturen) since the DSMZ contain the latest taxonomic information based on recent publications
 #' 
 #' ## Direct download
 #' This data set is available as 'flat file' for use even without \R - you can find the file here:
@@ -120,16 +119,21 @@
 #' The file in \R format (with preserved data structure) can be found here:
 #' 
 #' * <https://github.com/msberends/AMR/raw/master/data/microorganisms.rda>
-#' @section About the Records from DSMZ (see *Source*):
-#' Names of prokaryotes are defined as being validly published by the International Code of Nomenclature of Bacteria. Validly published are all names which are included in the Approved Lists of Bacterial Names and the names subsequently published in the International Journal of Systematic Bacteriology (IJSB) and, from January 2000, in the International Journal of Systematic and Evolutionary Microbiology (IJSEM) as original articles or in the validation lists.
-#' *(from <https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date>)*
+#' @section About the Records from LPSN (see *Source*):
+#' The List of Prokaryotic names with Standing in Nomenclature (LPSN) provides comprehensive information on the nomenclature of prokaryotes. LPSN is a free to use service founded by Jean P. Euzeby in 1997 and later on maintained by Aidan C. Parte.
 #' 
-#' In February 2020, the DSMZ records were merged with the List of Prokaryotic names with Standing in Nomenclature (LPSN).
-#' @source Catalogue of Life: Annual Checklist (public online taxonomic database), <http://www.catalogueoflife.org> (check included annual version with [catalogue_of_life_version()]).
+#' As of February 2020, the regularly augmented LPSN database at DSMZ is the basis of the new LPSN service. The new database was implemented for the Type-Strain Genome Server and augmented in 2018 to store all kinds of nomenclatural information. Data from the previous version of LPSN and from the Prokaryotic Nomenclature Up-to-date (PNU) service were imported into the new system. PNU had been established in 1993 as a service of the Leibniz Institute DSMZ, and was curated by Norbert Weiss, Manfred Kracht and Dorothea Gleim.
+#' @source 
+#' `r gsub("{year}", catalogue_of_life$year, catalogue_of_life$version, fixed = TRUE)`
 #' 
-#' Parte, A.C. (2018). LPSN — List of Prokaryotic names with Standing in Nomenclature (bacterio.net), 20 years on. International Journal of Systematic and Evolutionary Microbiology, 68, 1825-1829; \doi{10.1099/ijsem.0.002786}
+#' * Annual Checklist (public online taxonomic database), <http://www.catalogueoflife.org>
 #' 
-#' Leibniz Institute DSMZ-German Collection of Microorganisms and Cell Cultures, Germany, Prokaryotic Nomenclature Up-to-Date, <https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date> and <https://lpsn.dsmz.de> (check included version with [catalogue_of_life_version()]).
+#' List of Prokaryotic names with Standing in Nomenclature: `r catalogue_of_life$yearmonth_LPSN`
+#' 
+#' * Parte, A.C., Sarda Carbasse, J., Meier-Kolthoff, J.P., Reimer, L.C. and Goker, M. (2020). List of Prokaryotic names with Standing in Nomenclature (LPSN) moves to the DSMZ. International Journal of Systematic and Evolutionary Microbiology, 70, 5607-5612; \doi{10.1099/ijsem.0.004332}
+#' * Parte, A.C. (2018). LPSN — List of Prokaryotic names with Standing in Nomenclature (bacterio.net), 20 years on. International Journal of Systematic and Evolutionary Microbiology, 68, 1825-1829; \doi{10.1099/ijsem.0.002786}
+#' * Parte, A.C. (2014). LPSN — List of Prokaryotic names with Standing in Nomenclature. Nucleic Acids Research, 42, Issue D1, D613–D616; \doi{10.1093/nar/gkt1111}
+#' * Euzeby, J.P. (1997). List of Bacterial Names with Standing in Nomenclature: a Folder Available on the Internet. International Journal of Systematic Bacteriology, 47, 590-592; \doi{10.1099/00207713-47-2-590}
 #' @inheritSection AMR Reference Data Publicly Available
 #' @inheritSection AMR Read more on Our Website!
 #' @seealso [as.mo()], [mo_property()], [microorganisms.codes], [intrinsic_resistant]
@@ -139,8 +143,8 @@ catalogue_of_life <- list(
   year = 2019,
   version = "Catalogue of Life: {year} Annual Checklist",
   url_CoL = "http://www.catalogueoflife.org/col/",
-  url_DSMZ = "https://lpsn.dsmz.de",
-  yearmonth_DSMZ = "May 2020"
+  url_LPSN = "https://lpsn.dsmz.de",
+  yearmonth_LPSN = "March 2021"
 )
 
 #' Data Set with Previously Accepted Taxonomic Names
@@ -242,7 +246,7 @@ catalogue_of_life <- list(
 #' Data set to interpret MIC and disk diffusion to R/SI values. Included guidelines are CLSI (`r min(as.integer(gsub("[^0-9]", "", subset(rsi_translation, guideline %like% "CLSI")$guideline)))`-`r max(as.integer(gsub("[^0-9]", "", subset(rsi_translation, guideline %like% "CLSI")$guideline)))`) and EUCAST (`r min(as.integer(gsub("[^0-9]", "", subset(rsi_translation, guideline %like% "EUCAST")$guideline)))`-`r max(as.integer(gsub("[^0-9]", "", subset(rsi_translation, guideline %like% "EUCAST")$guideline)))`). Use [as.rsi()] to transform MICs or disks measurements to R/SI values.
 #' @format A [data.frame] with `r format(nrow(rsi_translation), big.mark = ",")` observations and `r ncol(rsi_translation)` variables:
 #' - `guideline`\cr Name of the guideline
-#' - `method`\cr Either "MIC" or "DISK"
+#' - `method`\cr Either `r vector_or(rsi_translation$method)`
 #' - `site`\cr Body site, e.g. "Oral" or "Respiratory"
 #' - `mo`\cr Microbial ID, see [as.mo()]
 #' - `ab`\cr Antibiotic ID, see [as.ab()]

R/ggplot_rsi.R

@@ -101,10 +101,19 @@
 #'                linetype = 2,
 #'                alpha = 0.25)
 #'
+#'   # you can alter the colours with colour names:
 #'   example_isolates %>%
 #'     select(AMX) %>%
 #'     ggplot_rsi(colours = c(SI = "yellow"))
 #'
+#'   # but you can also use the built-in colour-blind friendly colours for
+#'   # your plots, where "S" is green, "I" is yellow and "R" is red:
+#'   data.frame(x = c("Value1", "Value2", "Value3"),
+#'              y = c(1, 2, 3),
+#'              z = c("Value4", "Value5", "Value6")) %>%
+#'     ggplot() +
+#'     geom_col(aes(x = x, y = y, fill = z)) +
+#'     scale_rsi_colours(Value4 = "S", Value5 = "I", Value6 = "R")
 #' }
 #'   
 #' \donttest{
@@ -360,7 +369,7 @@ scale_y_percent <- function(breaks = seq(0, 1, 0.1), limits = NULL) {
 scale_rsi_colours <- function(...,
                               aesthetics = "fill") {
   stop_ifnot_installed("ggplot2")
-  meet_criteria(aesthetics, allow_class = c("character"), has_length = c(1, 2), is_in = c("alpha", "colour", "color", "fill", "linetype", "shape", "size"))
+  meet_criteria(aesthetics, allow_class = "character", is_in = c("alpha", "colour", "color", "fill", "linetype", "shape", "size"))
   
   # behaviour until AMR pkg v1.5.0 and also when coming from ggplot_rsi()
   if ("colours" %in% names(list(...))) {
@@ -376,14 +385,16 @@ scale_rsi_colours <- function(...,
     return(invisible())
   }
   
-  names_susceptible <- c("S", "SI", "IS", "S+I", "I+S", "susceptible",
-                         unique(translations_file[which(translations_file$pattern == "susceptible"),
+  names_susceptible <- c("S", "SI", "IS", "S+I", "I+S", "susceptible", "Susceptible",
+                         unique(translations_file[which(translations_file$pattern == "Susceptible"),
                                                   "replacement", drop = TRUE]))
-  names_incr_exposure <- c("I", "intermediate", "increased exposure", "incr. exposure",
-                           unique(translations_file[which(translations_file$pattern == "intermediate"),
+  names_incr_exposure <- c("I", "intermediate", "increased exposure", "incr. exposure", "Increased exposure", "Incr. exposure",
+                           unique(translations_file[which(translations_file$pattern == "Intermediate"),
+                                                    "replacement", drop = TRUE]),
+                           unique(translations_file[which(translations_file$pattern == "Incr. exposure"),
                                                     "replacement", drop = TRUE]))
-  names_resistant <- c("R", "IR", "RI", "R+I", "I+R", "resistant",
-                       unique(translations_file[which(translations_file$pattern == "resistant"), 
+  names_resistant <- c("R", "IR", "RI", "R+I", "I+R", "resistant", "Resistant",
+                       unique(translations_file[which(translations_file$pattern == "Resistant"), 
                                                 "replacement", drop = TRUE]))
   
   susceptible <- rep("#3CAEA3", length(names_susceptible))
@@ -399,8 +410,8 @@ scale_rsi_colours <- function(...,
   dots[dots == "S"] <- "#3CAEA3"
   dots[dots == "I"] <- "#F6D55C"
   dots[dots == "R"] <- "#ED553B"
-  colours <- replace(original_cols, names(dots), dots)
-  ggplot2::scale_discrete_manual(aesthetics = aesthetics, values = colours)
+  cols <- replace(original_cols, names(dots), dots)
+  ggplot2::scale_discrete_manual(aesthetics = aesthetics, values = cols)
 }
 
 #' @rdname ggplot_rsi

R/globals.R

@@ -55,6 +55,7 @@ globalVariables(c(".rowid",
                   "language",
                   "lookup",
                   "method",
+                  "mic",
                   "mic ",
                   "microorganism",
                   "microorganisms",
@@ -72,6 +73,7 @@ globalVariables(c(".rowid",
                   "reference.rule_group",
                   "reference.version",
                   "rowid",
+                  "rsi",
                   "rsi_translation",
                   "rule_group",
                   "rule_name",

R/like.R

@@ -100,13 +100,12 @@ like <- function(x, pattern, ignore.case = TRUE) {
     } else if (length(pattern) != length(x)) {
       stop_("arguments `x` and `pattern` must be of same length, or either one must be 1")
     }
-    mapply(FUN = grepl,
-           pattern,
-           x,
-           MoreArgs = list(ignore.case = FALSE, fixed = fixed, perl = !fixed),
-           SIMPLIFY = TRUE,
-           USE.NAMES = FALSE)
-    
+    unlist(
+      Map(f = grepl,
+          pattern,
+          x,
+          MoreArgs = list(ignore.case = FALSE, fixed = fixed, perl = !fixed)),
+      use.names = FALSE)
   }
 }
 

R/mo.R

@@ -463,12 +463,18 @@ exec_as.mo <- function(x,
     # translate 'unknown' names back to English
     if (any(x %like% "unbekannt|onbekend|desconocid|sconosciut|iconnu|desconhecid", na.rm = TRUE)) {
       trns <- subset(translations_file, pattern %like% "unknown" | affect_mo_name == TRUE)
-      lapply(seq_len(nrow(trns)),
-             function(i) x <<- gsub(pattern = trns$replacement[i],
-                                    replacement = trns$pattern[i],
-                                    x = x,
-                                    ignore.case = TRUE,
-                                    perl = TRUE))
+      langs <- LANGUAGES_SUPPORTED[LANGUAGES_SUPPORTED != "en"]
+      for (l in langs) {
+        for (i in seq_len(nrow(trns))) {
+          if (!is.na(trns[i, l, drop = TRUE])) {
+            x <- gsub(pattern = trns[i, l, drop = TRUE],
+                      replacement = trns$pattern[i],
+                      x = x,
+                      ignore.case = TRUE,
+                      perl = TRUE)
+          }
+        }
+      }
     }
     
     x_backup <- x
@@ -1552,6 +1558,9 @@ exec_as.mo <- function(x,
     x <- set_clean_class(x, new_class = c("mo", "character"))
   }
   
+  # keep track of time
+  end_time <- Sys.time()
+
   if (length(mo_renamed()) > 0) {
     print(mo_renamed())
   }
@@ -1571,10 +1580,9 @@ exec_as.mo <- function(x,
     x <- structure(x, uncertainties = uncertainties)
   } else {
     # keep track of time - give some hints to improve speed if it takes a long time
-    end_time <- Sys.time()
     delta_time <- difftime(end_time, start_time, units = "secs")
     if (delta_time >= 30) {
-      message_("Using `as.mo()` took ", delta_time, " seconds, which is a long time. Some suggestions to improve speed include:")
+      message_("Using `as.mo()` took ", round(delta_time), " seconds, which is a long time. Some suggestions to improve speed include:")
       message_(word_wrap("- Try to use as many valid taxonomic names as possible for your input.",
                          extra_indent = 2),
                as_note = FALSE)
@@ -1922,7 +1930,7 @@ print.mo_renamed <- function(x, ...) {
                     "",
                     paste0(" (",  gsub("et al.", font_italic("et al."), x$old_ref[i]), ")")),
              " was renamed ",
-             ifelse(as.integer(gsub("[^0-9]", "", x$new_ref[i])) < as.integer(gsub("[^0-9]", "", x$old_ref[i])),
+             ifelse(!x$new_ref[i] %in% c("", NA) && as.integer(gsub("[^0-9]", "", x$new_ref[i])) < as.integer(gsub("[^0-9]", "", x$old_ref[i])),
                     font_bold("back to "),
                     ""),
              font_italic(x$new_name[i]),

R/mo_property.R

@@ -660,10 +660,20 @@ mo_url <- function(x, open = FALSE, language = get_locale(), ...) {
     pm_left_join(pm_select(microorganisms, mo, source, species_id), by = "mo")
   df$url <- ifelse(df$source == "CoL",
                    paste0(catalogue_of_life$url_CoL, "details/species/id/", df$species_id, "/"),
-                   ifelse(df$source == "DSMZ",
-                          paste0(catalogue_of_life$url_DSMZ, "/advanced_search?adv[taxon-name]=", gsub(" ", "+", mo_names), "/"),
-                          NA_character_))
+                   NA_character_)
   u <- df$url
+  u[mo_kingdom(mo) == "Bacteria"] <- paste0(catalogue_of_life$url_LPSN, "/species/", gsub(" ", "-", tolower(mo_names), fixed = TRUE))
+  u[mo_kingdom(mo) == "Bacteria" & mo_rank(mo) == "genus"] <- gsub("/species/",
+                                                                   "/genus/",
+                                                                   u[mo_kingdom(mo) == "Bacteria" & mo_rank(mo) == "genus"],
+                                                                   fixed = TRUE)
+  u[mo_kingdom(mo) == "Bacteria" &
+      mo_rank(mo) %in% c("subsp.", "infraspecies")] <- gsub("/species/",
+                                                            "/subspecies/",
+                                                            u[mo_kingdom(mo) == "Bacteria" &
+                                                                mo_rank(mo) %in% c("subsp.", "infraspecies")],
+                                                            fixed = TRUE)
+  
   names(u) <- mo_names
   
   if (open == TRUE) {

R/plot.R

@@ -36,6 +36,7 @@
 #' @param ab any (vector of) text that can be coerced to a valid antimicrobial code with [as.ab()]
 #' @param guideline interpretation guideline to use, defaults to the latest included EUCAST guideline, see *Details*
 #' @param colours_RSI colours to use for filling in the bars, must be a vector of three values (in the order R, S and I). The default colours are colour-blind friendly.
+#' @param language language to be used to translate 'Susceptible', 'Increased exposure'/'Intermediate' and 'Resistant', defaults to system language (see [get_locale()]) and can be overwritten by setting the option `AMR_locale`, e.g. `options(AMR_locale = "de")`, see [translate]. Use `language = NULL` or `language = ""` to prevent translation.
 #' @param expand logical to indicate whether the range on the x axis should be expanded between the lowest and highest value. For MIC values, intermediate values will be factors of 2 starting from the highest MIC value. For disk diameters, the whole diameter range will be filled.
 #' @details
 #' The interpretation of "I" will be named "Increased exposure" for all EUCAST guidelines since 2019, and will be named "Intermediate" in all other cases.
@@ -79,15 +80,19 @@ plot.mic <- function(x,
                      ab = NULL,
                      guideline = "EUCAST",
                      colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                     language = get_locale(),
                      expand = TRUE,
                      ...) {
-  meet_criteria(main, allow_class = "character")
+  meet_criteria(main, allow_class = "character", has_length = 1, allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(mo, allow_class = c("mo", "character"), allow_NULL = TRUE)
   meet_criteria(ab, allow_class = c("ab", "character"), allow_NULL = TRUE)
   meet_criteria(guideline, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
+  
   if (length(colours_RSI) == 1) {
     colours_RSI <- rep(colours_RSI, 3)
   }
@@ -101,6 +106,7 @@ plot.mic <- function(x,
                                               guideline = guideline,
                                               colours_RSI = colours_RSI, 
                                               fn = as.mic,
+                                              language = language,
                                               ...)
   
   barplot(x,
@@ -132,7 +138,7 @@ plot.mic <- function(x,
     }
     legend("top", 
            x.intersp = 0.5,
-           legend = legend_txt,
+           legend = translate_AMR(legend_txt, language = language),
            fill = legend_col,
            horiz = TRUE,
            cex = 0.75, 
@@ -152,15 +158,19 @@ barplot.mic <- function(height,
                         ab = NULL,
                         guideline = "EUCAST",
                         colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                        language = get_locale(),
                         expand = TRUE,
                         ...) {
-  meet_criteria(main, allow_class = "character")
+  meet_criteria(main, allow_class = "character", has_length = 1, allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(mo, allow_class = c("mo", "character"), allow_NULL = TRUE)
   meet_criteria(ab, allow_class = c("ab", "character"), allow_NULL = TRUE)
   meet_criteria(guideline, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
+  
   main <- gsub(" +", " ", paste0(main, collapse = " "))
   
   plot(x = height,
@@ -186,18 +196,26 @@ ggplot.mic <- function(data,
                        ab = NULL,
                        guideline = "EUCAST",
                        colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                       language = get_locale(),
                        expand = TRUE,
                        ...) {
   stop_ifnot_installed("ggplot2")
-  meet_criteria(title, allow_class = "character")
+  meet_criteria(title, allow_class = "character", allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(mo, allow_class = c("mo", "character"), allow_NULL = TRUE)
   meet_criteria(ab, allow_class = c("ab", "character"), allow_NULL = TRUE)
   meet_criteria(guideline, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
   
-  title <- gsub(" +", " ", paste0(title, collapse = " "))
+  if ("main" %in% names(list(...))) {
+    title <- list(...)$main
+  }
+  if (!is.null(title)) {
+    title <- gsub(" +", " ", paste0(title, collapse = " "))
+  }
   
   x <- plot_prepare_table(data, expand = expand)
   cols_sub <- plot_colours_subtitle_guideline(x = x, 
@@ -206,6 +224,7 @@ ggplot.mic <- function(data,
                                               guideline = guideline,
                                               colours_RSI = colours_RSI, 
                                               fn = as.mic,
+                                              language = language,
                                               ...)
   df <- as.data.frame(x, stringsAsFactors = TRUE)
   colnames(df) <- c("mic", "count")
@@ -213,8 +232,9 @@ ggplot.mic <- function(data,
   df$cols[df$cols == colours_RSI[1]] <- "Resistant"
   df$cols[df$cols == colours_RSI[2]] <- "Susceptible"
   df$cols[df$cols == colours_RSI[3]] <- plot_name_of_I(cols_sub$guideline)
-  df$cols <- factor(df$cols, 
-                    levels = c("Susceptible", plot_name_of_I(cols_sub$guideline), "Resistant"),
+  df$cols <- factor(translate_AMR(df$cols, language = language),
+                    levels = translate_AMR(c("Susceptible", plot_name_of_I(cols_sub$guideline), "Resistant"),
+                                           language = language),
                     ordered = TRUE)
   if (!is.null(mapping)) {
     p <- ggplot2::ggplot(df, mapping = mapping)
@@ -223,12 +243,14 @@ ggplot.mic <- function(data,
   }
   
   if (any(colours_RSI %in% cols_sub$cols)) {
+    vals <- c("Resistant" = colours_RSI[1],
+              "Susceptible" = colours_RSI[2],
+              "Incr. exposure" = colours_RSI[3],
+              "Intermediate" = colours_RSI[3])
+    names(vals) <- translate_AMR(names(vals), language = language)
     p <- p +
       ggplot2::geom_col(ggplot2::aes(x = mic, y = count, fill = cols)) + 
-      ggplot2::scale_fill_manual(values = c("Resistant" = colours_RSI[1],
-                                            "Susceptible" = colours_RSI[2],
-                                            "Incr. exposure" = colours_RSI[3],
-                                            "Intermediate" = colours_RSI[3]),
+      ggplot2::scale_fill_manual(values = vals,
                                  name = NULL)
   } else {
     p <- p +
@@ -252,15 +274,19 @@ plot.disk <- function(x,
                       ab = NULL,
                       guideline = "EUCAST",
                       colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                      language = get_locale(),
                       expand = TRUE,
                       ...) {
-  meet_criteria(main, allow_class = "character")
+  meet_criteria(main, allow_class = "character", has_length = 1, allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(mo, allow_class = c("mo", "character"), allow_NULL = TRUE)
   meet_criteria(ab, allow_class = c("ab", "character"), allow_NULL = TRUE)
   meet_criteria(guideline, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
+  
   if (length(colours_RSI) == 1) {
     colours_RSI <- rep(colours_RSI, 3)
   }
@@ -274,6 +300,7 @@ plot.disk <- function(x,
                                               guideline = guideline,
                                               colours_RSI = colours_RSI, 
                                               fn = as.disk,
+                                              language = language,
                                               ...)
   
   barplot(x,
@@ -305,7 +332,7 @@ plot.disk <- function(x,
     }
     legend("top", 
            x.intersp = 0.5,
-           legend = legend_txt,
+           legend = translate_AMR(legend_txt, language = language),
            fill = legend_col,
            horiz = TRUE,
            cex = 0.75, 
@@ -325,15 +352,18 @@ barplot.disk <- function(height,
                          ab = NULL,
                          guideline = "EUCAST",
                          colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                         language = get_locale(),
                          expand = TRUE,
                          ...) {
-  meet_criteria(main, allow_class = "character")
+  meet_criteria(main, allow_class = "character", has_length = 1, allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(mo, allow_class = c("mo", "character"), allow_NULL = TRUE)
   meet_criteria(ab, allow_class = c("ab", "character"), allow_NULL = TRUE)
   meet_criteria(guideline, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
   
   main <- gsub(" +", " ", paste0(main, collapse = " "))
   
@@ -360,18 +390,26 @@ ggplot.disk <- function(data,
                         ab = NULL,
                         guideline = "EUCAST",
                         colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                        language = get_locale(),
                         expand = TRUE,
                         ...) {
   stop_ifnot_installed("ggplot2")
-  meet_criteria(title, allow_class = "character")
+  meet_criteria(title, allow_class = "character", allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(mo, allow_class = c("mo", "character"), allow_NULL = TRUE)
   meet_criteria(ab, allow_class = c("ab", "character"), allow_NULL = TRUE)
   meet_criteria(guideline, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
   
-  title <- gsub(" +", " ", paste0(title, collapse = " "))
+  if ("main" %in% names(list(...))) {
+    title <- list(...)$main
+  }
+  if (!is.null(title)) {
+    title <- gsub(" +", " ", paste0(title, collapse = " "))
+  }
   
   x <- plot_prepare_table(data, expand = expand)
   cols_sub <- plot_colours_subtitle_guideline(x = x,
@@ -380,15 +418,18 @@ ggplot.disk <- function(data,
                                               guideline = guideline,
                                               colours_RSI = colours_RSI,
                                               fn = as.disk,
+                                              language = language,
                                               ...)
   df <- as.data.frame(x, stringsAsFactors = TRUE)
   colnames(df) <- c("disk", "count")
   df$cols <- cols_sub$cols
+  
   df$cols[df$cols == colours_RSI[1]] <- "Resistant"
   df$cols[df$cols == colours_RSI[2]] <- "Susceptible"
   df$cols[df$cols == colours_RSI[3]] <- plot_name_of_I(cols_sub$guideline)
-  df$cols <- factor(df$cols, 
-                    levels = c("Resistant", plot_name_of_I(cols_sub$guideline), "Susceptible"),
+  df$cols <- factor(translate_AMR(df$cols, language = language),
+                    levels = translate_AMR(c("Susceptible", plot_name_of_I(cols_sub$guideline), "Resistant"),
+                                           language = language),
                     ordered = TRUE)
   if (!is.null(mapping)) {
     p <- ggplot2::ggplot(df, mapping = mapping)
@@ -397,12 +438,14 @@ ggplot.disk <- function(data,
   }
   
   if (any(colours_RSI %in% cols_sub$cols)) {
+    vals <- c("Resistant" = colours_RSI[1],
+              "Susceptible" = colours_RSI[2],
+              "Incr. exposure" = colours_RSI[3],
+              "Intermediate" = colours_RSI[3])
+    names(vals) <- translate_AMR(names(vals), language = language)
     p <- p +
       ggplot2::geom_col(ggplot2::aes(x = disk, y = count, fill = cols)) + 
-      ggplot2::scale_fill_manual(values = c("Resistant" = colours_RSI[1],
-                                            "Susceptible" = colours_RSI[2],
-                                            "Incr. exposure" = colours_RSI[3],
-                                            "Intermediate" = colours_RSI[3]),
+      ggplot2::scale_fill_manual(values = vals,
                                  name = NULL)
   } else {
     p <- p +
@@ -457,7 +500,7 @@ plot_name_of_I <- function(guideline) {
   }
 }
 
-plot_colours_subtitle_guideline <- function(x, mo, ab, guideline, colours_RSI, fn, ...) {
+plot_colours_subtitle_guideline <- function(x, mo, ab, guideline, colours_RSI, fn, language, ...) {
   guideline <- get_guideline(guideline, AMR::rsi_translation)
   if (!is.null(mo) && !is.null(ab)) {
     # interpret and give colour based on MIC values
@@ -469,14 +512,14 @@ plot_colours_subtitle_guideline <- function(x, mo, ab, guideline, colours_RSI, f
     cols[rsi == "R"] <- colours_RSI[1]
     cols[rsi == "S"] <- colours_RSI[2]
     cols[rsi == "I"] <- colours_RSI[3]
-    moname <- mo_name(mo, language = NULL)
-    abname <- ab_name(ab, language = NULL)
+    moname <- mo_name(mo, language = language)
+    abname <- ab_name(ab, language = language)
     if (all(cols == "#BEBEBE")) {
       message_("No ", guideline, " interpretations found for ", 
                ab_name(ab, language = NULL, tolower = TRUE), " in ", moname)
       guideline_txt <- ""
     } else {
-      guideline_txt <- paste0("(following ", guideline, ")")
+      guideline_txt <- paste0("(", guideline, ")")
     }
     sub <- bquote(.(abname)~"in"~italic(.(moname))~.(guideline_txt))
   } else {
@@ -498,7 +541,7 @@ plot.rsi <- function(x,
                      ...) {
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
-  meet_criteria(main, allow_class = "character", has_length = 1)
+  meet_criteria(main, allow_class = "character", has_length = 1, allow_NULL = TRUE)
   
   data <- as.data.frame(table(x), stringsAsFactors = FALSE)
   colnames(data) <- c("x", "n")
@@ -549,12 +592,16 @@ barplot.rsi <- function(height,
                         xlab = "Antimicrobial Interpretation",
                         ylab = "Frequency",
                         colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+                        language = get_locale(),
                         expand = TRUE,
                         ...) {
   meet_criteria(xlab, allow_class = "character", has_length = 1)
-  meet_criteria(main, allow_class = "character", has_length = 1)
+  meet_criteria(main, allow_class = "character", has_length = 1, allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  meet_criteria(language, has_length = 1, is_in = c(LANGUAGES_SUPPORTED, ""), allow_NULL = TRUE, allow_NA = TRUE)
+  meet_criteria(expand, allow_class = "logical", has_length = 1)
+  
   if (length(colours_RSI) == 1) {
     colours_RSI <- rep(colours_RSI, 3)
   }
@@ -582,10 +629,18 @@ ggplot.rsi <- function(data,
                        colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
                        ...) {
   stop_ifnot_installed("ggplot2")
-  meet_criteria(title, allow_class = "character")
+  meet_criteria(title, allow_class = "character", allow_NULL = TRUE)
   meet_criteria(ylab, allow_class = "character", has_length = 1)
   meet_criteria(xlab, allow_class = "character", has_length = 1)
   meet_criteria(colours_RSI, allow_class = "character", has_length = c(1, 3))
+  
+  if ("main" %in% names(list(...))) {
+    title <- list(...)$main
+  }
+  if (!is.null(title)) {
+    title <- gsub(" +", " ", paste0(title, collapse = " "))
+  }
+  
   if (length(colours_RSI) == 1) {
     colours_RSI <- rep(colours_RSI, 3)
   }

R/translate.R

@@ -142,7 +142,8 @@ translate_AMR <- function(from, language = get_locale(), only_unknown = FALSE, a
              vector_or(LANGUAGES_SUPPORTED, quotes = TRUE),
              call = FALSE)
   
-  df_trans <- subset(df_trans, lang == language)
+  # only keep lines where translation is available for this language
+  df_trans <- df_trans[which(!is.na(df_trans[, language, drop = TRUE])), , drop = FALSE]
   if (only_unknown == TRUE) {
     df_trans <- subset(df_trans, pattern %like% "unknown")
   }
@@ -150,10 +151,10 @@ translate_AMR <- function(from, language = get_locale(), only_unknown = FALSE, a
     df_trans <- subset(df_trans, affect_mo_name == TRUE)
   }
   
-  # default: case sensitive if value if 'ignore.case' is missing:
-  df_trans$ignore.case[is.na(df_trans$ignore.case)] <- FALSE
-  # default: not using regular expressions (fixed = TRUE) if 'fixed' is missing:
-  df_trans$fixed[is.na(df_trans$fixed)] <- TRUE
+  # default: case sensitive if value if 'case_sensitive' is missing:
+  df_trans$case_sensitive[is.na(df_trans$case_sensitive)] <- TRUE
+  # default: not using regular expressions if 'regular_expr' is missing:
+  df_trans$regular_expr[is.na(df_trans$regular_expr)] <- FALSE
   
   # check if text to look for is in one of the patterns
   any_form_in_patterns <- tryCatch(any(from_unique %like% paste0("(", paste(df_trans$pattern, collapse = "|"), ")")),
@@ -167,11 +168,11 @@ translate_AMR <- function(from, language = get_locale(), only_unknown = FALSE, a
   
   lapply(seq_len(nrow(df_trans)), 
          function(i) from_unique_translated <<- gsub(pattern = df_trans$pattern[i],
-                                                     replacement = df_trans$replacement[i],
+                                                     replacement = df_trans[i, language, drop = TRUE],
                                                      x = from_unique_translated,
-                                                     ignore.case = df_trans$ignore.case[i], 
-                                                     fixed = df_trans$fixed[i],
-                                                     perl = !df_trans$fixed[i]))
+                                                     ignore.case = !df_trans$case_sensitive[i], 
+                                                     fixed = !df_trans$regular_expr[i],
+                                                     perl = df_trans$regular_expr[i]))
   
   # force UTF-8 for diacritics
   from_unique_translated <- enc2utf8(from_unique_translated)

_pkgdown.yml

@@ -143,7 +143,6 @@ reference:
     - "`as.mic`"
     - "`as.disk`"
     - "`eucast_rules`"
-    - "`plot`"
     - "`isolate_identifier`"
     
   - title: "Analysing data: antimicrobial resistance"
@@ -159,6 +158,7 @@ reference:
     - "`key_antibiotics`"
     - "`mdro`"
     - "`count`"
+    - "`plot`"
     - "`ggplot_rsi`"
     - "`bug_drug_combinations`"
     - "`antibiotic_class_selectors`"

data-raw/_internals.R

@@ -43,21 +43,23 @@ create_species_cons_cops <- function(type = c("CoNS", "CoPS")) {
   MO_staph <- MO_staph[which(MO_staph$genus == "Staphylococcus"), , drop = FALSE]
   if (type == "CoNS") {
     MO_staph[which(MO_staph$species %in% c("coagulase-negative", "argensis", "arlettae",
-                                           "auricularis", "caeli", "capitis", "caprae", 
-                                           "carnosus", "chromogenes", "cohnii", "condimenti",
+                                           "auricularis", "borealis", "caeli", "capitis", "caprae", 
+                                           "carnosus", "casei", "chromogenes", "cohnii", "condimenti",
+                                           "croceilyticus",
                                            "debuckii", "devriesei", "edaphicus", "epidermidis",
                                            "equorum", "felis", "fleurettii", "gallinarum",
                                            "haemolyticus", "hominis", "jettensis", "kloosii",
                                            "lentus", "lugdunensis", "massiliensis", "microti",
                                            "muscae", "nepalensis", "pasteuri", "petrasii",
-                                           "pettenkoferi", "piscifermentans", "pseudoxylosus",
+                                           "pettenkoferi", "piscifermentans", "pragensis", "pseudoxylosus",
                                            "pulvereri", "rostri", "saccharolyticus", "saprophyticus",
                                            "sciuri", "simulans", "stepanovicii", "succinus",
+                                           "ureilyticus",
                                            "vitulinus", "vitulus", "warneri", "xylosus")
                    | (MO_staph$species == "schleiferi" & MO_staph$subspecies %in% c("schleiferi", ""))),
              "mo", drop = TRUE]
   } else if (type == "CoPS") {
-    MO_staph[which(MO_staph$species %in% c("coagulase-positive",
+    MO_staph[which(MO_staph$species %in% c("coagulase-positive", "coagulans",
                                            "agnetis", "argenteus",
                                            "cornubiensis",
                                            "delphini", "lutrae",
@@ -175,7 +177,7 @@ microorganisms.translation <- readRDS("data-raw/microorganisms.translation.rds")
 INTRINSIC_R <- create_intr_resistance()
 
 # for checking input in `language` argument in e.g. mo_*() and ab_*() functions
-LANGUAGES_SUPPORTED <- sort(c("en", unique(translations_file$lang)))
+LANGUAGES_SUPPORTED <- sort(c("en", colnames(translations_file)[nchar(colnames(translations_file)) == 2]))
 
 # vectors of CoNS and CoPS, improves speed in as.mo()
 MO_CONS <- create_species_cons_cops("CoNS")

data-raw/intrinsic_resistant.md5

@@ -1 +1 @@
-b6de75043ef27eabd6fff22f04638225
+9c58b2d894dbad7593cd44b78d04cd78

data-raw/microorganisms.old.md5

@@ -1 +1 @@
-617b59b8ac3bd1aad7847aafc328f0f3
+8338ff5f079f4519fa3c44f8c5bace64

data-raw/mo.md5

@@ -1 +1 @@
-a5b85c5b3d37d6330865dfe09ef9b354
+8c6d0e8e487d19d9a429abd64fce9290

data-raw/reproduction_of_microorganisms_update.R

@@ -0,0 +1,480 @@
+# ==================================================================== #
+# TITLE                                                                #
+# Antimicrobial Resistance (AMR) Data Analysis for R                   #
+#                                                                      #
+# SOURCE                                                               #
+# https://github.com/msberends/AMR                                     #
+#                                                                      #
+# LICENCE                                                              #
+# (c) 2018-2021 Berends MS, Luz CF et al.                              #
+# Developed at the University of Groningen, the Netherlands, in        #
+# collaboration with non-profit organisations Certe Medical            #
+# Diagnostics & Advice, and University Medical Center Groningen.       # 
+#                                                                      #
+# This R package is free software; you can freely use and distribute   #
+# it for both personal and commercial purposes under the terms of the  #
+# GNU General Public License version 2.0 (GNU GPL-2), as published by  #
+# the Free Software Foundation.                                        #
+# We created this package for both routine data analysis and academic  #
+# research and it was publicly released in the hope that it will be    #
+# useful, but it comes WITHOUT ANY WARRANTY OR LIABILITY.              #
+#                                                                      #
+# Visit our website for the full manual and a complete tutorial about  #
+# how to conduct AMR data analysis: https://msberends.github.io/AMR/   #
+# ==================================================================== #
+
+# Register at List of Prokaryotic names with Standing in Nomenclature (LPSN)
+# then got to https://lpsn.dsmz.de/downloads and download the latest CSV file.
+
+library(tidyverse)
+library(AMR)
+
+# these should still work after this update
+test_fullname <- microorganisms$fullname
+test_mo <- microorganisms$mo
+
+
+# Helper functions --------------------------------------------------------
+
+get_author_year <- function(ref) {
+  # Only keep first author, e.g. transform 'Smith, Jones, 2011' to 'Smith et al., 2011'
+  
+  authors2 <- iconv(ref, from = "UTF-8", to = "ASCII//TRANSLIT")
+  authors2 <- gsub(" ?\\(Approved Lists [0-9]+\\) ?", " () ", authors2)
+  authors2 <- gsub(" [)(]+ $", "", authors2)
+  # remove leading and trailing brackets
+  authors2 <- trimws(gsub("^[(](.*)[)]$", "\\1", authors2))
+  # only take part after brackets if there's a name
+  authors2 <- ifelse(grepl(".*[)] [a-zA-Z]+.*", authors2),
+                     gsub(".*[)] (.*)", "\\1", authors2),
+                     authors2)
+  # get year from last 4 digits
+  lastyear = as.integer(gsub(".*([0-9]{4})$", "\\1", authors2))
+  # can never be later than now
+  lastyear = ifelse(lastyear > as.integer(format(Sys.Date(), "%Y")),
+                    NA,
+                    lastyear)
+  # get authors without last year
+  authors <- gsub("(.*)[0-9]{4}$", "\\1", authors2)
+  # remove nonsense characters from names
+  authors <- gsub("[^a-zA-Z,'& -]", "", authors)
+  # remove trailing and leading spaces
+  authors <- trimws(authors)
+  # only keep first author and replace all others by 'et al'
+  authors <- gsub("(,| and| et| &| ex| emend\\.?) .*", " et al.", authors)
+  # et al. always with ending dot
+  authors <- gsub(" et al\\.?", " et al.", authors)
+  authors <- gsub(" ?,$", "", authors)
+  # don't start with 'sensu' or 'ehrenb'
+  authors <- gsub("^(sensu|Ehrenb.?) ", "", authors, ignore.case = TRUE)
+  # no initials, only surname
+  authors <- gsub("^([A-Z]+ )+", "", authors, ignore.case = FALSE)
+  # combine author and year if year is available
+  ref <- ifelse(!is.na(lastyear),
+                paste0(authors, ", ", lastyear),
+                authors)
+  # fix beginning and ending
+  ref <- gsub(", $", "", ref)
+  ref <- gsub("^, ", "", ref)
+  ref <- gsub("^(emend|et al.,?)", "", ref)
+  ref <- trimws(ref)
+  ref <- gsub("'", "", ref)
+  
+  # a lot start with a lowercase character - fix that
+  ref[!grepl("^d[A-Z]", ref)] <- gsub("^([a-z])", "\\U\\1", ref[!grepl("^d[A-Z]", ref)], perl = TRUE)
+  # specific one for the French that are named dOrbigny 
+  ref[grepl("^d[A-Z]", ref)] <- gsub("^d", "d'", ref[grepl("^d[A-Z]", ref)])
+  ref <- gsub(" +", " ", ref)
+  ref
+}
+
+df_remove_nonASCII <- function(df) {
+  # Remove non-ASCII characters (these are not allowed by CRAN)
+  df %>%
+    mutate_if(is.character, iconv, from = "UTF-8", to = "ASCII//TRANSLIT") %>% 
+    # also remove invalid characters
+    mutate_if(is.character, ~gsub("[\"'`]+", "", .)) %>%
+    AMR:::dataset_UTF8_to_ASCII()
+}
+
+abbreviate_mo <- function(x, minlength = 5, prefix = "", ...) {
+  # keep a starting Latin ae
+  suppressWarnings(
+    gsub("^ae", "\u00E6\u00E6", x, ignore.case = TRUE) %>% 
+      abbreviate(minlength = minlength,
+                 use.classes = TRUE,
+                 method = "both.sides", ...) %>% 
+      paste0(prefix, .) %>% 
+      toupper() %>% 
+      gsub("(\u00C6|\u00E6)+", "AE", .)
+  )
+}
+
+# Read data ---------------------------------------------------------------
+
+taxonomy <- read_csv("~/Downloads/taxonomy.csv")
+
+# Create synonyms ---------------------------------------------------------
+
+new_synonyms <- taxonomy %>%
+  left_join(taxonomy,
+            by = c("record_lnk" = "record_no"), 
+            suffix = c("", ".new")) %>% 
+  filter(!is.na(record_lnk)) %>% 
+  mutate_all(~ifelse(is.na(.), "", .)) %>% 
+  transmute(fullname = trimws(paste(genus_name, sp_epithet, subsp_epithet)),
+            fullname_new = trimws(paste(genus_name.new, sp_epithet.new, subsp_epithet.new)),
+            ref = get_author_year(authors),
+            prevalence = 0) %>% 
+  distinct(fullname, .keep_all = TRUE) %>% 
+  filter(fullname != fullname_new) %>% 
+  # this part joins this table to itself to correct for entries that had >1 renames, 
+  # such as:
+  # Bacteroides tectum -> Bacteroides tectus
+  # Bacteroides tectus -> Bacteroides pyogenes
+  left_join(., ., 
+            by = c("fullname_new" = "fullname"), 
+            suffix = c("", ".2")) %>%
+  mutate(fullname_new = ifelse(!is.na(fullname_new.2), fullname_new.2, fullname_new),
+         ref = ifelse(!is.na(ref.2), ref.2, ref)) %>%
+  select(-ends_with(".2")) 
+
+mo_became_synonym <- microorganisms %>% 
+  filter(fullname %in% new_synonyms$fullname)
+
+updated_microorganisms <- taxonomy %>%
+  filter(is.na(record_lnk)) %>% 
+  mutate_all(~ifelse(is.na(.), "", .)) %>% 
+  transmute(mo = "",
+            fullname = trimws(paste(genus_name, sp_epithet, subsp_epithet)),
+            kingdom = "Bacteria",
+            phylum = "",
+            class = "",
+            order = "",
+            family = "",
+            genus = trimws(genus_name),
+            species = trimws(replace_na(sp_epithet, "")),
+            subspecies = trimws(replace_na(subsp_epithet, "")),
+            rank = case_when(subspecies == "" & species == "" ~ "genus",
+                             subspecies == "" ~ "species",
+                             TRUE ~ "subsp."),
+            ref = get_author_year(authors),
+            species_id = as.character(record_no),
+            source = "LSPN",
+            prevalence = 0,
+            snomed = NA)
+
+new_microorganisms <- updated_microorganisms %>% 
+  filter(!fullname %in% microorganisms$fullname)
+
+genera_with_mo_code <- updated_microorganisms %>%
+  filter(genus %in% (microorganisms %>% filter(kingdom == "Bacteria", rank == "genus") %>% pull(genus))) %>%
+  distinct(genus) %>% 
+  left_join(microorganisms %>% filter(kingdom == "Bacteria", rank == "genus") %>% select(mo, genus),
+            by = "genus")
+  
+genera_without_mo_code <- updated_microorganisms %>% 
+  filter(!genus %in% genera_with_mo_code$genus) %>% 
+  pull(genus) %>% 
+  unique()
+
+genera_without_mo_code_abbr <- genera_without_mo_code %>% 
+  abbreviate_mo(5, prefix = "B_")
+genera_without_mo_code_abbr[genera_without_mo_code_abbr %in% microorganisms$mo] <- abbreviate_mo(genera_without_mo_code[genera_without_mo_code_abbr %in% microorganisms$mo], 6, prefix = "B_")
+genera_without_mo_code_abbr[genera_without_mo_code_abbr %in% microorganisms$mo] <- abbreviate_mo(genera_without_mo_code[genera_without_mo_code_abbr %in% microorganisms$mo], 7, prefix = "B_")
+# all unique??
+sum(genera_without_mo_code_abbr %in% microorganisms$mo) == 0
+
+genus_abb <- tibble(genus = genera_without_mo_code,
+                    abbr = genera_without_mo_code_abbr) %>% 
+  bind_rows(microorganisms %>%
+              filter(kingdom == "Bacteria", rank == "genus", !genus %in% genera_without_mo_code) %>%
+              transmute(genus, abbr = as.character(mo))) %>% 
+  arrange(genus)
+
+
+# Update taxonomy ---------------------------------------------------------
+
+# fill in the taxonomy of new genera
+updated_taxonomy <- tibble(phylum = character(0),
+                           class = character(0),
+                           order = character(0),
+                           family = character(0),
+                           genus = character(0))
+for (page in LETTERS) {
+  message("Downloading page ", page, "... ", appendLF = FALSE)
+  url <- paste0("https://lpsn.dsmz.de/genus?page=", page)
+  
+  x <- xml2::read_html(url) %>% 
+    rvest::html_node(".main-list") %>% 
+    # evety list element with a set <id> attribute
+    rvest::html_nodes("li[id]")
+  for (i in seq_len(length(x))) {
+    txt <- x %>% 
+      magrittr::extract2(i) %>% 
+      rvest::html_text() %>%
+      gsub("\\[[A-Za-z]+, no [a-z]+\\]", "NA", .) %>% 
+      gsub("Candidatus ", "", ., fixed = TRUE) %>% 
+      gsub("[ \t\r\n\"]+", "|", .) %>%
+      gsub("\\|ShowHide.*", "", .) %>% 
+      gsub("[\\[\\]]", "", ., fixed = TRUE) %>% 
+      gsub("^\\|", "", .) %>% 
+      strsplit("|", fixed = TRUE) %>% 
+      unlist()
+    txt[txt == "NA"] <- ""
+    txt <- gsub("[^A-Za-z]+", "", txt)
+    updated_taxonomy <- updated_taxonomy %>% 
+      bind_rows(tibble(phylum = txt[2],
+                       class = txt[3],
+                       order = txt[4],
+                       family = txt[5],
+                       genus = txt[6]))
+  }
+  message(length(x), " entries (total ", nrow(updated_taxonomy), ")")
+}
+
+# Create new microorganisms -----------------------------------------------
+
+new_microorganisms <- new_microorganisms %>% 
+  left_join(genus_abb, by = "genus") %>% 
+  group_by(genus) %>% 
+  mutate(species_abb = abbreviate_mo(species, 4)) %>% 
+  group_by(genus, species) %>% 
+  mutate(subspecies_abb = abbreviate_mo(subspecies, 4)) %>% 
+  ungroup() %>% 
+  mutate(mo = paste(abbr, species_abb, subspecies_abb, sep = "_"),
+         mo = gsub("_+$", "", mo)) %>% 
+  select(-matches("abb"))
+
+# add taxonomy new microorganisms
+MOs <- microorganisms %>%
+  mutate(mo = as.character(mo)) %>%
+  bind_rows(new_microorganisms) %>%
+  arrange(fullname)
+
+# unique MO codes
+MOs$mo[which(duplicated(MOs$mo))] <- paste0(MOs$mo[which(duplicated(MOs$mo))], 1)
+# all unique?
+!any(duplicated(MOs$mo))
+
+MOs <- MOs %>% 
+  # remove entries that are now a synonym
+  filter(!fullname %in% new_synonyms$fullname) %>% 
+  # update the taxonomy
+  left_join(updated_taxonomy, by = "genus", suffix = c("", ".new")) %>%
+  mutate(phylum = ifelse(!is.na(phylum.new), phylum.new, phylum),
+         class = ifelse(!is.na(class.new), class.new, class),
+         order = ifelse(!is.na(order.new), order.new, order),
+         family = ifelse(!is.na(family.new), family.new, family)) %>% 
+  select(-ends_with(".new")) %>%
+  # update prevalence based on taxonomy (Berends et al., 2021)
+  mutate(prevalence = case_when(
+    class == "Gammaproteobacteria"
+    | genus %in% c("Enterococcus", "Staphylococcus", "Streptococcus")
+    ~ 1,
+    kingdom %in% c("Archaea", "Bacteria", "Chromista", "Fungi")
+    & (phylum %in% c("Proteobacteria",
+                     "Firmicutes",
+                     "Actinobacteria",
+                     "Sarcomastigophora")
+       | genus %in% c("Absidia", "Acremonium", "Actinotignum", "Alternaria", "Anaerosalibacter", "Apophysomyces",
+                      "Arachnia", "Aspergillus", "Aureobacterium", "Aureobasidium", "Bacteroides", "Basidiobolus",
+                      "Beauveria", "Blastocystis", "Branhamella", "Calymmatobacterium", "Candida", "Capnocytophaga",
+                      "Catabacter", "Chaetomium", "Chryseobacterium", "Chryseomonas", "Chrysonilia", "Cladophialophora",
+                      "Cladosporium", "Conidiobolus", "Cryptococcus", "Curvularia", "Exophiala", "Exserohilum",
+                      "Flavobacterium", "Fonsecaea", "Fusarium", "Fusobacterium", "Hendersonula", "Hypomyces",
+                      "Koserella", "Lelliottia", "Leptosphaeria", "Leptotrichia", "Malassezia", "Malbranchea",
+                      "Mortierella", "Mucor", "Mycocentrospora", "Mycoplasma", "Nectria", "Ochroconis",
+                      "Oidiodendron", "Phoma", "Piedraia", "Pithomyces", "Pityrosporum", "Prevotella", "Pseudallescheria", 
+                      "Rhizomucor", "Rhizopus", "Rhodotorula", "Scolecobasidium", "Scopulariopsis", "Scytalidium", 
+                      "Sporobolomyces", "Stachybotrys", "Stomatococcus", "Treponema", "Trichoderma", "Trichophyton", 
+                      "Trichosporon", "Tritirachium", "Ureaplasma")
+       | rank %in% c("kingdom", "phylum", "class", "order", "family"))
+    ~ 2,
+    TRUE ~ 3
+  ))
+
+# add all mssing genera, families and orders
+MOs <- MOs %>% 
+  bind_rows(
+    MOs %>% 
+      arrange(genus, species) %>%
+      distinct(genus, .keep_all = TRUE) %>%
+      filter(rank == "species", source != "manually added") %>%
+      mutate(mo = gsub("^([A-Z]_[A-Z]+)_.*", "\\1", mo),
+             fullname = genus, 
+             species = "", 
+             subspecies = "", 
+             rank = "genus", 
+             species_id = "",
+             snomed = NA,
+             ref = NA_character_),
+    MOs %>% 
+      group_by(family) %>%
+      filter(!any(rank == "family") & n() > 1) %>%
+      ungroup() %>% 
+      arrange(family) %>%
+      distinct(family, .keep_all = TRUE) %>% 
+      filter(!family %in% c("", NA), source != "manually added") %>%
+      mutate(mo = paste0(substr(kingdom, 1, 1), "_[FAM]_",
+                         abbreviate(family,
+                                    minlength = 8,
+                                    use.classes = TRUE,
+                                    method = "both.sides",
+                                    strict = FALSE)),
+             mo = toupper(mo),
+             fullname = family,
+             genus = "",
+             species = "", 
+             subspecies = "", 
+             rank = "family", 
+             species_id = "",
+             snomed = NA,
+             ref = NA_character_),
+    MOs %>% 
+      group_by(order) %>%
+      filter(!any(rank == "order") & n() > 1) %>%
+      ungroup() %>% 
+      arrange(order) %>%
+      distinct(order, .keep_all = TRUE) %>% 
+      filter(!order %in% c("", NA), source != "manually added") %>%
+      mutate(mo = paste0(substr(kingdom, 1, 1), "_[ORD]_",
+                         abbreviate(order,
+                                    minlength = 8,
+                                    use.classes = TRUE,
+                                    method = "both.sides",
+                                    strict = FALSE)),
+             mo = toupper(mo),
+             fullname = order,
+             family = "",
+             genus = "",
+             species = "", 
+             subspecies = "", 
+             rank = "order", 
+             species_id = "",
+             snomed = NA,
+             ref = NA_character_)
+  ) %>%
+  arrange(fullname)
+
+# clean up
+MOs <- MOs %>% 
+  df_remove_nonASCII()
+
+
+# Merge synonyms ----------------------------------------------------------
+
+# remove synonyms that are now valid names
+MOs.old <- microorganisms.old %>% 
+  # add new synonyms
+  bind_rows(new_synonyms) %>% 
+  filter(!fullname %in% MOs$fullname) %>% 
+  arrange(fullname) %>% 
+  distinct(fullname, fullname_new, .keep_all = TRUE) %>% 
+  # add prevalence to old taxonomic names
+  select(-prevalence) %>% 
+  left_join(MOs %>% select(fullname, prevalence), by = c("fullname_new" = "fullname")) %>% 
+  # clean up
+  df_remove_nonASCII()
+
+# Keep old codes for translation ------------------------------------------
+
+# add removed microbial IDs to the internal translation table so old package versions keep working
+MOs.translation <- microorganisms %>% 
+  filter(!mo %in% MOs$mo) %>%
+  select(mo, fullname) %>%
+  left_join(new_synonyms) %>% 
+  left_join(MOs %>% transmute(fullname_new = fullname, mo2 = as.character(mo))) %>% 
+  select(mo_old = mo, mo_new = mo2) %>% 
+  distinct()
+MOs.translation <- AMR:::microorganisms.translation %>% 
+  left_join(MOs.translation %>% select(mo_new_update = mo_new, mo_new = mo_old)) %>% 
+  mutate(mo_new = as.character(ifelse(!is.na(mo_new_update), mo_new_update, mo_new))) %>% 
+  select(-mo_new_update) %>% 
+  bind_rows(
+    # old IDs used in microorganisms.codes must put in here as well
+    microorganisms.codes %>%
+      filter(!mo %in% MOs$mo) %>%
+      transmute(mo_old = mo, fullname = mo_name(mo)) %>%
+      left_join(MOs.old %>%
+                  select(fullname, fullname_new)) %>%
+      left_join(MOs %>%
+                  select(mo_new = mo, fullname_new = fullname)) %>%
+      transmute(mo_old = as.character(mo_old), mo_new)) %>% 
+  arrange(mo_old) %>% 
+  filter(mo_old != mo_new,
+         !mo_old %in% MOs$mo) %>%
+  left_join(., ., 
+            by = c("mo_new" = "mo_old"), 
+            suffix = c("", ".2")) %>%
+  mutate(mo_new = ifelse(!is.na(mo_new.2), mo_new.2, mo_new)) %>% 
+  distinct(mo_old, mo_new) %>% 
+  # clean up
+  df_remove_nonASCII()
+
+message("microorganisms new:     ", sum(!MOs$fullname %in% c(microorganisms$fullname, MOs.old$fullname)))
+message("microorganisms renamed: ", sum(!MOs.old$fullname %in% microorganisms.old$fullname))
+
+
+# Save --------------------------------------------------------------------
+
+# class <mo>
+class(MOs$mo) <- c("mo", "character")
+class(MOs.translation$mo_new) <- c("mo", "character")
+
+microorganisms <- MOs
+microorganisms.old <- MOs.old
+microorganisms.translation <- MOs.translation
+
+# on the server, do:
+usethis::use_data(microorganisms, overwrite = TRUE, version = 2, compress = "xz")
+usethis::use_data(microorganisms.old, overwrite = TRUE, version = 2)
+saveRDS(microorganisms.translation, file = "data-raw/microorganisms.translation.rds", version = 2)
+rm(microorganisms)
+rm(microorganisms.old)
+rm(microorganisms.translation)
+# to save microorganisms.translation internally to the package
+devtools::load_all(".")
+source("data-raw/_internals.R")
+
+# load new data sets
+devtools::load_all(".")
+
+# reset previously changed mo codes
+rsi_translation$mo <- as.mo(rsi_translation$mo, language = NULL)
+usethis::use_data(rsi_translation, overwrite = TRUE, version = 2)
+rm(rsi_translation)
+
+microorganisms.codes$mo <- as.mo(microorganisms.codes$mo, language = NULL)
+usethis::use_data(microorganisms.codes, overwrite = TRUE, version = 2)
+rm(microorganisms.codes)
+
+example_isolates$mo <- as.mo(example_isolates$mo, language = NULL)
+usethis::use_data(example_isolates, overwrite = TRUE, version = 2)
+rm(example_isolates)
+
+intrinsic_resistant$microorganism <- suppressMessages(mo_name(intrinsic_resistant$microorganism))
+usethis::use_data(intrinsic_resistant, overwrite = TRUE, version = 2)
+rm(intrinsic_resistant)
+
+# load new data sets again
+devtools::load_all(".")
+source("data-raw/_internals.R")
+devtools::load_all(".")
+
+
+# Test updates ------------------------------------------------------------
+
+# and check: these codes should not be missing (will otherwise throw a unit test error):
+AMR::microorganisms.codes %>% filter(!mo %in% MOs$mo)
+AMR::rsi_translation %>% filter(!mo %in% MOs$mo)
+AMR:::microorganisms.translation %>% filter(!mo_new %in% MOs$mo)
+AMR::example_isolates %>% filter(!mo %in% MOs$mo)
+
+# Don't forget to add SNOMED codes! (data-raw/snomed.R)
+
+# run the unit tests
+Sys.setenv(NOT_CRAN = "true")
+testthat::test_file("tests/testthat/test-data.R")
+testthat::test_file("tests/testthat/test-mo.R")
+testthat::test_file("tests/testthat/test-mo_property.R")

data-raw/rsi.md5

@@ -1 +1 @@
-f816b536ddd71d00e1adcdaba97d0329
+aa80f169fc2cba97f5eedc1d24ca8c03

data-raw/rsi_translation.txt

@@ -1982,7 +1982,7 @@
 "EUCAST 2020"	"MIC"		"Streptococcus pyogenes"	"Azithromycin"	"Streptococcus A,B,C,G"		0.25	0.5	FALSE
 "EUCAST 2020"	"MIC"		"Streptococcus salivarius"	"Azithromycin"	"Streptococcus A,B,C,G"		0.25	0.5	FALSE
 "EUCAST 2020"	"MIC"		"Streptococcus sanguinis"	"Azithromycin"	"Streptococcus A,B,C,G"		0.25	0.5	FALSE
-"EUCAST 2020"	"MIC"		"Mycobacterium africanum"	"Bedaquiline"	"M.tuberculosis"		0.25	0.25	FALSE
+"EUCAST 2020"	"MIC"		"Mycobacterium tuberculosis"	"Bedaquiline"	"M.tuberculosis"		0.25	0.25	FALSE
 "EUCAST 2020"	"DISK"		"Enterobacterales"	"Ceftobiprole"	"Enterobacterales"	"5ug"	23	23	FALSE
 "EUCAST 2020"	"MIC"		"Enterobacterales"	"Ceftobiprole"	"Enterobacterales"		0.25	0.25	FALSE
 "EUCAST 2020"	"DISK"		"Staphylococcus aureus"	"Ceftobiprole"	"Staphylococcus"	"5ug"	17	17	FALSE
@@ -2367,7 +2367,7 @@
 "EUCAST 2020"	"MIC"		"Streptococcus pyogenes"	"Delafloxacin"	"Streptococcus A,B,C,G"		0.03	0.03	FALSE
 "EUCAST 2020"	"MIC"		"Streptococcus salivarius"	"Delafloxacin"	"Streptococcus A,B,C,G"		0.03	0.03	FALSE
 "EUCAST 2020"	"MIC"		"Streptococcus sanguinis"	"Delafloxacin"	"Streptococcus A,B,C,G"		0.03	0.03	FALSE
-"EUCAST 2020"	"MIC"		"Mycobacterium africanum"	"Delamanid"	"M.tuberculosis"		0.06	0.06	FALSE
+"EUCAST 2020"	"MIC"		"Mycobacterium tuberculosis"	"Delamanid"	"M.tuberculosis"		0.06	0.06	FALSE
 "EUCAST 2020"	"MIC"		"Burkholderia pseudomallei"	"Doxycycline"	"B.pseudomallei"		0.001	2	FALSE
 "EUCAST 2020"	"MIC"		"Haemophilus influenzae"	"Doxycycline"	"H.influenzae"		1	2	FALSE
 "EUCAST 2020"	"MIC"		"Kingella kingae"	"Doxycycline"	"K.kingae"		0.5	0.5	FALSE
@@ -3743,7 +3743,7 @@
 "EUCAST 2019"	"MIC"		"Streptococcus pyogenes"	"Azithromycin"	"Streptococcus A,B,C,G"		0.25	0.5	FALSE
 "EUCAST 2019"	"MIC"		"Streptococcus salivarius"	"Azithromycin"	"Streptococcus A,B,C,G"		0.25	0.5	FALSE
 "EUCAST 2019"	"MIC"		"Streptococcus sanguinis"	"Azithromycin"	"Streptococcus A,B,C,G"		0.25	0.5	FALSE
-"EUCAST 2019"	"MIC"		"Mycobacterium africanum"	"Bedaquiline"	"M.tuberculosis"		0.25	0.25	FALSE
+"EUCAST 2019"	"MIC"		"Mycobacterium tuberculosis"	"Bedaquiline"	"M.tuberculosis"		0.25	0.25	FALSE
 "EUCAST 2019"	"DISK"		"Enterobacterales"	"Ceftobiprole"	"Enterobacterales"	"5ug"	23	23	FALSE
 "EUCAST 2019"	"MIC"		"Enterobacterales"	"Ceftobiprole"	"Enterobacterales"		0.25	0.25	FALSE
 "EUCAST 2019"	"DISK"		"Staphylococcus aureus"	"Ceftobiprole"	"Staphylococcus"	"5ug"	17	17	FALSE
@@ -4098,7 +4098,7 @@
 "EUCAST 2019"	"MIC"		"Streptococcus pyogenes"	"Daptomycin"	"Streptococcus A,B,C,G"		1	1	FALSE
 "EUCAST 2019"	"MIC"		"Streptococcus salivarius"	"Daptomycin"	"Streptococcus A,B,C,G"		1	1	FALSE
 "EUCAST 2019"	"MIC"		"Streptococcus sanguinis"	"Daptomycin"	"Streptococcus A,B,C,G"		1	1	FALSE
-"EUCAST 2019"	"MIC"		"Mycobacterium africanum"	"Delamanid"	"M.tuberculosis"		0.06	0.06	FALSE
+"EUCAST 2019"	"MIC"		"Mycobacterium tuberculosis"	"Delamanid"	"M.tuberculosis"		0.06	0.06	FALSE
 "EUCAST 2019"	"MIC"		"Haemophilus influenzae"	"Doxycycline"	"H.influenzae"		1	2	FALSE
 "EUCAST 2019"	"MIC"		"Kingella kingae"	"Doxycycline"	"K.kingae"		0.5	0.5	FALSE
 "EUCAST 2019"	"MIC"		"Moraxella catarrhalis"	"Doxycycline"	"M.catarrhalis"		1	2	FALSE

data-raw/snomed.R

@@ -31,11 +31,11 @@ library(tidyverse)
 snomed <- clipr::read_clip_tbl(skip = 2)
 snomed <- snomed %>%
   dplyr::filter(gsub("(^genus |^familie |^stam |ss.? |subsp.? |subspecies )", "", 
-              Omschrijving.,
-              ignore.case = TRUE) %in% c(microorganisms$fullname, 
-                                         microorganisms.old$fullname)) %>% 
+                     Omschrijving.,
+                     ignore.case = TRUE) %in% c(microorganisms$fullname, 
+                                                microorganisms.old$fullname)) %>% 
   dplyr::transmute(fullname = mo_name(Omschrijving.),
-            snomed = as.integer(Id)) %>% 
+                   snomed = as.integer(Id)) %>% 
   dplyr::filter(!fullname %like% "unknown")
 snomed_trans <- snomed %>%
   group_by(fullname) %>%

data-raw/translations.tsv

@@ -1,412 +1,262 @@
-lang	pattern	replacement	fixed	ignore.case	affect_mo_name
-de	Coagulase-negative Staphylococcus	Koagulase-negative Staphylococcus	FALSE	FALSE	TRUE
-de	Coagulase-positive Staphylococcus	Koagulase-positive Staphylococcus	FALSE	FALSE	TRUE
-de	Beta-haemolytic Streptococcus	Beta-hämolytischer Streptococcus	FALSE	FALSE	TRUE
-de	unknown Gram-negatives	unbekannte Gramnegativen	FALSE	FALSE	TRUE
-de	unknown Gram-positives	unbekannte Grampositiven	FALSE	FALSE	TRUE
-de	unknown fungus	unbekannter Pilze	FALSE	FALSE	TRUE
-de	unknown yeast	unbekannte Hefe	FALSE	FALSE	TRUE
-de	unknown name	unbekannte Name	FALSE	FALSE	TRUE
-de	unknown kingdom	unbekanntes Reich	FALSE	FALSE	TRUE
-de	unknown phylum	unbekannter Stamm	FALSE	FALSE	TRUE
-de	unknown class	unbekannte Klasse	FALSE	FALSE	TRUE
-de	unknown order	unbekannte Ordnung	FALSE	FALSE	TRUE
-de	unknown family	unbekannte Familie	FALSE	FALSE	TRUE
-de	unknown genus	unbekannte Gattung	FALSE	FALSE	TRUE
-de	unknown species	unbekannte Art	FALSE	FALSE	TRUE
-de	unknown subspecies	unbekannte Unterart	FALSE	FALSE	TRUE
-de	unknown rank	unbekannter Rang	FALSE	FALSE	TRUE
-de	CoNS	KNS	TRUE	FALSE	TRUE
-de	CoPS	KPS	TRUE	FALSE	TRUE
-de	Gram-negative	Gramnegativ	FALSE	FALSE	FALSE
-de	Gram-positive	Grampositiv	FALSE	FALSE	FALSE
-de	^Bacteria$	Bakterien	FALSE	FALSE	FALSE
-de	^Fungi$	Pilze	FALSE	FALSE	FALSE
-de	^Yeasts$	Hefen	FALSE	FALSE	FALSE
-de	^Protozoa$	Protozoen	FALSE	FALSE	FALSE
-de	biogroup	Biogruppe	FALSE	FALSE	FALSE
-de	biotype	Biotyp	FALSE	FALSE	FALSE
-de	vegetative	vegetativ	FALSE	FALSE	FALSE
-de	([([ ]*?)group	\\1Gruppe	FALSE	FALSE	FALSE
-de	([([ ]*?)Group	\\1Gruppe	FALSE	FALSE	FALSE
-de	no .*growth	keine? .*wachstum	FALSE	TRUE	FALSE
-de	(^| )no|not	keine?	FALSE	TRUE	FALSE
-nl	Coagulase-negative Staphylococcus	Coagulase-negatieve Staphylococcus	FALSE	FALSE	TRUE
-nl	Coagulase-positive Staphylococcus	Coagulase-positieve Staphylococcus	FALSE	FALSE	TRUE
-nl	Beta-haemolytic Streptococcus	Beta-hemolytische Streptococcus	FALSE	FALSE	TRUE
-nl	unknown Gram-negatives	onbekende Gram-negatieven	FALSE	FALSE	TRUE
-nl	unknown Gram-positives	onbekende Gram-positieven	FALSE	FALSE	TRUE
-nl	unknown fungus	onbekende schimmel	FALSE	FALSE	TRUE
-nl	unknown yeast	onbekende gist	FALSE	FALSE	TRUE
-nl	unknown name	onbekende naam	FALSE	FALSE	TRUE
-nl	unknown kingdom	onbekend koninkrijk	FALSE	FALSE	TRUE
-nl	unknown phylum	onbekend fylum	FALSE	FALSE	TRUE
-nl	unknown class	onbekende klasse	FALSE	FALSE	TRUE
-nl	unknown order	onbekende orde	FALSE	FALSE	TRUE
-nl	unknown family	onbekende familie	FALSE	FALSE	TRUE
-nl	unknown genus	onbekend geslacht	FALSE	FALSE	TRUE
-nl	unknown species	onbekende soort	FALSE	FALSE	TRUE
-nl	unknown subspecies	onbekende ondersoort	FALSE	FALSE	TRUE
-nl	unknown rank	onbekende rang	FALSE	FALSE	TRUE
-nl	CoNS	CNS	TRUE	FALSE	TRUE
-nl	CoPS	CPS	TRUE	FALSE	TRUE
-nl	Gram-negative	Gram-negatief	FALSE	FALSE	FALSE
-nl	Gram-positive	Gram-positief	FALSE	FALSE	FALSE
-nl	^Bacteria$	Bacteriën	FALSE	FALSE	FALSE
-nl	^Fungi$	Schimmels	FALSE	FALSE	FALSE
-nl	^Yeasts$	Gisten	FALSE	FALSE	FALSE
-nl	^Protozoa$	Protozoën	FALSE	FALSE	FALSE
-nl	biogroup	biogroep	FALSE	FALSE	FALSE
-nl	vegetative	vegetatief	FALSE	FALSE	FALSE
-nl	([([ ]*?)group	\\1groep	FALSE	FALSE	FALSE
-nl	([([ ]*?)Group	\\1Groep	FALSE	FALSE	FALSE
-nl	antibiotic	antibioticum	FALSE	FALSE	FALSE
-nl	Antibiotic	Antibioticum	FALSE	FALSE	FALSE
-nl	Drug	Middel	FALSE	FALSE	FALSE
-nl	drug	middel	FALSE	FALSE	FALSE
-nl	no .*growth	geen .*groei	FALSE	TRUE	FALSE
-nl	no|not	geen|niet	FALSE	TRUE	FALSE
-es	Coagulase-negative Staphylococcus	Staphylococcus coagulasa negativo	FALSE	FALSE	TRUE
-es	Coagulase-positive Staphylococcus	Staphylococcus coagulasa positivo	FALSE	FALSE	TRUE
-es	Beta-haemolytic Streptococcus	Streptococcus Beta-hemolítico	FALSE	FALSE	TRUE
-es	unknown Gram-negatives	Gram negativos desconocidos	FALSE	FALSE	TRUE
-es	unknown Gram-positives	Gram positivos desconocidos	FALSE	FALSE	TRUE
-es	unknown fungus	hongo desconocido	FALSE	FALSE	TRUE
-es	unknown yeast	levadura desconocida	FALSE	FALSE	TRUE
-es	unknown name	nombre desconocido	FALSE	FALSE	TRUE
-es	unknown kingdom	reino desconocido	FALSE	FALSE	TRUE
-es	unknown phylum	filo desconocido	FALSE	FALSE	TRUE
-es	unknown class	clase desconocida	FALSE	FALSE	TRUE
-es	unknown order	orden desconocido	FALSE	FALSE	TRUE
-es	unknown family	familia desconocida	FALSE	FALSE	TRUE
-es	unknown genus	género desconocido	FALSE	FALSE	TRUE
-es	unknown species	especie desconocida	FALSE	FALSE	TRUE
-es	unknown subspecies	subespecie desconocida	FALSE	FALSE	TRUE
-es	unknown rank	rango desconocido	FALSE	FALSE	TRUE
-es	CoNS	SCN	TRUE	FALSE	TRUE
-es	CoPS	SCP	TRUE	FALSE	TRUE
-es	Gram-negative	Gram negativo	FALSE	FALSE	FALSE
-es	Gram-positive	Gram positivo	FALSE	FALSE	FALSE
-es	^Bacteria$	Bacterias	FALSE	FALSE	FALSE
-es	^Fungi$	Hongos	FALSE	FALSE	FALSE
-es	^Yeasts$	Levaduras	FALSE	FALSE	FALSE
-es	^Protozoa$	Protozoarios	FALSE	FALSE	FALSE
-es	biogroup	biogrupo	FALSE	FALSE	FALSE
-es	biotype	biotipo	FALSE	FALSE	FALSE
-es	vegetative	vegetativo	FALSE	FALSE	FALSE
-es	([([ ]*?)group	\\1grupo	FALSE	FALSE	FALSE
-es	([([ ]*?)Group	\\1Grupo	FALSE	FALSE	FALSE
-es	no .*growth	no .*crecimientonon	FALSE	TRUE	FALSE
-es	no|not	no|sin	FALSE	TRUE	FALSE
-it	Coagulase-negative Staphylococcus	Staphylococcus negativo coagulasi	FALSE	FALSE	TRUE
-it	Coagulase-positive Staphylococcus	Staphylococcus positivo coagulasi	FALSE	FALSE	TRUE
-it	Beta-haemolytic Streptococcus	Streptococcus Beta-emolitico	FALSE	FALSE	TRUE
-it	unknown Gram-negatives	Gram negativi sconosciuti	FALSE	FALSE	TRUE
-it	unknown Gram-positives	Gram positivi sconosciuti	FALSE	FALSE	TRUE
-it	unknown fungus	fungo sconosciuto	FALSE	FALSE	TRUE
-it	unknown yeast	lievito sconosciuto	FALSE	FALSE	TRUE
-it	unknown name	nome sconosciuto	FALSE	FALSE	TRUE
-it	unknown kingdom	regno sconosciuto	FALSE	FALSE	TRUE
-it	unknown phylum	phylum sconosciuto	FALSE	FALSE	TRUE
-it	unknown class	classe sconosciuta	FALSE	FALSE	TRUE
-it	unknown order	ordine sconosciuto	FALSE	FALSE	TRUE
-it	unknown family	famiglia sconosciuta	FALSE	FALSE	TRUE
-it	unknown genus	genere sconosciuto	FALSE	FALSE	TRUE
-it	unknown species	specie sconosciute	FALSE	FALSE	TRUE
-it	unknown subspecies	sottospecie sconosciute	FALSE	FALSE	TRUE
-it	unknown rank	grado sconosciuto	FALSE	FALSE	TRUE
-it	Gram-negative	Gram negativo	FALSE	FALSE	FALSE
-it	Gram-positive	Gram positivo	FALSE	FALSE	FALSE
-it	^Bacteria$	Batteri	FALSE	FALSE	FALSE
-it	^Fungi$	Funghi	FALSE	FALSE	FALSE
-it	^Yeasts$	Lieviti	FALSE	FALSE	FALSE
-it	^Protozoa$	Protozoi	FALSE	FALSE	FALSE
-it	biogroup	biogruppo	FALSE	FALSE	FALSE
-it	biotype	biotipo	FALSE	FALSE	FALSE
-it	vegetative	vegetativo	FALSE	FALSE	FALSE
-it	([([ ]*?)group	\\1gruppo	FALSE	FALSE	FALSE
-it	([([ ]*?)Group	\\1Gruppo	FALSE	FALSE	FALSE
-it	no .*growth	sem .*crescimento	FALSE	TRUE	FALSE
-it	no|not	sem	FALSE	TRUE	FALSE
-fr	Coagulase-negative Staphylococcus	Staphylococcus à coagulase négative	FALSE	FALSE	TRUE
-fr	Coagulase-positive Staphylococcus	Staphylococcus à coagulase positif	FALSE	FALSE	TRUE
-fr	Beta-haemolytic Streptococcus	Streptococcus Bêta-hémolytique	FALSE	FALSE	TRUE
-fr	unknown Gram-negatives	Gram négatifs inconnus	FALSE	FALSE	TRUE
-fr	unknown Gram-positives	Gram positifs inconnus	FALSE	FALSE	TRUE
-fr	unknown fungus	champignon inconnu	FALSE	FALSE	TRUE
-fr	unknown yeast	levure inconnue	FALSE	FALSE	TRUE
-fr	unknown name	nom inconnu	FALSE	FALSE	TRUE
-fr	unknown kingdom	règme inconnu	FALSE	FALSE	TRUE
-fr	unknown phylum	embranchement inconnu	FALSE	FALSE	TRUE
-fr	unknown class	classe inconnue	FALSE	FALSE	TRUE
-fr	unknown order	ordre inconnu	FALSE	FALSE	TRUE
-fr	unknown family	famille inconnue	FALSE	FALSE	TRUE
-fr	unknown genus	genre inconnu	FALSE	FALSE	TRUE
-fr	unknown species	espèce inconnue	FALSE	FALSE	TRUE
-fr	unknown subspecies	sous-espèce inconnue	FALSE	FALSE	TRUE
-fr	unknown rank	rang inconnu	FALSE	FALSE	TRUE
-fr	Gram-negative	Gram négatif	FALSE	FALSE	FALSE
-fr	Gram-positive	Gram positif	FALSE	FALSE	FALSE
-fr	^Bacteria$	Bactéries	FALSE	FALSE	FALSE
-fr	^Fungi$	Champignons	FALSE	FALSE	FALSE
-fr	^Yeasts$	Levures	FALSE	FALSE	FALSE
-fr	^Protozoa$	Protozoaires	FALSE	FALSE	FALSE
-fr	biogroup	biogroupe	FALSE	FALSE	FALSE
-fr	vegetative	végétatif	FALSE	FALSE	FALSE
-fr	([([ ]*?)group	\\1groupe	FALSE	FALSE	FALSE
-fr	([([ ]*?)Group	\\1Groupe	FALSE	FALSE	FALSE
-fr	no .*growth	pas .*croissance	FALSE	TRUE	FALSE
-fr	no|not	non	FALSE	TRUE	FALSE
-pt	Coagulase-negative Staphylococcus	Staphylococcus coagulase negativo	FALSE	FALSE	TRUE
-pt	Coagulase-positive Staphylococcus	Staphylococcus coagulase positivo	FALSE	FALSE	TRUE
-pt	Beta-haemolytic Streptococcus	Streptococcus Beta-hemolítico	FALSE	FALSE	TRUE
-pt	unknown Gram-negatives	Gram negativos desconhecidos	FALSE	FALSE	TRUE
-pt	unknown Gram-positives	Gram positivos desconhecidos	FALSE	FALSE	TRUE
-pt	unknown fungus	fungo desconhecido	FALSE	FALSE	TRUE
-pt	unknown yeast	levedura desconhecida	FALSE	FALSE	TRUE
-pt	unknown name	nome desconhecido	FALSE	FALSE	TRUE
-pt	unknown kingdom	reino desconhecido	FALSE	FALSE	TRUE
-pt	unknown phylum	filo desconhecido	FALSE	FALSE	TRUE
-pt	unknown class	classe desconhecida	FALSE	FALSE	TRUE
-pt	unknown order	ordem desconhecido	FALSE	FALSE	TRUE
-pt	unknown family	família desconhecida	FALSE	FALSE	TRUE
-pt	unknown genus	gênero desconhecido	FALSE	FALSE	TRUE
-pt	unknown species	espécies desconhecida	FALSE	FALSE	TRUE
-pt	unknown subspecies	subespécies desconhecida	FALSE	FALSE	TRUE
-pt	unknown rank	classificação desconhecido	FALSE	FALSE	TRUE
-pt	Gram-negative	Gram negativo	FALSE	FALSE	FALSE
-pt	Gram-positive	Gram positivo	FALSE	FALSE	FALSE
-pt	^Bacteria$	Bactérias	FALSE	FALSE	FALSE
-pt	^Fungi$	Fungos	FALSE	FALSE	FALSE
-pt	^Yeasts$	Leveduras	FALSE	FALSE	FALSE
-pt	^Protozoa$	Protozoários	FALSE	FALSE	FALSE
-pt	biogroup	biogrupo	FALSE	FALSE	FALSE
-pt	biotype	biótipo	FALSE	FALSE	FALSE
-pt	vegetative	vegetativo	FALSE	FALSE	FALSE
-pt	([([ ]*?)group	\\1grupo	FALSE	FALSE	FALSE
-pt	([([ ]*?)Group	\\1Grupo	FALSE	FALSE	FALSE
-pt	no .*growth	sem .*crescimento	FALSE	TRUE	FALSE
-pt	no|not	sem	FALSE	TRUE	FALSE
-de	clavulanic acid	Clavulansäure	FALSE	TRUE	FALSE
-nl	4-aminosalicylic acid	4-aminosalicylzuur	TRUE	FALSE	FALSE
-nl	Adefovir dipivoxil	Adefovir	TRUE	FALSE	FALSE
-nl	Aldesulfone sodium	Aldesulfon	TRUE	FALSE	FALSE
-nl	Amikacin	Amikacine	TRUE	FALSE	FALSE
-nl	Amoxicillin	Amoxicilline	TRUE	FALSE	FALSE
-nl	Amoxicillin/beta-lactamase inhibitor	Amoxicilline/enzymremmer	TRUE	FALSE	FALSE
-nl	Amphotericin B	Amfotericine B	TRUE	FALSE	FALSE
-nl	Ampicillin	Ampicilline	TRUE	FALSE	FALSE
-nl	Ampicillin/beta-lactamase inhibitor	Ampicilline/enzymremmer	TRUE	FALSE	FALSE
-nl	Anidulafungin	Anidulafungine	TRUE	FALSE	FALSE
-nl	Azidocillin	Azidocilline	TRUE	FALSE	FALSE
-nl	Azithromycin	Azitromycine	TRUE	FALSE	FALSE
-nl	Azlocillin	Azlocilline	TRUE	FALSE	FALSE
-nl	Bacampicillin	Bacampicilline	TRUE	FALSE	FALSE
-nl	Bacitracin	Bacitracine	TRUE	FALSE	FALSE
-nl	Benzathine benzylpenicillin	Benzylpenicillinebenzathine	TRUE	FALSE	FALSE
-nl	Benzathine phenoxymethylpenicillin	Fenoxymethylpenicillinebenzathine	TRUE	FALSE	FALSE
-nl	Benzylpenicillin	Benzylpenicilline	TRUE	FALSE	FALSE
-nl	Calcium aminosalicylate	Aminosalicylzuur	TRUE	FALSE	FALSE
-nl	Capreomycin	Capreomycine	TRUE	FALSE	FALSE
-nl	Carbenicillin	Carbenicilline	TRUE	FALSE	FALSE
-nl	Carindacillin	Carindacilline	TRUE	FALSE	FALSE
-nl	Caspofungin	Caspofungine	TRUE	FALSE	FALSE
-nl	Ce(f|ph)acetrile	Cefacetril	FALSE	FALSE	FALSE
-nl	Ce(f|ph)alexin	Cefalexine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)alotin	Cefalotine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)amandole	Cefamandol	FALSE	FALSE	FALSE
-nl	Ce(f|ph)apirin	Cefapirine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)azedone	Cefazedon	FALSE	FALSE	FALSE
-nl	Ce(f|ph)azolin	Cefazoline	FALSE	FALSE	FALSE
-nl	Ce(f|ph)alothin	Cefalotine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)alexin	Cefalexine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)epime	Cefepim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)ixime	Cefixim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)menoxime	Cefmenoxim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)metazole	Cefmetazol	FALSE	FALSE	FALSE
-nl	Ce(f|ph)odizime	Cefodizim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)onicid	Cefonicide	FALSE	FALSE	FALSE
-nl	Ce(f|ph)operazone	Cefoperazon	FALSE	FALSE	FALSE
-nl	Ce(f|ph)operazone/beta-lactamase inhibitor	Cefoperazon/enzymremmer	FALSE	FALSE	FALSE
-nl	Ce(f|ph)otaxime	Cefotaxim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)oxitin	Cefoxitine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)pirome	Cefpirom	FALSE	FALSE	FALSE
-nl	Ce(f|ph)podoxime	Cefpodoxim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)radine	Cefradine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)sulodin	Cefsulodine	FALSE	FALSE	FALSE
-nl	Ce(f|ph)tazidime	Ceftazidim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)tezole	Ceftezol	FALSE	FALSE	FALSE
-nl	Ce(f|ph)tizoxime	Ceftizoxim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)triaxone	Ceftriaxon	FALSE	FALSE	FALSE
-nl	Ce(f|ph)uroxime	Cefuroxim	FALSE	FALSE	FALSE
-nl	Ce(f|ph)uroxime/metronidazole	Cefuroxim/andere antibacteriele middelen	FALSE	FALSE	FALSE
-nl	Chloramphenicol	Chlooramfenicol	TRUE	FALSE	FALSE
-nl	Chlortetracycline	Chloortetracycline	TRUE	FALSE	FALSE
-nl	Cinoxacin	Cinoxacine	TRUE	FALSE	FALSE
-nl	Ciprofloxacin	Ciprofloxacine	TRUE	FALSE	FALSE
-nl	Clarithromycin	Claritromycine	TRUE	FALSE	FALSE
-nl	Clavulanic acid	Clavulaanzuur	TRUE	FALSE	FALSE
-nl	clavulanic acid	clavulaanzuur	TRUE	FALSE	FALSE
-nl	Clindamycin	Clindamycine	TRUE	FALSE	FALSE
-nl	Clometocillin	Clometocilline	TRUE	FALSE	FALSE
-nl	Clotrimazole	Clotrimazol	TRUE	FALSE	FALSE
-nl	Cloxacillin	Cloxacilline	TRUE	FALSE	FALSE
-nl	Colistin	Colistine	TRUE	FALSE	FALSE
-nl	Dapsone	Dapson	TRUE	FALSE	FALSE
-nl	Daptomycin	Daptomycine	TRUE	FALSE	FALSE
-nl	Dibekacin	Dibekacine	TRUE	FALSE	FALSE
-nl	Dicloxacillin	Dicloxacilline	TRUE	FALSE	FALSE
-nl	Dirithromycin	Diritromycine	TRUE	FALSE	FALSE
-nl	Econazole	Econazol	TRUE	FALSE	FALSE
-nl	Enoxacin	Enoxacine	TRUE	FALSE	FALSE
-nl	Epicillin	Epicilline	TRUE	FALSE	FALSE
-nl	Erythromycin	Erytromycine	TRUE	FALSE	FALSE
-nl	Ethambutol/isoniazid	Ethambutol/isoniazide	TRUE	FALSE	FALSE
-nl	Fleroxacin	Fleroxacine	TRUE	FALSE	FALSE
-nl	Flucloxacillin	Flucloxacilline	TRUE	FALSE	FALSE
-nl	Fluconazole	Fluconazol	TRUE	FALSE	FALSE
-nl	Flucytosine	Fluorocytosine	TRUE	FALSE	FALSE
-nl	Flurithromycin	Fluritromycine	TRUE	FALSE	FALSE
-nl	Fosfomycin	Fosfomycine	TRUE	FALSE	FALSE
-nl	Fusidic acid	Fusidinezuur	TRUE	FALSE	FALSE
-nl	Gatifloxacin	Gatifloxacine	TRUE	FALSE	FALSE
-nl	Gemifloxacin	Gemifloxacine	TRUE	FALSE	FALSE
-nl	Gentamicin	Gentamicine	TRUE	FALSE	FALSE
-nl	Grepafloxacin	Grepafloxacine	TRUE	FALSE	FALSE
-nl	Hachimycin	Hachimycine	TRUE	FALSE	FALSE
-nl	Hetacillin	Hetacilline	TRUE	FALSE	FALSE
-nl	Imipenem/cilastatin	Imipenem/enzymremmer	TRUE	FALSE	FALSE
-nl	Inosine pranobex	Inosiplex	TRUE	FALSE	FALSE
-nl	Isepamicin	Isepamicine	TRUE	FALSE	FALSE
-nl	Isoconazole	Isoconazol	TRUE	FALSE	FALSE
-nl	Isoniazid	Isoniazide	TRUE	FALSE	FALSE
-nl	Itraconazole	Itraconazol	TRUE	FALSE	FALSE
-nl	Josamycin	Josamycine	TRUE	FALSE	FALSE
-nl	Kanamycin	Kanamycine	TRUE	FALSE	FALSE
-nl	Ketoconazole	Ketoconazol	TRUE	FALSE	FALSE
-nl	Levofloxacin	Levofloxacine	TRUE	FALSE	FALSE
-nl	Lincomycin	Lincomycine	TRUE	FALSE	FALSE
-nl	Lomefloxacin	Lomefloxacine	TRUE	FALSE	FALSE
-nl	Lysozyme	Lysozym	TRUE	FALSE	FALSE
-nl	Mandelic acid	Amandelzuur	TRUE	FALSE	FALSE
-nl	Metampicillin	Metampicilline	TRUE	FALSE	FALSE
-nl	Meticillin	Meticilline	TRUE	FALSE	FALSE
-nl	Metisazone	Metisazon	TRUE	FALSE	FALSE
-nl	Metronidazole	Metronidazol	TRUE	FALSE	FALSE
-nl	Mezlocillin	Mezlocilline	TRUE	FALSE	FALSE
-nl	Micafungin	Micafungine	TRUE	FALSE	FALSE
-nl	Miconazole	Miconazol	TRUE	FALSE	FALSE
-nl	Midecamycin	Midecamycine	TRUE	FALSE	FALSE
-nl	Miocamycin	Miocamycine	TRUE	FALSE	FALSE
-nl	Moxifloxacin	Moxifloxacine	TRUE	FALSE	FALSE
-nl	Mupirocin	Mupirocine	TRUE	FALSE	FALSE
-nl	Nalidixic acid	Nalidixinezuur	TRUE	FALSE	FALSE
-nl	Neomycin	Neomycine	TRUE	FALSE	FALSE
-nl	Netilmicin	Netilmicine	TRUE	FALSE	FALSE
-nl	Nitrofurantoin	Nitrofurantoine	TRUE	FALSE	FALSE
-nl	Norfloxacin	Norfloxacine	TRUE	FALSE	FALSE
-nl	Novobiocin	Novobiocine	TRUE	FALSE	FALSE
-nl	Nystatin	Nystatine	TRUE	FALSE	FALSE
-nl	Ofloxacin	Ofloxacine	TRUE	FALSE	FALSE
-nl	Oleandomycin	Oleandomycine	TRUE	FALSE	FALSE
-nl	Ornidazole	Ornidazol	TRUE	FALSE	FALSE
-nl	Oxacillin	Oxacilline	TRUE	FALSE	FALSE
-nl	Oxolinic acid	Oxolinezuur	TRUE	FALSE	FALSE
-nl	Oxytetracycline	Oxytetracycline	TRUE	FALSE	FALSE
-nl	Pazufloxacin	Pazufloxacine	TRUE	FALSE	FALSE
-nl	Pefloxacin	Pefloxacine	TRUE	FALSE	FALSE
-nl	Penamecillin	Penamecilline	TRUE	FALSE	FALSE
-nl	Penicillin	Penicilline	TRUE	FALSE	FALSE
-nl	Pheneticillin	Feneticilline	TRUE	FALSE	FALSE
-nl	Phenoxymethylpenicillin	Fenoxymethylpenicilline	TRUE	FALSE	FALSE
-nl	Pipemidic acid	Pipemidinezuur	TRUE	FALSE	FALSE
-nl	Piperacillin	Piperacilline	TRUE	FALSE	FALSE
-nl	Piperacillin/beta-lactamase inhibitor	Piperacilline/enzymremmer	TRUE	FALSE	FALSE
-nl	Piromidic acid	Piromidinezuur	TRUE	FALSE	FALSE
-nl	Pivampicillin	Pivampicilline	TRUE	FALSE	FALSE
-nl	Polymyxin B	Polymyxine B	TRUE	FALSE	FALSE
-nl	Posaconazole	Posaconazol	TRUE	FALSE	FALSE
-nl	Pristinamycin	Pristinamycine	TRUE	FALSE	FALSE
-nl	Procaine benzylpenicillin	Benzylpenicillineprocaine	TRUE	FALSE	FALSE
-nl	Propicillin	Propicilline	TRUE	FALSE	FALSE
-nl	Prulifloxacin	Prulifloxacine	TRUE	FALSE	FALSE
-nl	Quinupristin/dalfopristin	Quinupristine/dalfopristine	TRUE	FALSE	FALSE
-nl	Ribostamycin	Ribostamycine	TRUE	FALSE	FALSE
-nl	Rifabutin	Rifabutine	TRUE	FALSE	FALSE
-nl	Rifampicin	Rifampicine	TRUE	FALSE	FALSE
-nl	Rifampicin/pyrazinamide/ethambutol/isoniazid	Rifampicine/pyrazinamide/ethambutol/isoniazide	TRUE	FALSE	FALSE
-nl	Rifampicin/pyrazinamide/isoniazid	Rifampicine/pyrazinamide/isoniazide	TRUE	FALSE	FALSE
-nl	Rifampicin/isoniazid	Rifampicine/isoniazide	TRUE	FALSE	FALSE
-nl	Rifamycin	Rifamycine	TRUE	FALSE	FALSE
-nl	Rifaximin	Rifaximine	TRUE	FALSE	FALSE
-nl	Rokitamycin	Rokitamycine	TRUE	FALSE	FALSE
-nl	Rosoxacin	Rosoxacine	TRUE	FALSE	FALSE
-nl	Roxithromycin	Roxitromycine	TRUE	FALSE	FALSE
-nl	Rufloxacin	Rufloxacine	TRUE	FALSE	FALSE
-nl	Sisomicin	Sisomicine	TRUE	FALSE	FALSE
-nl	Sodium aminosalicylate	Aminosalicylzuur	TRUE	FALSE	FALSE
-nl	Sparfloxacin	Sparfloxacine	TRUE	FALSE	FALSE
-nl	Spectinomycin	Spectinomycine	TRUE	FALSE	FALSE
-nl	Spiramycin	Spiramycine	TRUE	FALSE	FALSE
-nl	Spiramycin/metronidazole	Spiramycine/metronidazol	TRUE	FALSE	FALSE
-nl	Staphylococcus immunoglobulin	Stafylokokkenimmunoglobuline	TRUE	FALSE	FALSE
-nl	Streptoduocin	Streptoduocine	TRUE	FALSE	FALSE
-nl	Streptomycin	Streptomycine	TRUE	FALSE	FALSE
-nl	Streptomycin/isoniazid	Streptomycine/isoniazide	TRUE	FALSE	FALSE
-nl	Sulbenicillin	Sulbenicilline	TRUE	FALSE	FALSE
-nl	Sulfadiazine/tetroxoprim	Sulfadiazine/tetroxoprim	TRUE	FALSE	FALSE
-nl	Sulfadiazine/trimethoprim	Sulfadiazine/trimethoprim	TRUE	FALSE	FALSE
-nl	Sulfadimidine/trimethoprim	Sulfadimidine/trimethoprim	TRUE	FALSE	FALSE
-nl	Sulfafurazole	Sulfafurazol	TRUE	FALSE	FALSE
-nl	Sulfaisodimidine	Sulfisomidine	TRUE	FALSE	FALSE
-nl	Sulfalene	Sulfaleen	TRUE	FALSE	FALSE
-nl	Sulfamazone	Sulfamazon	TRUE	FALSE	FALSE
-nl	Sulfamerazine/trimethoprim	Sulfamerazine/trimethoprim	TRUE	FALSE	FALSE
-nl	Sulfamethizole	Sulfamethizol	TRUE	FALSE	FALSE
-nl	Sulfamethoxazole	Sulfamethoxazol	TRUE	FALSE	FALSE
-nl	Sulfamethoxazole/trimethoprim	Sulfamethoxazol/trimethoprim	TRUE	FALSE	FALSE
-nl	Sulfametoxydiazine	Sulfamethoxydiazine	TRUE	FALSE	FALSE
-nl	Sulfametrole/trimethoprim	Sulfametrol/trimethoprim	TRUE	FALSE	FALSE
-nl	Sulfamoxole	Sulfamoxol	TRUE	FALSE	FALSE
-nl	Sulfamoxole/trimethoprim	Sulfamoxol/trimethoprim	TRUE	FALSE	FALSE
-nl	Sulfaperin	Sulfaperine	TRUE	FALSE	FALSE
-nl	Sulfaphenazole	Sulfafenazol	TRUE	FALSE	FALSE
-nl	Sulfathiazole	Sulfathiazol	TRUE	FALSE	FALSE
-nl	Sulfathiourea	Sulfathioureum	TRUE	FALSE	FALSE
-nl	Sultamicillin	Sultamicilline	TRUE	FALSE	FALSE
-nl	Talampicillin	Talampicilline	TRUE	FALSE	FALSE
-nl	Teicoplanin	Teicoplanine	TRUE	FALSE	FALSE
-nl	Telithromycin	Telitromycine	TRUE	FALSE	FALSE
-nl	Temafloxacin	Temafloxacine	TRUE	FALSE	FALSE
-nl	Temocillin	Temocilline	TRUE	FALSE	FALSE
-nl	Tenofovir disoproxil	Tenofovir	TRUE	FALSE	FALSE
-nl	Terizidone	Terizidon	TRUE	FALSE	FALSE
-nl	Thiamphenicol	Thiamfenicol	TRUE	FALSE	FALSE
-nl	Thioacetazone/isoniazid	Thioacetazon/isoniazide	TRUE	FALSE	FALSE
-nl	Ticarcillin	Ticarcilline	TRUE	FALSE	FALSE
-nl	Ticarcillin/beta-lactamase inhibitor	Ticarcilline/enzymremmer	TRUE	FALSE	FALSE
-nl	Ticarcillin/clavulanic acid	Ticarcilline/clavulaanzuur	TRUE	FALSE	FALSE
-nl	Tinidazole	Tinidazol	TRUE	FALSE	FALSE
-nl	Tobramycin	Tobramycine	TRUE	FALSE	FALSE
-nl	Trimethoprim/sulfamethoxazole	Cotrimoxazol	TRUE	FALSE	FALSE
-nl	Troleandomycin	Troleandomycine	TRUE	FALSE	FALSE
-nl	Trovafloxacin	Trovafloxacine	TRUE	FALSE	FALSE
-nl	Vancomycin	Vancomycine	TRUE	FALSE	FALSE
-nl	Voriconazole	Voriconazol	TRUE	FALSE	FALSE
-nl	Aminoglycosides	Aminoglycosiden	TRUE	FALSE	FALSE
-nl	Amphenicols	Amfenicolen	TRUE	FALSE	FALSE
-nl	Antifungals/antimycotics	Antifungica/antimycotica	TRUE	FALSE	FALSE
-nl	Antimycobacterials	Antimycobacteriele middelen	TRUE	FALSE	FALSE
-nl	Beta-lactams/penicillins	Beta-lactams/penicillines	TRUE	FALSE	FALSE
-nl	Cephalosporins (1st gen.)	Cefalosporines (1e gen.)	TRUE	FALSE	FALSE
-nl	Cephalosporins (2nd gen.)	Cefalosporines (2e gen.)	TRUE	FALSE	FALSE
-nl	Cephalosporins (3rd gen.)	Cefalosporines (3e gen.)	TRUE	FALSE	FALSE
-nl	Cephalosporins (4th gen.)	Cefalosporines (4e gen.)	TRUE	FALSE	FALSE
-nl	Cephalosporins (5th gen.)	Cefalosporines (5e gen.)	TRUE	FALSE	FALSE
-nl	Cephalosporins (unclassified gen.)	Cefalosporines (ongeclassificeerd)	TRUE	FALSE	FALSE
-nl	Cephalosporins	Cefalosporines	TRUE	FALSE	FALSE
-nl	Glycopeptides	Glycopeptiden	TRUE	FALSE	FALSE
-nl	Macrolides/lincosamides	Macroliden/lincosamiden	TRUE	FALSE	FALSE
-nl	Other antibacterials	Overige antibiotica	TRUE	FALSE	FALSE
-nl	Polymyxins	Polymyxines	TRUE	FALSE	FALSE
-nl	Quinolones	Quinolonen	TRUE	FALSE	FALSE
+pattern	regular_expr	case_sensitive	affect_mo_name	de	nl	es	it	fr	pt
+Coagulase-negative Staphylococcus	TRUE	TRUE	TRUE	Koagulase-negative Staphylococcus	Coagulase-negatieve Staphylococcus	Staphylococcus coagulasa negativo	Staphylococcus negativo coagulasi	Staphylococcus à coagulase négative	Staphylococcus coagulase negativo
+Coagulase-positive Staphylococcus	TRUE	TRUE	TRUE	Koagulase-positive Staphylococcus	Coagulase-positieve Staphylococcus	Staphylococcus coagulasa positivo	Staphylococcus positivo coagulasi	Staphylococcus à coagulase positif	Staphylococcus coagulase positivo
+Beta-haemolytic Streptococcus	TRUE	TRUE	TRUE	Beta-hämolytischer Streptococcus	Beta-hemolytische Streptococcus	Streptococcus Beta-hemolítico	Streptococcus Beta-emolitico	Streptococcus Bêta-hémolytique	Streptococcus Beta-hemolítico
+unknown Gram-negatives	TRUE	TRUE	TRUE	unbekannte Gramnegativen	onbekende Gram-negatieven	Gram negativos desconocidos	Gram negativi sconosciuti	Gram négatifs inconnus	Gram negativos desconhecidos
+unknown Gram-positives	TRUE	TRUE	TRUE	unbekannte Grampositiven	onbekende Gram-positieven	Gram positivos desconocidos	Gram positivi sconosciuti	Gram positifs inconnus	Gram positivos desconhecidos
+unknown fungus	TRUE	TRUE	TRUE	unbekannter Pilze	onbekende schimmel	hongo desconocido	fungo sconosciuto	champignon inconnu	fungo desconhecido
+unknown yeast	TRUE	TRUE	TRUE	unbekannte Hefe	onbekende gist	levadura desconocida	lievito sconosciuto	levure inconnue	levedura desconhecida
+unknown name	TRUE	TRUE	TRUE	unbekannte Name	onbekende naam	nombre desconocido	nome sconosciuto	nom inconnu	nome desconhecido
+unknown kingdom	TRUE	TRUE	TRUE	unbekanntes Reich	onbekend koninkrijk	reino desconocido	regno sconosciuto	règme inconnu	reino desconhecido
+unknown phylum	TRUE	TRUE	TRUE	unbekannter Stamm	onbekend fylum	filo desconocido	phylum sconosciuto	embranchement inconnu	filo desconhecido
+unknown class	TRUE	TRUE	TRUE	unbekannte Klasse	onbekende klasse	clase desconocida	classe sconosciuta	classe inconnue	classe desconhecida
+unknown order	TRUE	TRUE	TRUE	unbekannte Ordnung	onbekende orde	orden desconocido	ordine sconosciuto	ordre inconnu	ordem desconhecido
+unknown family	TRUE	TRUE	TRUE	unbekannte Familie	onbekende familie	familia desconocida	famiglia sconosciuta	famille inconnue	família desconhecida
+unknown genus	TRUE	TRUE	TRUE	unbekannte Gattung	onbekend geslacht	género desconocido	genere sconosciuto	genre inconnu	gênero desconhecido
+unknown species	TRUE	TRUE	TRUE	unbekannte Art	onbekende soort	especie desconocida	specie sconosciute	espèce inconnue	espécies desconhecida
+unknown subspecies	TRUE	TRUE	TRUE	unbekannte Unterart	onbekende ondersoort	subespecie desconocida	sottospecie sconosciute	sous-espèce inconnue	subespécies desconhecida
+unknown rank	TRUE	TRUE	TRUE	unbekannter Rang	onbekende rang	rango desconocido	grado sconosciuto	rang inconnu	classificação desconhecido
+CoNS	FALSE	TRUE	TRUE	KNS	CNS	SCN			
+CoPS	FALSE	TRUE	TRUE	KPS	CPS	SCP			
+Gram-negative	TRUE	TRUE	FALSE	Gramnegativ	Gram-negatief	Gram negativo	Gram negativo	Gram négatif	Gram negativo
+Gram-positive	TRUE	TRUE	FALSE	Grampositiv	Gram-positief	Gram positivo	Gram positivo	Gram positif	Gram positivo
+^Bacteria$	TRUE	TRUE	FALSE	Bakterien	Bacteriën	Bacterias	Batteri	Bactéries	Bactérias
+^Fungi$	TRUE	TRUE	FALSE	Pilze	Schimmels	Hongos	Funghi	Champignons	Fungos
+^Yeasts$	TRUE	TRUE	FALSE	Hefen	Gisten	Levaduras	Lieviti	Levures	Leveduras
+^Protozoa$	TRUE	TRUE	FALSE	Protozoen	Protozoën	Protozoarios	Protozoi	Protozoaires	Protozoários
+biogroup	TRUE	TRUE	FALSE	Biogruppe	biogroep	biogrupo	biogruppo	biogroupe	biogrupo
+biotype	TRUE	TRUE	FALSE	Biotyp		biotipo	biotipo		biótipo
+vegetative	TRUE	TRUE	FALSE	vegetativ	vegetatief	vegetativo	vegetativo	végétatif	vegetativo
+([([ ]*?)group	TRUE	TRUE	FALSE	\\1Gruppe	\\1groep	\\1grupo	\\1gruppo	\\1groupe	\\1grupo
+([([ ]*?)Group	TRUE	TRUE	FALSE	\\1Gruppe	\\1Groep	\\1Grupo	\\1Gruppo	\\1Groupe	\\1Grupo
+no .*growth	TRUE	FALSE	FALSE	keine? .*wachstum	geen .*groei	no .*crecimientonon	sem .*crescimento	pas .*croissance	sem .*crescimento
+no|not	TRUE	FALSE	FALSE	keine?	geen|niet	no|sin	sem	non	sem
+Susceptible	TRUE	FALSE	FALSE	Empfindlich	Gevoelig	Susceptible			
+Intermediate	TRUE	FALSE	FALSE	Mittlere	Intermediair	Intermedio			
+Incr. exposure	TRUE	FALSE	FALSE	Empfindlich, erh Belastung	Gevoelig, 'incr. exposure'	Susceptible, 'incr. exposure'			
+Resistant	TRUE	FALSE	FALSE	Resistent	Resistent	Resistente			
+antibiotic	TRUE	TRUE	FALSE	Antibiotikum	antibioticum	antibiótico			
+Antibiotic	TRUE	TRUE	FALSE	Antibiotikum	Antibioticum	Antibiótico			
+Drug	TRUE	TRUE	FALSE	Medikament	Middel	Fármaco			
+drug	TRUE	TRUE	FALSE	Medikament	middel	fármaco			
+4-aminosalicylic acid	FALSE	TRUE	FALSE	4-Aminosalicylsäure	4-aminosalicylzuur	Ácido 4-aminosalicílico			
+Adefovir dipivoxil	FALSE	TRUE	FALSE	Adefovir Dipivoxil	Adefovir	Adefovir dipivoxil			
+Aldesulfone sodium	FALSE	TRUE	FALSE	Aldesulfon-Natrium	Aldesulfon	Aldesulfona sódica			
+Amikacin	FALSE	TRUE	FALSE	Amikacin	Amikacine	Amikacina			
+Amoxicillin	FALSE	TRUE	FALSE	Amoxicillin	Amoxicilline	Amoxicilina			
+Amoxicillin/beta-lactamase inhibitor	FALSE	TRUE	FALSE	Amoxicillin/Beta-Lactamase-Hemmer	Amoxicilline/enzymremmer	amoxicilina/inhib. de la beta-lactamasa			
+Amphotericin B	FALSE	TRUE	FALSE	Amphotericin B	Amfotericine B	Anfotericina B			
+Ampicillin	FALSE	TRUE	FALSE	Ampicillin	Ampicilline	Ampicilina			
+Ampicillin/beta-lactamase inhibitor	FALSE	TRUE	FALSE	Ampicillin/Beta-Laktamase-Hemmer	Ampicilline/enzymremmer	Ampicilina/inhib. de la betalactamasa			
+Anidulafungin	FALSE	TRUE	FALSE	Anidulafungin	Anidulafungine	Anidulafungina			
+Azidocillin	FALSE	TRUE	FALSE	Azidocillin	Azidocilline	Azidocilina			
+Azithromycin	FALSE	TRUE	FALSE	Azithromycin	Azitromycine	Azitromicina			
+Azlocillin	FALSE	TRUE	FALSE	Azlocillin	Azlocilline	Azlocilina			
+Bacampicillin	FALSE	TRUE	FALSE	Bacampicillin	Bacampicilline	Bacampicilina			
+Bacitracin	FALSE	TRUE	FALSE	Bacitracin	Bacitracine	Bacitracina			
+Benzathine benzylpenicillin	FALSE	TRUE	FALSE	Benzathin-Benzylpenicillin	Benzylpenicillinebenzathine	Bencilpenicilina benzatínica			
+Benzathine phenoxymethylpenicillin	FALSE	TRUE	FALSE	Benzathin-Phenoxymethylpenicillin	Fenoxymethylpenicillinebenzathine	Fenoximetilpenicilina benzatínica			
+Benzylpenicillin	FALSE	TRUE	FALSE	Benzylpenicillin	Benzylpenicilline	Bencilpenicilina			
+Calcium aminosalicylate	FALSE	TRUE	FALSE	Kalzium-Aminosalicylat	Aminosalicylzuur	Aminosalicilato de calcio			
+Capreomycin	FALSE	TRUE	FALSE	Capreomycin	Capreomycine	Capreomicina			
+Carbenicillin	FALSE	TRUE	FALSE	Carbenicillin	Carbenicilline	Carbenicilina			
+Carindacillin	FALSE	TRUE	FALSE	Carindacillin	Carindacilline	Carindacilina			
+Caspofungin	FALSE	TRUE	FALSE	Caspofungin	Caspofungine	Caspofungina			
+Ce(f|ph)acetrile	TRUE	TRUE	FALSE	Cefacetril	Cefacetril	Cefacetrilo			
+Ce(f|ph)alotin	TRUE	TRUE	FALSE	Cefalotin	Cefalotine	Cefalotina			
+Ce(f|ph)amandole	TRUE	TRUE	FALSE	Cefamandol	Cefamandol	Cefamandole			
+Ce(f|ph)apirin	TRUE	TRUE	FALSE	Cefapirin	Cefapirine	Cefapirina			
+Ce(f|ph)azedone	TRUE	TRUE	FALSE	Cefazedon	Cefazedon	Cefazedona			
+Ce(f|ph)azolin	TRUE	TRUE	FALSE	Cefazolin	Cefazoline	Cefazolina			
+Ce(f|ph)alothin	TRUE	TRUE	FALSE	Cefalothin	Cefalotine	Cefalotina			
+Ce(f|ph)alexin	TRUE	TRUE	FALSE	Cefalexin	Cefalexine	Cefalexina			
+Ce(f|ph)epime	TRUE	TRUE	FALSE	Cefepim	Cefepim	Cefepime			
+Ce(f|ph)ixime	TRUE	TRUE	FALSE	Cefixim	Cefixim	Cefixima			
+Ce(f|ph)menoxime	TRUE	TRUE	FALSE	Cefmenoxim	Cefmenoxim	Cefmenoxima			
+Ce(f|ph)metazole	TRUE	TRUE	FALSE	Cefmetazol	Cefmetazol	Cefmetazol			
+Ce(f|ph)odizime	TRUE	TRUE	FALSE	Cefodizim	Cefodizim	Cefodizima			
+Ce(f|ph)onicid	TRUE	TRUE	FALSE	Cefonicid	Cefonicide	Cefonicid			
+Ce(f|ph)operazone	TRUE	TRUE	FALSE	Cefoperazon	Cefoperazon	Cefoperazona			
+Ce(f|ph)operazone/beta-lactamase inhibitor	TRUE	TRUE	FALSE	Cefoperazon/Beta-Lactamase-Hemmer	Cefoperazon/enzymremmer	Cefoperazona/inhib. de la betalactamasa			
+Ce(f|ph)otaxime	TRUE	TRUE	FALSE	Cefotaxim	Cefotaxim	Cefotaxima			
+Ce(f|ph)oxitin	TRUE	TRUE	FALSE	Cefoxitin	Cefoxitine	Cefoxitina			
+Ce(f|ph)pirome	TRUE	TRUE	FALSE	Cefpirom	Cefpirom	Cefpirome			
+Ce(f|ph)podoxime	TRUE	TRUE	FALSE	Cefpodoxim	Cefpodoxim	Cefpodoxima			
+Ce(f|ph)radine	TRUE	TRUE	FALSE	Cefradin	Cefradine	Cefradina			
+Ce(f|ph)sulodin	TRUE	TRUE	FALSE	Cefsulodin	Cefsulodine	Cefsulodina			
+Ce(f|ph)tazidime	TRUE	TRUE	FALSE	Ceftazidim	Ceftazidim	Ceftazidima			
+Ce(f|ph)tezole	TRUE	TRUE	FALSE	Ceftezol	Ceftezol	Ceftezol			
+Ce(f|ph)tizoxime	TRUE	TRUE	FALSE	Ceftizoxim	Ceftizoxim	Ceftizoxima			
+Ce(f|ph)triaxone	TRUE	TRUE	FALSE	Ceftriaxon	Ceftriaxon	Ceftriaxona			
+Ce(f|ph)uroxime	TRUE	TRUE	FALSE	Cefuroxim	Cefuroxim	Cefuroxima			
+Ce(f|ph)uroxime/metronidazole	TRUE	TRUE	FALSE	Cefuroxim/Metronidazol	Cefuroxim/andere antibacteriele middelen	Cefuroxima/metronidazol			
+Chloramphenicol	FALSE	TRUE	FALSE	Chloramphenicol	Chlooramfenicol	Cloranfenicol			
+Chlortetracycline	FALSE	TRUE	FALSE	Chlortetracyclin	Chloortetracycline	Clortetraciclina			
+Cinoxacin	FALSE	TRUE	FALSE	Cinoxacin	Cinoxacine	Cinoxacina			
+Ciprofloxacin	FALSE	TRUE	FALSE	Ciprofloxacin	Ciprofloxacine	Ciprofloxacina			
+Clarithromycin	FALSE	TRUE	FALSE	Clarithromycin	Claritromycine	Claritromicina			
+Clavulanic acid	FALSE	TRUE	FALSE	Clavulansäure	Clavulaanzuur	Ácido clavulánico			
+clavulanic acid	FALSE	TRUE	FALSE	Clavulansäure	clavulaanzuur	ácido clavulánico			
+Clindamycin	FALSE	TRUE	FALSE	Clindamycin	Clindamycine	Clindamicina			
+Clometocillin	FALSE	TRUE	FALSE	Clometocillin	Clometocilline	Clometocilina			
+Clotrimazole	FALSE	TRUE	FALSE	Clotrimazol	Clotrimazol	Clotrimazol			
+Cloxacillin	FALSE	TRUE	FALSE	Cloxacillin	Cloxacilline	Cloxacilina			
+Colistin	FALSE	TRUE	FALSE	Colistin	Colistine	Colistina			
+Dapsone	FALSE	TRUE	FALSE	Dapson	Dapson	Dapsona			
+Daptomycin	FALSE	TRUE	FALSE	Daptomycin	Daptomycine	Daptomicina			
+Dibekacin	FALSE	TRUE	FALSE	Dibekacin	Dibekacine	Dibekacina			
+Dicloxacillin	FALSE	TRUE	FALSE	Dicloxacillin	Dicloxacilline	Dicloxacilina			
+Dirithromycin	FALSE	TRUE	FALSE	Dirithromycin	Diritromycine	Diritromicina			
+Econazole	FALSE	TRUE	FALSE	Econazol	Econazol	Econazol			
+Enoxacin	FALSE	TRUE	FALSE	Enoxacin	Enoxacine	Enoxacina			
+Epicillin	FALSE	TRUE	FALSE	Epicillin	Epicilline	Epicilina			
+Erythromycin	FALSE	TRUE	FALSE	Erythromycin	Erytromycine	Eritromicina			
+Ethambutol/isoniazid	FALSE	TRUE	FALSE	Ethambutol/Isoniazid	Ethambutol/isoniazide	Etambutol/isoniazida			
+Fleroxacin	FALSE	TRUE	FALSE	Fleroxacin	Fleroxacine	Fleroxacina			
+Flucloxacillin	FALSE	TRUE	FALSE	Flucloxacillin	Flucloxacilline	Flucloxacilina			
+Fluconazole	FALSE	TRUE	FALSE	Fluconazol	Fluconazol	Fluconazol			
+Flucytosine	FALSE	TRUE	FALSE	Flucytosin	Fluorocytosine	Flucitosina			
+Flurithromycin	FALSE	TRUE	FALSE	Flurithromycin	Fluritromycine	Fluritromicina			
+Fosfomycin	FALSE	TRUE	FALSE	Fosfomycin	Fosfomycine	Fosfomicina			
+Fusidic acid	FALSE	TRUE	FALSE	Fusidinsäure	Fusidinezuur	Ácido fusídico			
+Gatifloxacin	FALSE	TRUE	FALSE	Gatifloxacin	Gatifloxacine	Gatifloxacina			
+Gemifloxacin	FALSE	TRUE	FALSE	Gemifloxacin	Gemifloxacine	Gemifloxacina			
+Gentamicin	FALSE	TRUE	FALSE	Gentamicin	Gentamicine	Gentamicina			
+Grepafloxacin	FALSE	TRUE	FALSE	Grepafloxacin	Grepafloxacine	Grepafloxacina			
+Hachimycin	FALSE	TRUE	FALSE	Hachimycin	Hachimycine	Hachimycin			
+Hetacillin	FALSE	TRUE	FALSE	Hetacillin	Hetacilline	Hetacilina			
+Imipenem/cilastatin	FALSE	TRUE	FALSE	Imipenem/Cilastatin	Imipenem/enzymremmer	Imipenem/cilastatina			
+Inosine pranobex	FALSE	TRUE	FALSE	Inosin-Pranobex	Inosiplex	Inosina pranobex			
+Isepamicin	FALSE	TRUE	FALSE	Isepamicin	Isepamicine	Isepamicina			
+Isoconazole	FALSE	TRUE	FALSE	Isoconazol	Isoconazol	Isoconazol			
+Isoniazid	FALSE	TRUE	FALSE	Isoniazid	Isoniazide	Isoniazida			
+Itraconazole	FALSE	TRUE	FALSE	Itraconazol	Itraconazol	Itraconazol			
+Josamycin	FALSE	TRUE	FALSE	Josamycin	Josamycine	Josamicina			
+Kanamycin	FALSE	TRUE	FALSE	Kanamycin	Kanamycine	Kanamicina			
+Ketoconazole	FALSE	TRUE	FALSE	Ketoconazol	Ketoconazol	Ketoconazol			
+Levofloxacin	FALSE	TRUE	FALSE	Levofloxacin	Levofloxacine	Levofloxacina			
+Lincomycin	FALSE	TRUE	FALSE	Lincomycin	Lincomycine	Lincomicina			
+Lomefloxacin	FALSE	TRUE	FALSE	Lomefloxacin	Lomefloxacine	Lomefloxacina			
+Lysozyme	FALSE	TRUE	FALSE	Lysozym	Lysozym	Lisozima			
+Mandelic acid	FALSE	TRUE	FALSE	Mandelsäure	Amandelzuur	Ácido mandélico			
+Metampicillin	FALSE	TRUE	FALSE	Metampicillin	Metampicilline	Metampicilina			
+Meticillin	FALSE	TRUE	FALSE	Meticillin	Meticilline	Meticilina			
+Metisazone	FALSE	TRUE	FALSE	Metisazon	Metisazon	Metisazona			
+Metronidazole	FALSE	TRUE	FALSE	Metronidazol	Metronidazol	Metronidazol			
+Mezlocillin	FALSE	TRUE	FALSE	Mezlocillin	Mezlocilline	Mezlocilina			
+Micafungin	FALSE	TRUE	FALSE	Micafungin	Micafungine	Micafungina			
+Miconazole	FALSE	TRUE	FALSE	Miconazol	Miconazol	Miconazol			
+Midecamycin	FALSE	TRUE	FALSE	Midecamycin	Midecamycine	Midecamicina			
+Miocamycin	FALSE	TRUE	FALSE	Miocamycin	Miocamycine	Miocamycin			
+Moxifloxacin	FALSE	TRUE	FALSE	Moxifloxacin	Moxifloxacine	Moxifloxacina			
+Mupirocin	FALSE	TRUE	FALSE	Mupirocin	Mupirocine	Mupirocina			
+Nalidixic acid	FALSE	TRUE	FALSE	Nalidixinsäure	Nalidixinezuur	Ácido nalidíxico			
+Neomycin	FALSE	TRUE	FALSE	Neomycin	Neomycine	Neomicina			
+Netilmicin	FALSE	TRUE	FALSE	Netilmicin	Netilmicine	Netilmicina			
+Nitrofurantoin	FALSE	TRUE	FALSE	Nitrofurantoin	Nitrofurantoine	Nitrofurantoína			
+Norfloxacin	FALSE	TRUE	FALSE	Norfloxacin	Norfloxacine	Norfloxacina			
+Novobiocin	FALSE	TRUE	FALSE	Novobiocin	Novobiocine	Novobiocina			
+Nystatin	FALSE	TRUE	FALSE	Nystatin	Nystatine	Nistatina			
+Ofloxacin	FALSE	TRUE	FALSE	Ofloxacin	Ofloxacine	Ofloxacina			
+Oleandomycin	FALSE	TRUE	FALSE	Oleandomycin	Oleandomycine	Oleandomicina			
+Ornidazole	FALSE	TRUE	FALSE	Ornidazol	Ornidazol	Ornidazol			
+Oxacillin	FALSE	TRUE	FALSE	Oxacillin	Oxacilline	Oxacilina			
+Oxolinic acid	FALSE	TRUE	FALSE	Oxolinsäure	Oxolinezuur	Ácido oxolínico			
+Oxytetracycline	FALSE	TRUE	FALSE	Oxytetracyclin	Oxytetracycline	Oxitetraciclina			
+Pazufloxacin	FALSE	TRUE	FALSE	Pazufloxacin	Pazufloxacine	Pazufloxacina			
+Pefloxacin	FALSE	TRUE	FALSE	Pefloxacin	Pefloxacine	Pefloxacina			
+Penamecillin	FALSE	TRUE	FALSE	Penamecillin	Penamecilline	Penamecilina			
+Penicillin	FALSE	TRUE	FALSE	Penicillin	Penicilline	Penicilina			
+Pheneticillin	FALSE	TRUE	FALSE	Pheneticillin	Feneticilline	Feneticilina			
+Phenoxymethylpenicillin	FALSE	TRUE	FALSE	Phenoxymethylpenicillin	Fenoxymethylpenicilline	Fenoximetilpenicilina			
+Pipemidic acid	FALSE	TRUE	FALSE	Pipemidinsäure	Pipemidinezuur	Ácido pipemídico			
+Piperacillin	FALSE	TRUE	FALSE	Piperacillin	Piperacilline	Piperacilina			
+Piperacillin/beta-lactamase inhibitor	FALSE	TRUE	FALSE	Piperacillin/Beta-Lactamase-Hemmer	Piperacilline/enzymremmer	Piperacilina/inhib. de la betalactamasa			
+Piromidic acid	FALSE	TRUE	FALSE	Piromidinsäure	Piromidinezuur	Ácido piromídico			
+Pivampicillin	FALSE	TRUE	FALSE	Pivampicillin	Pivampicilline	Pivampicilina			
+Polymyxin B	FALSE	TRUE	FALSE	Polymyxin B	Polymyxine B	Polimixina B			
+Posaconazole	FALSE	TRUE	FALSE	Posaconazol	Posaconazol	Posaconazol			
+Pristinamycin	FALSE	TRUE	FALSE	Pristinamycin	Pristinamycine	Pristinamicina			
+Procaine benzylpenicillin	FALSE	TRUE	FALSE	Procain-Benzylpenicillin	Benzylpenicillineprocaine	Bencilpenicilina procaína			
+Propicillin	FALSE	TRUE	FALSE	Propicillin	Propicilline	Propicilina			
+Prulifloxacin	FALSE	TRUE	FALSE	Prulifloxacin	Prulifloxacine	Prulifloxacina			
+Quinupristin/dalfopristin	FALSE	TRUE	FALSE	Quinupristin/Dalfopristin	Quinupristine/dalfopristine	Quinupristina/dalfopristina			
+Ribostamycin	FALSE	TRUE	FALSE	Ribostamycin	Ribostamycine	Ribostamicina			
+Rifabutin	FALSE	TRUE	FALSE	Rifabutin	Rifabutine	Rifabutina			
+Rifampicin	FALSE	TRUE	FALSE	Rifampicin	Rifampicine	Rifampicina			
+Rifampicin/pyrazinamide/ethambutol/isoniazid	FALSE	TRUE	FALSE	Rifampicin/Pyrazinamid/Ethambutol/Isoniazid	Rifampicine/pyrazinamide/ethambutol/isoniazide	Rifampicina/pirazinamida/etambutol/isoniazida			
+Rifampicin/pyrazinamide/isoniazid	FALSE	TRUE	FALSE	Rifampicin/Pyrazinamid/Isoniazid	Rifampicine/pyrazinamide/isoniazide	Rifampicina/pirazinamida/isoniazida			
+Rifampicin/isoniazid	FALSE	TRUE	FALSE	Rifampicin/Isoniazid	Rifampicine/isoniazide	Rifampicina/isoniazida			
+Rifamycin	FALSE	TRUE	FALSE	Rifamycin	Rifamycine	Rifamicina			
+Rifaximin	FALSE	TRUE	FALSE	Rifaximin	Rifaximine	Rifaximina			
+Rokitamycin	FALSE	TRUE	FALSE	Rokitamycin	Rokitamycine	Rokitamicina			
+Rosoxacin	FALSE	TRUE	FALSE	Rosoxacin	Rosoxacine	Rosoxacina			
+Roxithromycin	FALSE	TRUE	FALSE	Roxithromycin	Roxitromycine	Roxitromicina			
+Rufloxacin	FALSE	TRUE	FALSE	Rufloxacin	Rufloxacine	Rufloxacina			
+Sisomicin	FALSE	TRUE	FALSE	Sisomicin	Sisomicine	Sisomicina			
+Sodium aminosalicylate	FALSE	TRUE	FALSE	Natrium-Aminosalicylat	Aminosalicylzuur	Aminosalicilato de sodio			
+Sparfloxacin	FALSE	TRUE	FALSE	Sparfloxacin	Sparfloxacine	Esparfloxacina			
+Spectinomycin	FALSE	TRUE	FALSE	Spectinomycin	Spectinomycine	Espectinomicina			
+Spiramycin	FALSE	TRUE	FALSE	Spiramycin	Spiramycine	Espiramicina			
+Spiramycin/metronidazole	FALSE	TRUE	FALSE	Spiramycin/Metronidazol	Spiramycine/metronidazol	Espiramicina/metronidazol			
+Staphylococcus immunoglobulin	FALSE	TRUE	FALSE	Staphylococcus-Immunoglobulin	Stafylokokkenimmunoglobuline	Inmunoglobulina estafilocócica			
+Streptoduocin	FALSE	TRUE	FALSE	Streptoduocin	Streptoduocine	Estreptoduocina			
+Streptomycin	FALSE	TRUE	FALSE	Streptomycin	Streptomycine	Estreptomicina			
+Streptomycin/isoniazid	FALSE	TRUE	FALSE	Streptomycin/Isoniazid	Streptomycine/isoniazide	Estreptomicina/isoniazida			
+Sulbenicillin	FALSE	TRUE	FALSE	Sulbenicillin	Sulbenicilline	Sulbenicilina			
+Sulfadiazine/tetroxoprim	FALSE	TRUE	FALSE	Sulfadiazin/Tetroxoprim	Sulfadiazine/tetroxoprim	Sulfadiazina/tetroxoprima			
+Sulfadiazine/trimethoprim	FALSE	TRUE	FALSE	Sulfadiazin/Trimethoprim	Sulfadiazine/trimethoprim	Sulfadiazina/trimetoprima			
+Sulfadimidine/trimethoprim	FALSE	TRUE	FALSE	Sulfadimidin/Trimethoprim	Sulfadimidine/trimethoprim	Sulfadimidina/trimetoprima			
+Sulfafurazole	FALSE	TRUE	FALSE	Sulfafurazol	Sulfafurazol	Sulfafurazol			
+Sulfaisodimidine	FALSE	TRUE	FALSE	Sulfaisodimidin	Sulfisomidine	Sulfaisodimidina			
+Sulfalene	FALSE	TRUE	FALSE	Sulfalene	Sulfaleen	Sulfaleno			
+Sulfamazone	FALSE	TRUE	FALSE	Sulfamazon	Sulfamazon	Sulfamazona			
+Sulfamerazine/trimethoprim	FALSE	TRUE	FALSE	Sulfamerazin/Trimethoprim	Sulfamerazine/trimethoprim	Sulfamerazina/trimetoprima			
+Sulfamethizole	FALSE	TRUE	FALSE	Sulfamethizol	Sulfamethizol	Sulfametozol			
+Sulfamethoxazole	FALSE	TRUE	FALSE	Sulfamethoxazol	Sulfamethoxazol	Sulfametoxazol			
+Sulfamethoxazole/trimethoprim	FALSE	TRUE	FALSE	Sulfamethoxazol/Trimethoprim	Sulfamethoxazol/trimethoprim	Sulfametoxazol/trimetoprima			
+Sulfametoxydiazine	FALSE	TRUE	FALSE	Sulfametoxydiazin	Sulfamethoxydiazine	Sulfametoxidiazina			
+Sulfametrole/trimethoprim	FALSE	TRUE	FALSE	Sulfametrole/Trimethoprim	Sulfametrol/trimethoprim	Sulfametrole/trimethoprim			
+Sulfamoxole	FALSE	TRUE	FALSE	Sulfamoxol	Sulfamoxol	Sulfamoxole			
+Sulfamoxole/trimethoprim	FALSE	TRUE	FALSE	Sulfamoxol/Trimethoprim	Sulfamoxol/trimethoprim	Sulfamoxol/trimetoprima			
+Sulfaperin	FALSE	TRUE	FALSE	Sulfaperin	Sulfaperine	Sulfaproxeno			
+Sulfaphenazole	FALSE	TRUE	FALSE	Sulfaphenazol	Sulfafenazol	Sulfafenazol			
+Sulfathiazole	FALSE	TRUE	FALSE	Sulfathiazol	Sulfathiazol	Sulfatiazol			
+Sulfathiourea	FALSE	TRUE	FALSE	Sulfathioharnstoff	Sulfathioureum	Sulfathiourea			
+Sultamicillin	FALSE	TRUE	FALSE	Sultamicillin	Sultamicilline	Sultamicilina			
+Talampicillin	FALSE	TRUE	FALSE	Talampicillin	Talampicilline	Talampicilina			
+Teicoplanin	FALSE	TRUE	FALSE	Teicoplanin	Teicoplanine	Teicoplanina			
+Telithromycin	FALSE	TRUE	FALSE	Telithromycin	Telitromycine	Telitromicina			
+Temafloxacin	FALSE	TRUE	FALSE	Temafloxacin	Temafloxacine	Temafloxacina			
+Temocillin	FALSE	TRUE	FALSE	Temocillin	Temocilline	Temocilina			
+Tenofovir disoproxil	FALSE	TRUE	FALSE	Tenofovir Disoproxil	Tenofovir	Tenofovir disoproxil			
+Terizidone	FALSE	TRUE	FALSE	Terizidon	Terizidon	Terizidona			
+Thiamphenicol	FALSE	TRUE	FALSE	Thiamphenicol	Thiamfenicol	Tiamfenicol			
+Thioacetazone/isoniazid	FALSE	TRUE	FALSE	Thioacetazon/Isoniazid	Thioacetazon/isoniazide	Tioacetazona/isoniazida			
+Ticarcillin	FALSE	TRUE	FALSE	Ticarcillin	Ticarcilline	Ticarcilina			
+Ticarcillin/beta-lactamase inhibitor	FALSE	TRUE	FALSE	Ticarcillin/Beta-Lactamase-Hemmer	Ticarcilline/enzymremmer	Ticarcilina/inhib. de la betalactamasa			
+Ticarcillin/clavulanic acid	FALSE	TRUE	FALSE	Ticarcillin/Clavulansäure	Ticarcilline/clavulaanzuur	Ticarcilina/ácido clavulánico			
+Tinidazole	FALSE	TRUE	FALSE	Tinidazol	Tinidazol	Tinidazol			
+Tobramycin	FALSE	TRUE	FALSE	Tobramycin	Tobramycine	Tobramicina			
+Trimethoprim/sulfamethoxazole	FALSE	TRUE	FALSE	Trimethoprim/Sulfamethoxazol	Cotrimoxazol	Trimetoprima/sulfametoxazol			
+Troleandomycin	FALSE	TRUE	FALSE	Troleandomycin	Troleandomycine	Troleandomicina			
+Trovafloxacin	FALSE	TRUE	FALSE	Trovafloxacin	Trovafloxacine	Trovafloxacina			
+Vancomycin	FALSE	TRUE	FALSE	Vancomycin	Vancomycine	Vancomicina			
+Voriconazole	FALSE	TRUE	FALSE	Voriconazol	Voriconazol	Voriconazol			
+Aminoglycosides	FALSE	TRUE	FALSE	Aminoglykoside	Aminoglycosiden	Aminoglucósidos			
+Amphenicols	FALSE	TRUE	FALSE	Amphenicole	Amfenicolen	Anfenicoles			
+Antifungals/antimycotics	FALSE	TRUE	FALSE	Antimykotika/Antimykotika	Antifungica/antimycotica	Antifúngicos/antimicóticos			
+Antimycobacterials	FALSE	TRUE	FALSE	Antimykobakterielle Mittel	Antimycobacteriele middelen	Antimicrobianos			
+Beta-lactams/penicillins	FALSE	TRUE	FALSE	Beta-Lactame/Penicilline	Beta-lactams/penicillines	Beta-lactámicos/penicilinas			
+Cephalosporins (1st gen.)	FALSE	TRUE	FALSE	Cephalosporine (1. Gen.)	Cefalosporines (1e gen.)	Cefalosporinas (1er gen.)			
+Cephalosporins (2nd gen.)	FALSE	TRUE	FALSE	Cephalosporine (2. Gen.)	Cefalosporines (2e gen.)	Cefalosporinas (2do gen.)			
+Cephalosporins (3rd gen.)	FALSE	TRUE	FALSE	Cephalosporine (3. Gen.)	Cefalosporines (3e gen.)	Cefalosporinas (3er gen.)			
+Cephalosporins (4th gen.)	FALSE	TRUE	FALSE	Cephalosporine (4. Gen.)	Cefalosporines (4e gen.)	Cefalosporinas (4º gen.)			
+Cephalosporins (5th gen.)	FALSE	TRUE	FALSE	Cephalosporine (5. Gen.)	Cefalosporines (5e gen.)	Cefalosporinas (5º gen.)			
+Cephalosporins (unclassified gen.)	FALSE	TRUE	FALSE	Cephalosporine (unklassifiziert)	Cefalosporines (ongeclassificeerd)	Cefalosporinas (no clasificado)			
+Cephalosporins	FALSE	TRUE	FALSE	Cephalosporine	Cefalosporines	Cefalosporinas			
+Glycopeptides	FALSE	TRUE	FALSE	Glykopeptide	Glycopeptiden	Glicopéptidos			
+Macrolides/lincosamides	FALSE	TRUE	FALSE	Makrolide/Linkosamide	Macroliden/lincosamiden	Macrólidos/lincosamidas			
+Other antibacterials	FALSE	TRUE	FALSE	Andere Antibiotika	Overige antibiotica	Otros antibacterianos			
+Polymyxins	FALSE	TRUE	FALSE	Polymyxine	Polymyxines	Polimixinas			
+Quinolones	FALSE	TRUE	FALSE	Quinolone	Quinolonen	Quinolonas			

docs/404.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="https://msberends.github.io/AMR//index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 

docs/LICENSE-text.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 

docs/articles/datasets.html

@@ -39,7 +39,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9018</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 
@@ -192,6 +192,7 @@
     <div class="page-header toc-ignore">
       <h1 data-toc-skip>Data sets for download / own use</h1>
             
+            <h4 class="date">05 March 2021</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/master/vignettes/datasets.Rmd"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="hidden name"><code>datasets.Rmd</code></div>
@@ -208,22 +209,22 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <div id="microorganisms-currently-accepted-names" class="section level2">
 <h2 class="hasAnchor">
 <a href="#microorganisms-currently-accepted-names" class="anchor"></a>Microorganisms (currently accepted names)</h2>
-<p>A data set with 67,151 rows and 16 columns, containing the following column names:<br><em>class</em>, <em>family</em>, <em>fullname</em>, <em>genus</em>, <em>kingdom</em>, <em>mo</em>, <em>order</em>, <em>phylum</em>, <em>prevalence</em>, <em>rank</em>, <em>ref</em>, <em>snomed</em>, <em>source</em>, <em>species</em>, <em>species_id</em> and <em>subspecies</em>.</p>
+<p>A data set with 70,026 rows and 16 columns, containing the following column names:<br><em>class</em>, <em>family</em>, <em>fullname</em>, <em>genus</em>, <em>kingdom</em>, <em>mo</em>, <em>order</em>, <em>phylum</em>, <em>prevalence</em>, <em>rank</em>, <em>ref</em>, <em>snomed</em>, <em>source</em>, <em>species</em>, <em>species_id</em> and <em>subspecies</em>.</p>
 <p>This data set is in R available as <code>microorganisms</code>, after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 3 September 2020 20:59:45 CEST. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/microorganisms.html">here</a>.</p>
+<p>It was last updated on 5 March 2021 09:32:45 CET. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/microorganisms.html">here</a>.</p>
 <p><strong>Direct download links:</strong></p>
 <ul>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.rds">R file</a> (2.7 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.rds">R file</a> (2.2 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.xlsx">Excel file</a> (6.1 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.xlsx">Excel file</a> (6.3 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.txt">plain text file</a> (13.3 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.txt">plain text file</a> (13.9 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.sas">SAS file</a> (26.2 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.sas">SAS file</a> (27.4 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.sav">SPSS file</a> (28.2 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.sav">SPSS file</a> (29.9 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.dta">Stata file</a> (25.2 MB)</li>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.dta">Stata file</a> (26.9 MB)</li>
 </ul>
 <div id="source" class="section level3">
 <h3 class="hasAnchor">
@@ -233,7 +234,7 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <li>
 <a href="http://www.catalogueoflife.org">Catalogue of Life</a> (included version: 2019)</li>
 <li>
-<a href="https://lpsn.dsmz.de">List of Prokaryotic names with Standing in Nomenclature</a> (LPSN, included version: May 2020)</li>
+<a href="https://lpsn.dsmz.de">List of Prokaryotic names with Standing in Nomenclature</a> (LPSN, last updated: March 2021)</li>
 </ul>
 </div>
 <div id="example-content" class="section level3">
@@ -256,15 +257,15 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 </tr>
 <tr class="odd">
 <td align="center">Archaea</td>
-<td align="center">697</td>
+<td align="center">694</td>
 </tr>
 <tr class="even">
 <td align="center">Bacteria</td>
-<td align="center">19,244</td>
+<td align="center">22,118</td>
 </tr>
 <tr class="odd">
 <td align="center">Chromista</td>
-<td align="center">32,164</td>
+<td align="center">32,167</td>
 </tr>
 <tr class="even">
 <td align="center">Fungi</td>
@@ -415,7 +416,7 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <td align="center">species</td>
 <td align="center">Liu et al., 2015</td>
 <td align="center">792928</td>
-<td align="center">DSMZ</td>
+<td align="center">LPSN</td>
 <td align="center">1</td>
 <td align="center"></td>
 </tr>
@@ -426,23 +427,23 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <div id="microorganisms-previously-accepted-names" class="section level2">
 <h2 class="hasAnchor">
 <a href="#microorganisms-previously-accepted-names" class="anchor"></a>Microorganisms (previously accepted names)</h2>
-<p>A data set with 12,708 rows and 4 columns, containing the following column names:<br><em>fullname</em>, <em>fullname_new</em>, <em>prevalence</em> and <em>ref</em>.</p>
+<p>A data set with 14,100 rows and 4 columns, containing the following column names:<br><em>fullname</em>, <em>fullname_new</em>, <em>prevalence</em> and <em>ref</em>.</p>
 <p><strong>Note:</strong> remember that the ‘ref’ columns contains the scientific reference to the old taxonomic entries, i.e. of column <em>‘fullname’</em>. For the scientific reference of the new names, i.e. of column <em>‘fullname_new’</em>, see the <code>microorganisms</code> data set.</p>
 <p>This data set is in R available as <code>microorganisms.old</code>, after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 28 May 2020 11:17:56 CEST. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/microorganisms.old.html">here</a>.</p>
+<p>It was last updated on 4 March 2021 22:23:58 CET. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/microorganisms.old.html">here</a>.</p>
 <p><strong>Direct download links:</strong></p>
 <ul>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.rds">R file</a> (0.3 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.rds">R file</a> (0.2 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.xlsx">Excel file</a> (0.4 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.xlsx">Excel file</a> (0.5 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.txt">plain text file</a> (0.8 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.txt">plain text file</a> (0.9 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.sas">SAS file</a> (1.9 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.sas">SAS file</a> (2.1 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.sav">SPSS file</a> (1.9 MB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.sav">SPSS file</a> (2.2 MB)<br>
 </li>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.dta">Stata file</a> (1.8 MB)</li>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/microorganisms.old.dta">Stata file</a> (2 MB)</li>
 </ul>
 <div id="source-1" class="section level3">
 <h3 class="hasAnchor">
@@ -452,7 +453,7 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <li>
 <a href="http://www.catalogueoflife.org">Catalogue of Life</a> (included version: 2019)</li>
 <li>
-<a href="https://lpsn.dsmz.de">List of Prokaryotic names with Standing in Nomenclature</a> (LPSN, included version: May 2020)</li>
+<a href="https://lpsn.dsmz.de">List of Prokaryotic names with Standing in Nomenclature</a> (LPSN, last updated: March 2021)</li>
 </ul>
 </div>
 <div id="example-content-1" class="section level3">
@@ -789,10 +790,10 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <a href="#intrinsic-bacterial-resistance" class="anchor"></a>Intrinsic bacterial resistance</h2>
 <p>A data set with 93,892 rows and 2 columns, containing the following column names:<br><em>antibiotic</em> and <em>microorganism</em>.</p>
 <p>This data set is in R available as <code>intrinsic_resistant</code>, after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 24 September 2020 00:50:35 CEST. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/intrinsic_resistant.html">here</a>.</p>
+<p>It was last updated on 4 March 2021 22:25:17 CET. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/intrinsic_resistant.html">here</a>.</p>
 <p><strong>Direct download links:</strong></p>
 <ul>
-<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/intrinsic_resistant.rds">R file</a> (67 kB)<br>
+<li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/intrinsic_resistant.rds">R file</a> (69 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/intrinsic_resistant.xlsx">Excel file</a> (0.9 MB)<br>
 </li>
@@ -1004,7 +1005,7 @@ If you are reading this page from within R, please <a href="https://msberends.gi
 <a href="#interpretation-from-mic-values-disk-diameters-to-rsi" class="anchor"></a>Interpretation from MIC values / disk diameters to R/SI</h2>
 <p>A data set with 20,486 rows and 10 columns, containing the following column names:<br><em>ab</em>, <em>breakpoint_R</em>, <em>breakpoint_S</em>, <em>disk_dose</em>, <em>guideline</em>, <em>method</em>, <em>mo</em>, <em>ref_tbl</em>, <em>site</em> and <em>uti</em>.</p>
 <p>This data set is in R available as <code>rsi_translation</code>, after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 14 January 2021 16:04:41 CET. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/rsi_translation.html">here</a>.</p>
+<p>It was last updated on 4 March 2021 22:24:46 CET. Find more info about the structure of this data set <a href="https://msberends.github.io/AMR/reference/rsi_translation.html">here</a>.</p>
 <p><strong>Direct download links:</strong></p>
 <ul>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/master/data-raw/../data-raw/rsi_translation.rds">R file</a> (34 kB)<br>

docs/articles/index.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 

docs/authors.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 

docs/index.html

@@ -22,8 +22,8 @@
 <meta property="og:description" content="Functions to simplify the analysis and prediction of Antimicrobial 
     Resistance (AMR) and to work with microbial and antimicrobial properties by
     using evidence-based methods, like those defined by Leclercq et al. (2013) 
-    &lt;doi:10.1111/j.1469-0691.2011.03703.x&gt; and the Clinical and Laboratory 
-    Standards Institute (2014) &lt;isbn: 1-56238-899-1&gt;.">
+    &lt;doi:10.1111/j.1469-0691.2011.03703.x&gt; and containing reference data such as 
+    LPSN &lt;doi:10.1099/ijsem.0.004332&gt;.">
 <meta property="og:image" content="https://msberends.github.io/AMR/logo.png">
 <!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
@@ -43,7 +43,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 
@@ -197,7 +197,7 @@
 <div class="page-header"><h1 class="hasAnchor">
 <a href="#amr-for-r-" class="anchor"></a><code>AMR</code> (for R) <img src="./logo.png" align="right" height="120px">
 </h1></div>
-<p><em>Note: the rules of ‘EUCAST Clinical Breakpoints v11.0 (2021)’ are implemented in <a href="./#latest-development-version">the latest beta version</a>, awaiting the next stable release (expected end of February)</em></p>
+<p><em>Note: the rules of ‘EUCAST Clinical Breakpoints v11.0 (2021)’ are now implemented</em></p>
 <blockquote>
 <p><span class="fa fa-clipboard-list" style="color: #128f76; font-size: 20pt; margin-right: 5px;"></span> <strong>PLEASE TAKE PART IN OUR SURVEY!</strong><br>
 Since you are one of our users, we would like to know how you use the package and what it brought you or your organisation. <strong>If you have a minute, please <a href="./survey.html">anonymously fill in this short questionnaire</a></strong>. Your valuable input will help to improve the package and its functionalities. You can answer the open questions in either English, Spanish, French, Dutch, or German. Thank you very much in advance! <br><a class="btn btn-info btn-amr" href="./survey.html">Take me to the 5-min survey!</a></p>

docs/news/index.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 
@@ -236,13 +236,13 @@
       <small>Source: <a href='https://github.com/msberends/AMR/blob/master/NEWS.md'><code>NEWS.md</code></a></small>
     </div>
 
-    <div id="amr-1509027" class="section level1">
-<h1 class="page-header" data-toc-text="1.5.0.9027">
-<a href="#amr-1509027" class="anchor"></a>AMR 1.5.0.9027<small> Unreleased </small>
+    <div id="amr-1509030" class="section level1">
+<h1 class="page-header" data-toc-text="1.5.0.9030">
+<a href="#amr-1509030" class="anchor"></a>AMR 1.5.0.9030<small> Unreleased </small>
 </h1>
-<div id="last-updated-26-february-2021" class="section level2">
+<div id="last-updated-5-march-2021" class="section level2">
 <h2 class="hasAnchor">
-<a href="#last-updated-26-february-2021" class="anchor"></a><small>Last updated: 26 February 2021</small>
+<a href="#last-updated-5-march-2021" class="anchor"></a><small>Last updated: 5 March 2021</small>
 </h2>
 <div id="new" class="section level3">
 <h3 class="hasAnchor">
@@ -280,7 +280,7 @@
 </li>
 <li><p>Support for custom MDRO guidelines, using the new <code><a href="../reference/mdro.html">custom_mdro_guideline()</a></code> function, please see <code><a href="../reference/mdro.html">mdro()</a></code> for additional info</p></li>
 <li><p>Function <code><a href="../reference/isolate_identifier.html">isolate_identifier()</a></code>, which will paste a microorganism code with all antimicrobial results of a data set into one string for each row. This is useful to compare isolates, e.g. between institutions or regions, when there is no genotyping available.</p></li>
-<li><p><code><a href="https://ggplot2.tidyverse.org/reference/ggplot.html">ggplot()</a></code> generics for classes <code>&lt;mic&gt;</code> and <code>&lt;disk&gt;</code></p></li>
+<li><p><code>ggplot()</code> generics for classes <code>&lt;mic&gt;</code> and <code>&lt;disk&gt;</code></p></li>
 <li>
 <p>Function <code><a href="../reference/mo_property.html">mo_is_yeast()</a></code>, which determines whether a microorganism is a member of the taxonomic class Saccharomycetes or the taxonomic order Saccharomycetales:</p>
 <div class="sourceCode" id="cb2"><pre class="downlit sourceCode r">
@@ -308,6 +308,21 @@
 <h3 class="hasAnchor">
 <a href="#changed" class="anchor"></a>Changed</h3>
 <ul>
+<li>Updated the bacterial taxonomy to 3 March 2021 (using <a href="https://lpsn.dsmz.de">LSPN</a>)
+<ul>
+<li>Added 3,372 new species and 1,523 existing species became synomyms</li>
+<li>The URL of a bacterial species (<code><a href="../reference/mo_property.html">mo_url()</a></code>) will now lead to <a href="https://lpsn.dsmz.de" class="uri">https://lpsn.dsmz.de</a>
+</li>
+</ul>
+</li>
+<li>Big update for plotting classes <code>rsi</code>, <code>&lt;mic&gt;</code>, and <code>&lt;disk&gt;</code>:
+<ul>
+<li>Plotting of MIC and disk diffusion values now support interpretation colouring if you supply the microorganism and antimicrobial agent</li>
+<li>All colours were updated to colour-blind friendly versions for values R, S and I for all plot methods (also applies to tibble printing)</li>
+<li>Interpretation of MIC and disk diffusion values to R/SI will now be translated if the system language is German, Dutch or Spanish (see <code>translate</code>)</li>
+<li>Plotting is now possible with base R using <code><a href="../reference/plot.html">plot()</a></code> and with ggplot2 using <code>ggplot()</code> on any vector of MIC and disk diffusion values</li>
+</ul>
+</li>
 <li>
 <code><a href="../reference/as.rsi.html">is.rsi()</a></code> and <code><a href="../reference/as.rsi.html">is.rsi.eligible()</a></code> now return a vector of <code>TRUE</code>/<code>FALSE</code> when the input is a data set, by iterating over all columns</li>
 <li>Using functions without setting a data set (e.g., <code><a href="../reference/mo_property.html">mo_is_gram_negative()</a></code>, <code><a href="../reference/mo_property.html">mo_is_gram_positive()</a></code>, <code><a href="../reference/mo_property.html">mo_is_intrinsic_resistant()</a></code>, <code><a href="../reference/first_isolate.html">first_isolate()</a></code>, <code><a href="../reference/mdro.html">mdro()</a></code>) now work with <code>dplyr</code>s <code><a href="https://dplyr.tidyverse.org/reference/group_by.html">group_by()</a></code> again</li>
@@ -322,8 +337,6 @@
 <code><a href="../reference/as.rsi.html">is.rsi.eligible()</a></code> now detects if the column name resembles an antibiotic name or code and now returns <code>TRUE</code> immediately if the input contains any of the values “R”, “S” or “I”. This drastically improves speed, also for a lot of other functions that rely on automatic determination of antibiotic columns.</li>
 <li>Functions <code><a href="../reference/get_episode.html">get_episode()</a></code> and <code><a href="../reference/get_episode.html">is_new_episode()</a></code> now support less than a day as value for argument <code>episode_days</code> (e.g., to include one patient/test per hour)</li>
 <li>Argument <code>ampc_cephalosporin_resistance</code> in <code><a href="../reference/eucast_rules.html">eucast_rules()</a></code> now also applies to value “I” (not only “S”)</li>
-<li>Updated <code><a href="../reference/plot.html">plot()</a></code> functions for classes <code>&lt;mic&gt;</code>, <code>&lt;disk&gt;</code> and <code>&lt;rsi&gt;</code> - the former two now support colouring if you supply the microorganism and antimicrobial agent</li>
-<li>Updated colours to colour-blind friendly version for values R, S and I in tibble printing and for all plot methods (<code><a href="../reference/ggplot_rsi.html">ggplot_rsi()</a></code> and using <code><a href="../reference/plot.html">plot()</a></code> on classes <code>&lt;mic&gt;</code>, <code>&lt;disk&gt;</code> and <code>&lt;rsi&gt;</code>)</li>
 <li>Functions <code><a href="https://rdrr.io/r/base/print.html">print()</a></code> and <code><a href="https://rdrr.io/r/base/summary.html">summary()</a></code> on a Principal Components Analysis object (<code><a href="../reference/pca.html">pca()</a></code>) now print additional group info if the original data was grouped using <code><a href="https://dplyr.tidyverse.org/reference/group_by.html">dplyr::group_by()</a></code>
 </li>
 <li>Improved speed and reliability of <code><a href="../reference/guess_ab_col.html">guess_ab_col()</a></code>. As this also internally improves the reliability of <code><a href="../reference/first_isolate.html">first_isolate()</a></code> and <code><a href="../reference/mdro.html">mdro()</a></code>, this might have a slight impact on the results of those functions.</li>
@@ -335,6 +348,8 @@
 <code><a href="../reference/random.html">random_disk()</a></code> and <code><a href="../reference/random.html">random_mic()</a></code> now have an expanded range in their randomisation</li>
 <li>Support for GISA (glycopeptide-intermediate <em>S. aureus</em>), so e.g. <code><a href="../reference/mo_property.html">mo_genus("GISA")</a></code> will return <code>"Staphylococcus"</code>
 </li>
+<li>Added translations of German and Spanish for more than 200 antimicrobial drugs</li>
+<li>Speed improvement for <code><a href="../reference/as.ab.html">as.ab()</a></code> when the input is an official name or ATC code</li>
 </ul>
 </div>
 <div id="other" class="section level3">
@@ -661,7 +676,7 @@
 <p>Making this package independent of especially the tidyverse (e.g. packages <code>dplyr</code> and <code>tidyr</code>) tremendously increases sustainability on the long term, since tidyverse functions change quite often. Good for users, but hard for package maintainers. Most of our functions are replaced with versions that only rely on base R, which keeps this package fully functional for many years to come, without requiring a lot of maintenance to keep up with other packages anymore. Another upside it that this package can now be used with all versions of R since R-3.0.0 (April 2013). Our package is being used in settings where the resources are very limited. Fewer dependencies on newer software is helpful for such settings.</p>
 <p>Negative effects of this change are:</p>
 <ul>
-<li>Function <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code> that was borrowed from the <code>cleaner</code> package was removed. Use <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">cleaner::freq()</a></code>, or run <code><a href="https://github.com/msberends/cleaner">library("cleaner")</a></code> before you use <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code>.</li>
+<li>Function <code>freq()</code> that was borrowed from the <code>cleaner</code> package was removed. Use <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">cleaner::freq()</a></code>, or run <code><a href="https://github.com/msberends/cleaner">library("cleaner")</a></code> before you use <code>freq()</code>.</li>
 <li><del>Printing values of class <code>mo</code> or <code>rsi</code> in a tibble will no longer be in colour and printing <code>rsi</code> in a tibble will show the class <code>&lt;ord&gt;</code>, not <code>&lt;rsi&gt;</code> anymore. This is purely a visual effect.</del></li>
 <li><del>All functions from the <code>mo_*</code> family (like <code><a href="../reference/mo_property.html">mo_name()</a></code> and <code><a href="../reference/mo_property.html">mo_gramstain()</a></code>) are noticeably slower when running on hundreds of thousands of rows.</del></li>
 <li>For developers: classes <code>mo</code> and <code>ab</code> now both also inherit class <code>character</code>, to support any data transformation. This change invalidates code that checks for class length == 1.</li>
@@ -998,7 +1013,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <span class="co">#&gt; invalid microorganism code, NA generated</span></code></pre></div>
 <p>This is important, because a value like <code>"testvalue"</code> could never be understood by e.g. <code><a href="../reference/mo_property.html">mo_name()</a></code>, although the class would suggest a valid microbial code.</p>
 </li>
-<li><p>Function <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code> has moved to a new package, <a href="https://github.com/msberends/clean"><code>clean</code></a> (<a href="https://cran.r-project.org/package=clean">CRAN link</a>), since creating frequency tables actually does not fit the scope of this package. The <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code> function still works, since it is re-exported from the <code>clean</code> package (which will be installed automatically upon updating this <code>AMR</code> package).</p></li>
+<li><p>Function <code>freq()</code> has moved to a new package, <a href="https://github.com/msberends/clean"><code>clean</code></a> (<a href="https://cran.r-project.org/package=clean">CRAN link</a>), since creating frequency tables actually does not fit the scope of this package. The <code>freq()</code> function still works, since it is re-exported from the <code>clean</code> package (which will be installed automatically upon updating this <code>AMR</code> package).</p></li>
 <li><p>Renamed data set <code>septic_patients</code> to <code>example_isolates</code></p></li>
 </ul>
 </div>
@@ -1249,7 +1264,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <li>Based on the Compound ID, almost 5,000 official brand names have been added from many different countries</li>
 <li>All references to antibiotics in our package now use EARS-Net codes, like <code>AMX</code> for amoxicillin</li>
 <li>Functions <code>atc_certe</code>, <code>ab_umcg</code> and <code>atc_trivial_nl</code> have been removed</li>
-<li>All <code>atc_*</code> functions are superceded by <code>ab_*</code> functions</li>
+<li>All <code>atc_*</code> functions are superseded by <code>ab_*</code> functions</li>
 <li>All output will be translated by using an included translation file which <a href="https://github.com/msberends/AMR/blob/master/data-raw/translations.tsv">can be viewed here</a>
 </li>
 </ul>
@@ -1267,7 +1282,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <li>The <code><a href="../reference/age.html">age()</a></code> function gained a new argument <code>exact</code> to determine ages with decimals</li>
 <li>Removed deprecated functions <code>guess_mo()</code>, <code>guess_atc()</code>, <code>EUCAST_rules()</code>, <code>interpretive_reading()</code>, <code><a href="../reference/as.rsi.html">rsi()</a></code>
 </li>
-<li>Frequency tables (<code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code>):
+<li>Frequency tables (<code>freq()</code>):
 <ul>
 <li><p>speed improvement for microbial IDs</p></li>
 <li><p>fixed factor level names for R Markdown</p></li>
@@ -1277,12 +1292,12 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <div class="sourceCode" id="cb26"><pre class="downlit sourceCode r">
 <code class="sourceCode R">
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span> 
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">age</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">freq</span><span class="op">(</span><span class="va">age</span><span class="op">)</span> <span class="op">%&gt;%</span> 
   <span class="fu"><a href="https://rdrr.io/r/graphics/boxplot.html">boxplot</a></span><span class="op">(</span><span class="op">)</span>
 <span class="co"># grouped boxplots:</span>
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span> 
   <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html">group_by</a></span><span class="op">(</span><span class="va">hospital_id</span><span class="op">)</span> <span class="op">%&gt;%</span> 
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">age</span><span class="op">)</span> <span class="op">%&gt;%</span>
+  <span class="fu">freq</span><span class="op">(</span><span class="va">age</span><span class="op">)</span> <span class="op">%&gt;%</span>
   <span class="fu"><a href="https://rdrr.io/r/graphics/boxplot.html">boxplot</a></span><span class="op">(</span><span class="op">)</span></code></pre></div>
 </li>
 </ul>
@@ -1292,7 +1307,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <li>Added ceftazidim intrinsic resistance to <em>Streptococci</em>
 </li>
 <li>Changed default settings for <code><a href="../reference/age_groups.html">age_groups()</a></code>, to let groups of fives and tens end with 100+ instead of 120+</li>
-<li>Fix for <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code> for when all values are <code>NA</code>
+<li>Fix for <code>freq()</code> for when all values are <code>NA</code>
 </li>
 <li>Fix for <code><a href="../reference/first_isolate.html">first_isolate()</a></code> for when dates are missing</li>
 <li>Improved speed of <code><a href="../reference/guess_ab_col.html">guess_ab_col()</a></code>
@@ -1533,7 +1548,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 </li>
 </ul>
 </li>
-<li>Frequency tables (<code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code> function):
+<li>Frequency tables (<code>freq()</code> function):
 <ul>
 <li>
 <p>Support for tidyverse quasiquotation! Now you can create frequency tables of function outcomes:</p>
@@ -1543,15 +1558,15 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <span class="co"># OLD WAY</span>
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span>
   <span class="fu"><a href="https://dplyr.tidyverse.org/reference/mutate.html">mutate</a></span><span class="op">(</span>genus <span class="op">=</span> <span class="fu"><a href="../reference/mo_property.html">mo_genus</a></span><span class="op">(</span><span class="va">mo</span><span class="op">)</span><span class="op">)</span> <span class="op">%&gt;%</span>
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">genus</span><span class="op">)</span>
+  <span class="fu">freq</span><span class="op">(</span><span class="va">genus</span><span class="op">)</span>
 <span class="co"># NEW WAY</span>
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span> 
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="fu"><a href="../reference/mo_property.html">mo_genus</a></span><span class="op">(</span><span class="va">mo</span><span class="op">)</span><span class="op">)</span>
+  <span class="fu">freq</span><span class="op">(</span><span class="fu"><a href="../reference/mo_property.html">mo_genus</a></span><span class="op">(</span><span class="va">mo</span><span class="op">)</span><span class="op">)</span>
 
 <span class="co"># Even supports grouping variables:</span>
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span>
   <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html">group_by</a></span><span class="op">(</span><span class="va">gender</span><span class="op">)</span> <span class="op">%&gt;%</span> 
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="fu"><a href="../reference/mo_property.html">mo_genus</a></span><span class="op">(</span><span class="va">mo</span><span class="op">)</span><span class="op">)</span></code></pre></div>
+  <span class="fu">freq</span><span class="op">(</span><span class="fu"><a href="../reference/mo_property.html">mo_genus</a></span><span class="op">(</span><span class="va">mo</span><span class="op">)</span><span class="op">)</span></code></pre></div>
 </li>
 <li><p>Header info is now available as a list, with the <code>header</code> function</p></li>
 <li><p>The argument <code>header</code> is now set to <code>TRUE</code> at default, even for markdown</p></li>
@@ -1634,7 +1649,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <li><p>Using <code>portion_*</code> functions now throws a warning when total available isolate is below argument <code>minimum</code></p></li>
 <li><p>Functions <code>as.mo</code>, <code>as.rsi</code>, <code>as.mic</code>, <code>as.atc</code> and <code>freq</code> will not set package name as attribute anymore</p></li>
 <li>
-<p>Frequency tables - <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq()</a></code>:</p>
+<p>Frequency tables - <code>freq()</code>:</p>
 <ul>
 <li>
 <p>Support for grouping variables, test with:</p>
@@ -1642,14 +1657,14 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <code class="sourceCode R">
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span> 
   <span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_by.html">group_by</a></span><span class="op">(</span><span class="va">hospital_id</span><span class="op">)</span> <span class="op">%&gt;%</span> 
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">gender</span><span class="op">)</span></code></pre></div>
+  <span class="fu">freq</span><span class="op">(</span><span class="va">gender</span><span class="op">)</span></code></pre></div>
 </li>
 <li>
 <p>Support for (un)selecting columns:</p>
 <div class="sourceCode" id="cb39"><pre class="downlit sourceCode r">
 <code class="sourceCode R">
 <span class="va">septic_patients</span> <span class="op">%&gt;%</span> 
-  <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">hospital_id</span><span class="op">)</span> <span class="op">%&gt;%</span> 
+  <span class="fu">freq</span><span class="op">(</span><span class="va">hospital_id</span><span class="op">)</span> <span class="op">%&gt;%</span> 
   <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html">select</a></span><span class="op">(</span><span class="op">-</span><span class="va">count</span>, <span class="op">-</span><span class="va">cum_count</span><span class="op">)</span> <span class="co"># only get item, percent, cum_percent</span></code></pre></div>
 </li>
 <li><p>Check for <code><a href="https://hms.tidyverse.org/reference/Deprecated.html">hms::is.hms</a></code></p></li>
@@ -1667,7 +1682,7 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <li><p>Removed diacritics from all authors (columns <code>microorganisms$ref</code> and <code>microorganisms.old$ref</code>) to comply with CRAN policy to only allow ASCII characters</p></li>
 <li><p>Fix for <code>mo_property</code> not working properly</p></li>
 <li><p>Fix for <code>eucast_rules</code> where some Streptococci would become ceftazidime R in EUCAST rule 4.5</p></li>
-<li><p>Support for named vectors of class <code>mo</code>, useful for <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">top_freq()</a></code></p></li>
+<li><p>Support for named vectors of class <code>mo</code>, useful for <code>top_freq()</code></p></li>
 <li><p><code>ggplot_rsi</code> and <code>scale_y_percent</code> have <code>breaks</code> argument</p></li>
 <li>
 <p>AI improvements for <code>as.mo</code>:</p>
@@ -1835,13 +1850,13 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <div class="sourceCode" id="cb46"><pre class="downlit sourceCode r">
 <code class="sourceCode R">
 <span class="va">my_matrix</span> <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/with.html">with</a></span><span class="op">(</span><span class="va">septic_patients</span>, <span class="fu"><a href="https://rdrr.io/r/base/matrix.html">matrix</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html">c</a></span><span class="op">(</span><span class="va">age</span>, <span class="va">gender</span><span class="op">)</span>, ncol <span class="op">=</span> <span class="fl">2</span><span class="op">)</span><span class="op">)</span>
-<span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">my_matrix</span><span class="op">)</span></code></pre></div>
+<span class="fu">freq</span><span class="op">(</span><span class="va">my_matrix</span><span class="op">)</span></code></pre></div>
 <p>For lists, subsetting is possible:</p>
 <div class="sourceCode" id="cb47"><pre class="downlit sourceCode r">
 <code class="sourceCode R">
 <span class="va">my_list</span> <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span>age <span class="op">=</span> <span class="va">septic_patients</span><span class="op">$</span><span class="va">age</span>, gender <span class="op">=</span> <span class="va">septic_patients</span><span class="op">$</span><span class="va">gender</span><span class="op">)</span>
-<span class="va">my_list</span> <span class="op">%&gt;%</span> <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">age</span><span class="op">)</span>
-<span class="va">my_list</span> <span class="op">%&gt;%</span> <span class="fu"><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq</a></span><span class="op">(</span><span class="va">gender</span><span class="op">)</span></code></pre></div>
+<span class="va">my_list</span> <span class="op">%&gt;%</span> <span class="fu">freq</span><span class="op">(</span><span class="va">age</span><span class="op">)</span>
+<span class="va">my_list</span> <span class="op">%&gt;%</span> <span class="fu">freq</span><span class="op">(</span><span class="va">gender</span><span class="op">)</span></code></pre></div>
 </li>
 </ul>
 </div>
@@ -1915,13 +1930,13 @@ This works for all drug combinations, such as ampicillin/sulbactam, ceftazidime/
 <ul>
 <li>A vignette to explain its usage</li>
 <li>Support for <code>rsi</code> (antimicrobial resistance) to use as input</li>
-<li>Support for <code>table</code> to use as input: <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq(table(x, y))</a></code>
+<li>Support for <code>table</code> to use as input: <code>freq(table(x, y))</code>
 </li>
 <li>Support for existing functions <code>hist</code> and <code>plot</code> to use a frequency table as input: <code><a href="https://rdrr.io/r/graphics/hist.html">hist(freq(df$age))</a></code>
 </li>
 <li>Support for <code>as.vector</code>, <code>as.data.frame</code>, <code>as_tibble</code> and <code>format</code>
 </li>
-<li>Support for quasiquotation: <code><a href="https://rdrr.io/pkg/cleaner/man/freq.html">freq(mydata, mycolumn)</a></code> is the same as <code>mydata %&gt;% freq(mycolumn)</code>
+<li>Support for quasiquotation: <code>freq(mydata, mycolumn)</code> is the same as <code>mydata %&gt;% freq(mycolumn)</code>
 </li>
 <li>Function <code>top_freq</code> function to return the top/below <em>n</em> items as vector</li>
 <li>Header of frequency tables now also show Mean Absolute Deviaton (MAD) and Interquartile Range (IQR)</li>

docs/pkgdown.yml

@@ -12,7 +12,7 @@ articles:
   datasets: datasets.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2021-02-26T11:10Z
+last_built: 2021-03-05T09:15Z
 urls:
   reference: https://msberends.github.io/AMR//reference
   article: https://msberends.github.io/AMR//articles

docs/reference/as.mo.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -405,7 +405,7 @@ The <a href='lifecycle.html'>lifecycle</a> of this function is <strong>stable</s
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
+<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
     <h2 class="hasAnchor" id="reference-data-publicly-available"><a class="anchor" href="#reference-data-publicly-available"></a>Reference Data Publicly Available</h2>
 
     

docs/reference/catalogue_of_life.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9029</span>
       </span>
     </div>
 
@@ -250,16 +250,16 @@
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p>Click here for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
+<p>Click here for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
     <h2 class="hasAnchor" id="included-taxa"><a class="anchor" href="#included-taxa"></a>Included Taxa</h2>
 
     
 
 <p>Included are:</p><ul>
-<li><p>All ~55,000 (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa</p></li>
+<li><p>All ~58,000 (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa</p></li>
 <li><p>All ~5,000 (sub)species from these orders of the kingdom of Fungi: Eurotiales, Microascales, Mucorales, Onygenales, Pneumocystales, Saccharomycetales, Schizosaccharomycetales and Tremellales, as well as ~4,600 other fungal (sub)species. The kingdom of Fungi is a very large taxon with almost 300,000 different (sub)species, of which most are not microbial (but rather macroscopic, like mushrooms). Because of this, not all fungi fit the scope of this package and including everything would tremendously slow down our algorithms too. By only including the aforementioned taxonomic orders, the most relevant fungi are covered (such as all species of <em>Aspergillus</em>, <em>Candida</em>, <em>Cryptococcus</em>, <em>Histplasma</em>, <em>Pneumocystis</em>, <em>Saccharomyces</em> and <em>Trichophyton</em>).</p></li>
 <li><p>All ~2,200 (sub)species from ~50 other relevant genera from the kingdom of Animalia (such as <em>Strongyloides</em> and <em>Taenia</em>)</p></li>
-<li><p>All ~13,000 previously accepted names of all included (sub)species (these were taxonomically renamed)</p></li>
+<li><p>All ~14,000 previously accepted names of all included (sub)species (these were taxonomically renamed)</p></li>
 <li><p>The complete taxonomic tree of all included (sub)species: from kingdom to subspecies</p></li>
 <li><p>The responsible author(s) and year of scientific publication</p></li>
 </ul>

docs/reference/catalogue_of_life_version.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -250,14 +250,14 @@
     <p>a <a href='https://rdrr.io/r/base/list.html'>list</a>, which prints in pretty format</p>
     <h2 class="hasAnchor" id="details"><a class="anchor" href="#details"></a>Details</h2>
 
-    <p>For DSMZ, see <a href='microorganisms.html'>microorganisms</a>.</p>
+    <p>For LPSN, see <a href='microorganisms.html'>microorganisms</a>.</p>
     <h2 class="hasAnchor" id="catalogue-of-life"><a class="anchor" href="#catalogue-of-life"></a>Catalogue of Life</h2>
 
     
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code>catalogue_of_life_version()</code>.</p>
+<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code>catalogue_of_life_version()</code>.</p>
     <h2 class="hasAnchor" id="read-more-on-our-website-"><a class="anchor" href="#read-more-on-our-website-"></a>Read more on Our Website!</h2>
 
     

docs/reference/ggplot_rsi.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -462,10 +462,19 @@ The <a href='lifecycle.html'>lifecycle</a> of this function is <strong>maturing<
                linetype <span class='op'>=</span> <span class='fl'>2</span>,
                alpha <span class='op'>=</span> <span class='fl'>0.25</span><span class='op'>)</span>
 
+  <span class='co'># you can alter the colours with colour names:</span>
   <span class='va'>example_isolates</span> <span class='op'>%&gt;%</span>
     <span class='fu'><a href='https://dplyr.tidyverse.org/reference/select.html'>select</a></span><span class='op'>(</span><span class='va'>AMX</span><span class='op'>)</span> <span class='op'>%&gt;%</span>
     <span class='fu'>ggplot_rsi</span><span class='op'>(</span>colours <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span>SI <span class='op'>=</span> <span class='st'>"yellow"</span><span class='op'>)</span><span class='op'>)</span>
 
+  <span class='co'># but you can also use the built-in colour-blind friendly colours for</span>
+  <span class='co'># your plots, where "S" is green, "I" is yellow and "R" is red:</span>
+  <span class='fu'><a href='https://rdrr.io/r/base/data.frame.html'>data.frame</a></span><span class='op'>(</span>x <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='st'>"Value1"</span>, <span class='st'>"Value2"</span>, <span class='st'>"Value3"</span><span class='op'>)</span>,
+             y <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='fl'>1</span>, <span class='fl'>2</span>, <span class='fl'>3</span><span class='op'>)</span>,
+             z <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='st'>"Value4"</span>, <span class='st'>"Value5"</span>, <span class='st'>"Value6"</span><span class='op'>)</span><span class='op'>)</span> <span class='op'>%&gt;%</span>
+    <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/ggplot.html'>ggplot</a></span><span class='op'>(</span><span class='op'>)</span> <span class='op'>+</span>
+    <span class='fu'><a href='https://ggplot2.tidyverse.org/reference/geom_bar.html'>geom_col</a></span><span class='op'>(</span><span class='fu'><a href='https://ggplot2.tidyverse.org/reference/aes.html'>aes</a></span><span class='op'>(</span>x <span class='op'>=</span> <span class='va'>x</span>, y <span class='op'>=</span> <span class='va'>y</span>, fill <span class='op'>=</span> <span class='va'>z</span><span class='op'>)</span><span class='op'>)</span> <span class='op'>+</span>
+    <span class='fu'>scale_rsi_colours</span><span class='op'>(</span>Value4 <span class='op'>=</span> <span class='st'>"S"</span>, Value5 <span class='op'>=</span> <span class='st'>"I"</span>, Value6 <span class='op'>=</span> <span class='st'>"R"</span><span class='op'>)</span>
 <span class='op'>}</span>
   
 <span class='co'># \donttest{</span>

docs/reference/index.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 
@@ -272,7 +272,7 @@
         <td>
           <p><code><a href="microorganisms.html">microorganisms</a></code> </p>
         </td>
-        <td><p>Data Set with 67,151 Microorganisms</p></td>
+        <td><p>Data Set with 70,026 Microorganisms</p></td>
       </tr><tr>
         
         <td>
@@ -452,12 +452,6 @@
         <td><p>Apply EUCAST Rules</p></td>
       </tr><tr>
         
-        <td>
-          <p><code><a href="plot.html">plot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">ggplot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">ggplot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;rsi&gt;</i>)</a></code> <code><a href="plot.html">ggplot(<i>&lt;rsi&gt;</i>)</a></code> </p>
-        </td>
-        <td><p>Plotting for Classes <code>rsi</code>, <code>mic</code> and <code>disk</code></p></td>
-      </tr><tr>
-        
         <td>
           <p><code><a href="isolate_identifier.html">isolate_identifier()</a></code> <code><a href="isolate_identifier.html">all.equal(<i>&lt;isolate_identifier&gt;</i>)</a></code> </p>
         </td>
@@ -513,6 +507,12 @@
         <td><p>Determine Multidrug-Resistant Organisms (MDRO)</p></td>
       </tr><tr>
         
+        <td>
+          <p><code><a href="plot.html">plot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">ggplot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">ggplot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;rsi&gt;</i>)</a></code> <code><a href="plot.html">ggplot(<i>&lt;rsi&gt;</i>)</a></code> </p>
+        </td>
+        <td><p>Plotting for Classes <code>rsi</code>, <code>mic</code> and <code>disk</code></p></td>
+      </tr><tr>
+        
         <td>
           <p><code><a href="ggplot_rsi.html">ggplot_rsi()</a></code> <code><a href="ggplot_rsi.html">geom_rsi()</a></code> <code><a href="ggplot_rsi.html">facet_rsi()</a></code> <code><a href="ggplot_rsi.html">scale_y_percent()</a></code> <code><a href="ggplot_rsi.html">scale_rsi_colours()</a></code> <code><a href="ggplot_rsi.html">theme_rsi()</a></code> <code><a href="ggplot_rsi.html">labels_rsi_count()</a></code> </p>
         </td>

docs/reference/microorganisms.codes.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -263,7 +263,7 @@
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
+<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
     <h2 class="hasAnchor" id="read-more-on-our-website-"><a class="anchor" href="#read-more-on-our-website-"></a>Read more on Our Website!</h2>
 
     

docs/reference/microorganisms.html

@@ -6,7 +6,7 @@
 <meta http-equiv="X-UA-Compatible" content="IE=edge">
 <meta name="viewport" content="width=device-width, initial-scale=1.0">
 
-<title>Data Set with 67,151 Microorganisms — microorganisms • AMR (for R)</title>
+<title>Data Set with 70,026 Microorganisms — microorganisms • AMR (for R)</title>
 
 <!-- favicons -->
 <link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png">
@@ -48,8 +48,8 @@
   <link href="../extra.css" rel="stylesheet">
   <script src="../extra.js"></script>
 
-<meta property="og:title" content="Data Set with 67,151 Microorganisms — microorganisms" />
-<meta property="og:description" content="A data set containing the microbial taxonomy of six kingdoms from the Catalogue of Life. MO codes can be looked up using as.mo()." />
+<meta property="og:title" content="Data Set with 70,026 Microorganisms — microorganisms" />
+<meta property="og:description" content="A data set containing the microbial taxonomy, last updated in March 2021, of six kingdoms from the Catalogue of Life (CoL) and the List of Prokaryotic names with Standing in Nomenclature (LPSN). MO codes can be looked up using as.mo()." />
 <meta property="og:image" content="https://msberends.github.io/AMR/logo.png" />
 
 
@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9029</span>
       </span>
     </div>
 
@@ -233,13 +233,13 @@
 <div class="row">
   <div class="col-md-9 contents">
     <div class="page-header">
-    <h1>Data Set with 67,151 Microorganisms</h1>
+    <h1>Data Set with 70,026 Microorganisms</h1>
     <small class="dont-index">Source: <a href='https://github.com/msberends/AMR/blob/master/R/data.R'><code>R/data.R</code></a></small>
     <div class="hidden name"><code>microorganisms.Rd</code></div>
     </div>
 
     <div class="ref-description">
-    <p>A data set containing the microbial taxonomy of six kingdoms from the Catalogue of Life. MO codes can be looked up using <code><a href='as.mo.html'>as.mo()</a></code>.</p>
+    <p>A data set containing the microbial taxonomy, last updated in March 2021, of six kingdoms from the Catalogue of Life (CoL) and the List of Prokaryotic names with Standing in Nomenclature (LPSN). MO codes can be looked up using <code><a href='as.mo.html'>as.mo()</a></code>.</p>
     </div>
 
     <pre class="usage"><span class='va'>microorganisms</span></pre>
@@ -247,27 +247,37 @@
 
     <h2 class="hasAnchor" id="format"><a class="anchor" href="#format"></a>Format</h2>
 
-    <p>A <a href='https://rdrr.io/r/base/data.frame.html'>data.frame</a> with 67,151 observations and 16 variables:</p><ul>
+    <p>A <a href='https://rdrr.io/r/base/data.frame.html'>data.frame</a> with 70,026 observations and 16 variables:</p><ul>
 <li><p><code>mo</code><br /> ID of microorganism as used by this package</p></li>
 <li><p><code>fullname</code><br /> Full name, like <code>"Escherichia coli"</code></p></li>
 <li><p><code>kingdom</code>, <code>phylum</code>, <code>class</code>, <code>order</code>, <code>family</code>, <code>genus</code>, <code>species</code>, <code>subspecies</code><br /> Taxonomic rank of the microorganism</p></li>
 <li><p><code>rank</code><br /> Text of the taxonomic rank of the microorganism, like <code>"species"</code> or <code>"genus"</code></p></li>
 <li><p><code>ref</code><br /> Author(s) and year of concerning scientific publication</p></li>
 <li><p><code>species_id</code><br /> ID of the species as used by the Catalogue of Life</p></li>
-<li><p><code>source</code><br /> Either "CoL", "DSMZ" (see <em>Source</em>) or "manually added"</p></li>
+<li><p><code>source</code><br /> Either "CoL", "LPSN" or "manually added" (see <em>Source</em>)</p></li>
 <li><p><code>prevalence</code><br /> Prevalence of the microorganism, see <code><a href='as.mo.html'>as.mo()</a></code></p></li>
 <li><p><code>snomed</code><br /> SNOMED code of the microorganism. Use <code><a href='mo_property.html'>mo_snomed()</a></code> to retrieve it quickly, see <code><a href='mo_property.html'>mo_property()</a></code>.</p></li>
 </ul>
 
     <h2 class="hasAnchor" id="source"><a class="anchor" href="#source"></a>Source</h2>
 
-    <p>Catalogue of Life: Annual Checklist (public online taxonomic database), <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a> (check included annual version with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>).</p>
-<p>Parte, A.C. (2018). LPSN — List of Prokaryotic names with Standing in Nomenclature (bacterio.net), 20 years on. International Journal of Systematic and Evolutionary Microbiology, 68, 1825-1829; doi: <a href='https://doi.org/10.1099/ijsem.0.002786'>10.1099/ijsem.0.002786</a></p>
-<p>Leibniz Institute DSMZ-German Collection of Microorganisms and Cell Cultures, Germany, Prokaryotic Nomenclature Up-to-Date, <a href='https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date'>https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date</a> and <a href='https://lpsn.dsmz.de'>https://lpsn.dsmz.de</a> (check included version with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>).</p>
+    <p>Catalogue of Life: 2019 Annual Checklist</p><ul>
+<li><p>Annual Checklist (public online taxonomic database), <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a></p></li>
+</ul>
+
+<p>List of Prokaryotic names with Standing in Nomenclature: March 2021</p><ul>
+<li><p>Parte, A.C., Sarda Carbasse, J., Meier-Kolthoff, J.P., Reimer, L.C. and Goker, M. (2020). List of Prokaryotic names with Standing in Nomenclature (LPSN) moves to the DSMZ. International Journal of Systematic and Evolutionary Microbiology, 70, 5607-5612; doi: <a href='https://doi.org/10.1099/ijsem.0.004332'>10.1099/ijsem.0.004332</a></p></li>
+<li><p>Parte, A.C. (2018). LPSN — List of Prokaryotic names with Standing in Nomenclature (bacterio.net), 20 years on. International Journal of Systematic and Evolutionary Microbiology, 68, 1825-1829; doi: <a href='https://doi.org/10.1099/ijsem.0.002786'>10.1099/ijsem.0.002786</a></p></li>
+<li><p>Parte, A.C. (2014). LPSN — List of Prokaryotic names with Standing in Nomenclature. Nucleic Acids Research, 42, Issue D1, D613–D616; doi: <a href='https://doi.org/10.1093/nar/gkt1111'>10.1093/nar/gkt1111</a></p></li>
+<li><p>Euzeby, J.P. (1997). List of Bacterial Names with Standing in Nomenclature: a Folder Available on the Internet. International Journal of Systematic Bacteriology, 47, 590-592; doi: <a href='https://doi.org/10.1099/00207713-47-2-590'>10.1099/00207713-47-2-590</a></p></li>
+</ul>
+
     <h2 class="hasAnchor" id="details"><a class="anchor" href="#details"></a>Details</h2>
 
     <p>Please note that entries are only based on the Catalogue of Life and the LPSN (see below). Since these sources incorporate entries based on (recent) publications in the International Journal of Systematic and Evolutionary Microbiology (IJSEM), it can happen that the year of publication is sometimes later than one might expect.</p>
-<p>For example, <em>Staphylococcus pettenkoferi</em> was newly named in Diagnostic Microbiology and Infectious Disease in 2002 (PMID 12106949), but it was not before 2007 that a publication in IJSEM followed (PMID 17625191). Consequently, the AMR package returns 2007 for <code><a href='mo_property.html'>mo_year("S. pettenkoferi")</a></code>.</p><h3 class='hasAnchor' id='arguments'><a class='anchor' href='#arguments'></a>Manually additions</h3>
+<p>For example, <em>Staphylococcus pettenkoferi</em> was described for the first time in Diagnostic Microbiology and Infectious Disease in 2002 (doi: <a href='https://doi.org/10.1016/s0732-8893(02)00399-1'>10.1016/s0732-8893(02)00399-1</a>
+), but it was not before 2007 that a publication in IJSEM followed (doi: <a href='https://doi.org/10.1099/ijs.0.64381-0'>10.1099/ijs.0.64381-0</a>
+). Consequently, the AMR package returns 2007 for <code><a href='mo_property.html'>mo_year("S. pettenkoferi")</a></code>.</p><h3 class='hasAnchor' id='arguments'><a class='anchor' href='#arguments'></a>Manual additions</h3>
 
 
 <p>For convenience, some entries were added manually:</p><ul>
@@ -278,7 +288,6 @@
 <li><p>1 entry of <em>Blastocystis</em> (<em>Blastocystis hominis</em>), although it officially does not exist (Noel <em>et al.</em> 2005, PMID 15634993)</p></li>
 <li><p>5 other 'undefined' entries (unknown, unknown Gram negatives, unknown Gram positives, unknown yeast and unknown fungus)</p></li>
 <li><p>6 families under the Enterobacterales order, according to Adeolu <em>et al.</em> (2016, PMID 27620848), that are not (yet) in the Catalogue of Life</p></li>
-<li><p>7,411 species from the DSMZ (Deutsche Sammlung von Mikroorganismen und Zellkulturen) since the DSMZ contain the latest taxonomic information based on recent publications</p></li>
 </ul>
 
 
@@ -294,20 +303,19 @@
 </ul>
 
 
-    <h2 class="hasAnchor" id="about-the-records-from-dsmz-see-source-"><a class="anchor" href="#about-the-records-from-dsmz-see-source-"></a>About the Records from DSMZ (see <em>Source</em>)</h2>
+    <h2 class="hasAnchor" id="about-the-records-from-lpsn-see-source-"><a class="anchor" href="#about-the-records-from-lpsn-see-source-"></a>About the Records from LPSN (see <em>Source</em>)</h2>
 
     
 
-<p>Names of prokaryotes are defined as being validly published by the International Code of Nomenclature of Bacteria. Validly published are all names which are included in the Approved Lists of Bacterial Names and the names subsequently published in the International Journal of Systematic Bacteriology (IJSB) and, from January 2000, in the International Journal of Systematic and Evolutionary Microbiology (IJSEM) as original articles or in the validation lists.
-<em>(from <a href='https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date'>https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date</a>)</em></p>
-<p>In February 2020, the DSMZ records were merged with the List of Prokaryotic names with Standing in Nomenclature (LPSN).</p>
+<p>The List of Prokaryotic names with Standing in Nomenclature (LPSN) provides comprehensive information on the nomenclature of prokaryotes. LPSN is a free to use service founded by Jean P. Euzeby in 1997 and later on maintained by Aidan C. Parte.</p>
+<p>As of February 2020, the regularly augmented LPSN database at DSMZ is the basis of the new LPSN service. The new database was implemented for the Type-Strain Genome Server and augmented in 2018 to store all kinds of nomenclatural information. Data from the previous version of LPSN and from the Prokaryotic Nomenclature Up-to-date (PNU) service were imported into the new system. PNU had been established in 1993 as a service of the Leibniz Institute DSMZ, and was curated by Norbert Weiss, Manfred Kracht and Dorothea Gleim.</p>
     <h2 class="hasAnchor" id="catalogue-of-life"><a class="anchor" href="#catalogue-of-life"></a>Catalogue of Life</h2>
 
     
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
+<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
     <h2 class="hasAnchor" id="reference-data-publicly-available"><a class="anchor" href="#reference-data-publicly-available"></a>Reference Data Publicly Available</h2>
 
     

docs/reference/microorganisms.old.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -247,7 +247,7 @@
 
     <h2 class="hasAnchor" id="format"><a class="anchor" href="#format"></a>Format</h2>
 
-    <p>A <a href='https://rdrr.io/r/base/data.frame.html'>data.frame</a> with 12,708 observations and 4 variables:</p><ul>
+    <p>A <a href='https://rdrr.io/r/base/data.frame.html'>data.frame</a> with 14,100 observations and 4 variables:</p><ul>
 <li><p><code>fullname</code><br /> Old full taxonomic name of the microorganism</p></li>
 <li><p><code>fullname_new</code><br /> New full taxonomic name of the microorganism</p></li>
 <li><p><code>ref</code><br /> Author(s) and year of concerning scientific publication</p></li>
@@ -264,7 +264,7 @@
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
+<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
     <h2 class="hasAnchor" id="reference-data-publicly-available"><a class="anchor" href="#reference-data-publicly-available"></a>Reference Data Publicly Available</h2>
 
     

docs/reference/mo_property.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9019</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -383,7 +383,7 @@ The <a href='lifecycle.html'>lifecycle</a> of this function is <strong>stable</s
 
 <p><img src='figures/logo_col.png' height=40px style=margin-bottom:5px /> <br />
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a>). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, <a href='https://lpsn.dsmz.de'>lpsn.dsmz.de</a>). This supplementation is needed until the <a href='https://github.com/CatalogueOfLife/general'>CoL+ project</a> is finished, which we await.</p>
-<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
+<p><a href='catalogue_of_life.html'>Click here</a> for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with <code><a href='catalogue_of_life_version.html'>catalogue_of_life_version()</a></code>.</p>
     <h2 class="hasAnchor" id="source"><a class="anchor" href="#source"></a>Source</h2>
 
     

docs/reference/plot.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -252,6 +252,7 @@
   ab <span class='op'>=</span> <span class='cn'>NULL</span>,
   guideline <span class='op'>=</span> <span class='st'>"EUCAST"</span>,
   colours_RSI <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='st'>"#ED553B"</span>, <span class='st'>"#3CAEA3"</span>, <span class='st'>"#F6D55C"</span><span class='op'>)</span>,
+  language <span class='op'>=</span> <span class='fu'><a href='translate.html'>get_locale</a></span><span class='op'>(</span><span class='op'>)</span>,
   expand <span class='op'>=</span> <span class='cn'>TRUE</span>,
   <span class='va'>...</span>
 <span class='op'>)</span>
@@ -267,6 +268,7 @@
   ab <span class='op'>=</span> <span class='cn'>NULL</span>,
   guideline <span class='op'>=</span> <span class='st'>"EUCAST"</span>,
   colours_RSI <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='st'>"#ED553B"</span>, <span class='st'>"#3CAEA3"</span>, <span class='st'>"#F6D55C"</span><span class='op'>)</span>,
+  language <span class='op'>=</span> <span class='fu'><a href='translate.html'>get_locale</a></span><span class='op'>(</span><span class='op'>)</span>,
   expand <span class='op'>=</span> <span class='cn'>TRUE</span>,
   <span class='va'>...</span>
 <span class='op'>)</span>
@@ -281,6 +283,7 @@
   ab <span class='op'>=</span> <span class='cn'>NULL</span>,
   guideline <span class='op'>=</span> <span class='st'>"EUCAST"</span>,
   colours_RSI <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='st'>"#ED553B"</span>, <span class='st'>"#3CAEA3"</span>, <span class='st'>"#F6D55C"</span><span class='op'>)</span>,
+  language <span class='op'>=</span> <span class='fu'><a href='translate.html'>get_locale</a></span><span class='op'>(</span><span class='op'>)</span>,
   expand <span class='op'>=</span> <span class='cn'>TRUE</span>,
   <span class='va'>...</span>
 <span class='op'>)</span>
@@ -296,6 +299,7 @@
   ab <span class='op'>=</span> <span class='cn'>NULL</span>,
   guideline <span class='op'>=</span> <span class='st'>"EUCAST"</span>,
   colours_RSI <span class='op'>=</span> <span class='fu'><a href='https://rdrr.io/r/base/c.html'>c</a></span><span class='op'>(</span><span class='st'>"#ED553B"</span>, <span class='st'>"#3CAEA3"</span>, <span class='st'>"#F6D55C"</span><span class='op'>)</span>,
+  language <span class='op'>=</span> <span class='fu'><a href='translate.html'>get_locale</a></span><span class='op'>(</span><span class='op'>)</span>,
   expand <span class='op'>=</span> <span class='cn'>TRUE</span>,
   <span class='va'>...</span>
 <span class='op'>)</span>
@@ -351,6 +355,10 @@
       <th>colours_RSI</th>
       <td><p>colours to use for filling in the bars, must be a vector of three values (in the order R, S and I). The default colours are colour-blind friendly.</p></td>
     </tr>
+    <tr>
+      <th>language</th>
+      <td><p>language to be used to translate 'Susceptible', 'Increased exposure'/'Intermediate' and 'Resistant', defaults to system language (see <code><a href='translate.html'>get_locale()</a></code>) and can be overwritten by setting the option <code>AMR_locale</code>, e.g. <code><a href='https://rdrr.io/r/base/options.html'>options(AMR_locale = "de")</a></code>, see <a href='translate.html'>translate</a>. Use <code>language = NULL</code> or <code>language = ""</code> to prevent translation.</p></td>
+    </tr>
     <tr>
       <th>expand</th>
       <td><p>logical to indicate whether the range on the x axis should be expanded between the lowest and highest value. For MIC values, intermediate values will be factors of 2 starting from the highest MIC value. For disk diameters, the whole diameter range will be filled.</p></td>

docs/reference/rsi_translation.html

@@ -82,7 +82,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="../index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9016</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9028</span>
       </span>
     </div>
 
@@ -249,7 +249,7 @@
 
     <p>A <a href='https://rdrr.io/r/base/data.frame.html'>data.frame</a> with 20,486 observations and 10 variables:</p><ul>
 <li><p><code>guideline</code><br /> Name of the guideline</p></li>
-<li><p><code>method</code><br /> Either "MIC" or "DISK"</p></li>
+<li><p><code>method</code><br /> Either "DISK" or "MIC"</p></li>
 <li><p><code>site</code><br /> Body site, e.g. "Oral" or "Respiratory"</p></li>
 <li><p><code>mo</code><br /> Microbial ID, see <code><a href='as.mo.html'>as.mo()</a></code></p></li>
 <li><p><code>ab</code><br /> Antibiotic ID, see <code><a href='as.ab.html'>as.ab()</a></code></p></li>

docs/survey.html

@@ -81,7 +81,7 @@
       </button>
       <span class="navbar-brand">
         <a class="navbar-link" href="index.html">AMR (for R)</a>
-        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9027</span>
+        <span class="version label label-default" data-toggle="tooltip" data-placement="bottom" title="Latest development version">1.5.0.9030</span>
       </span>
     </div>
 

index.md

@@ -1,6 +1,6 @@
 # `AMR` (for R) <img src="./logo.png" align="right" height="120px" />
 
-*Note: the rules of 'EUCAST Clinical Breakpoints v11.0 (2021)' are implemented in [the latest beta version](./#latest-development-version), awaiting the next stable release (expected end of February)*
+*Note: the rules of 'EUCAST Clinical Breakpoints v11.0 (2021)' are now implemented*
 
 > <span class="fa fa-clipboard-list" style="color: #128f76; font-size: 20pt; margin-right: 5px;"></span> **PLEASE TAKE PART IN OUR SURVEY!**  
 > Since you are one of our users, we would like to know how you use the package and what it brought you or your organisation. **If you have a minute, please [anonymously fill in this short questionnaire](./survey.html)**. Your valuable input will help to improve the package and its functionalities. You can answer the open questions in either English, Spanish, French, Dutch, or German. Thank you very much in advance!

man/as.mo.Rd

@@ -165,7 +165,7 @@ All matches are sorted descending on their matching score and for all user input
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Reference Data Publicly Available}{

man/catalogue_of_life.Rd

@@ -11,17 +11,17 @@ This package contains the complete taxonomic tree of almost all microorganisms f
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Included Taxa}{
 
 Included are:
 \itemize{
-\item All ~55,000 (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa
+\item All ~58,000 (sub)species from the kingdoms of Archaea, Bacteria, Chromista and Protozoa
 \item All ~5,000 (sub)species from these orders of the kingdom of Fungi: Eurotiales, Microascales, Mucorales, Onygenales, Pneumocystales, Saccharomycetales, Schizosaccharomycetales and Tremellales, as well as ~4,600 other fungal (sub)species. The kingdom of Fungi is a very large taxon with almost 300,000 different (sub)species, of which most are not microbial (but rather macroscopic, like mushrooms). Because of this, not all fungi fit the scope of this package and including everything would tremendously slow down our algorithms too. By only including the aforementioned taxonomic orders, the most relevant fungi are covered (such as all species of \emph{Aspergillus}, \emph{Candida}, \emph{Cryptococcus}, \emph{Histplasma}, \emph{Pneumocystis}, \emph{Saccharomyces} and \emph{Trichophyton}).
 \item All ~2,200 (sub)species from ~50 other relevant genera from the kingdom of Animalia (such as \emph{Strongyloides} and \emph{Taenia})
-\item All ~13,000 previously accepted names of all included (sub)species (these were taxonomically renamed)
+\item All ~14,000 previously accepted names of all included (sub)species (these were taxonomically renamed)
 \item The complete taxonomic tree of all included (sub)species: from kingdom to subspecies
 \item The responsible author(s) and year of scientific publication
 }

man/catalogue_of_life_version.Rd

@@ -13,14 +13,14 @@ a \link{list}, which prints in pretty format
 This function returns information about the included data from the Catalogue of Life.
 }
 \details{
-For DSMZ, see \link{microorganisms}.
+For LPSN, see \link{microorganisms}.
 }
 \section{Catalogue of Life}{
 
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Read more on Our Website!}{

man/ggplot_rsi.Rd

@@ -186,10 +186,19 @@ if (require("ggplot2") & require("dplyr")) {
                linetype = 2,
                alpha = 0.25)
 
+  # you can alter the colours with colour names:
   example_isolates \%>\%
     select(AMX) \%>\%
     ggplot_rsi(colours = c(SI = "yellow"))
 
+  # but you can also use the built-in colour-blind friendly colours for
+  # your plots, where "S" is green, "I" is yellow and "R" is red:
+  data.frame(x = c("Value1", "Value2", "Value3"),
+             y = c(1, 2, 3),
+             z = c("Value4", "Value5", "Value6")) \%>\%
+    ggplot() +
+    geom_col(aes(x = x, y = y, fill = z)) +
+    scale_rsi_colours(Value4 = "S", Value5 = "I", Value6 = "R")
 }
   
 \donttest{

man/microorganisms.Rd

@@ -3,9 +3,9 @@
 \docType{data}
 \name{microorganisms}
 \alias{microorganisms}
-\title{Data Set with 67,151 Microorganisms}
+\title{Data Set with 70,026 Microorganisms}
 \format{
-A \link{data.frame} with 67,151 observations and 16 variables:
+A \link{data.frame} with 70,026 observations and 16 variables:
 \itemize{
 \item \code{mo}\cr ID of microorganism as used by this package
 \item \code{fullname}\cr Full name, like \code{"Escherichia coli"}
@@ -13,29 +13,36 @@ A \link{data.frame} with 67,151 observations and 16 variables:
 \item \code{rank}\cr Text of the taxonomic rank of the microorganism, like \code{"species"} or \code{"genus"}
 \item \code{ref}\cr Author(s) and year of concerning scientific publication
 \item \code{species_id}\cr ID of the species as used by the Catalogue of Life
-\item \code{source}\cr Either "CoL", "DSMZ" (see \emph{Source}) or "manually added"
+\item \code{source}\cr Either "CoL", "LPSN" or "manually added" (see \emph{Source})
 \item \code{prevalence}\cr Prevalence of the microorganism, see \code{\link[=as.mo]{as.mo()}}
 \item \code{snomed}\cr SNOMED code of the microorganism. Use \code{\link[=mo_snomed]{mo_snomed()}} to retrieve it quickly, see \code{\link[=mo_property]{mo_property()}}.
 }
 }
 \source{
-Catalogue of Life: Annual Checklist (public online taxonomic database), \url{http://www.catalogueoflife.org} (check included annual version with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}).
+Catalogue of Life: 2019 Annual Checklist
+\itemize{
+\item Annual Checklist (public online taxonomic database), \url{http://www.catalogueoflife.org}
+}
 
-Parte, A.C. (2018). LPSN — List of Prokaryotic names with Standing in Nomenclature (bacterio.net), 20 years on. International Journal of Systematic and Evolutionary Microbiology, 68, 1825-1829; \doi{10.1099/ijsem.0.002786}
-
-Leibniz Institute DSMZ-German Collection of Microorganisms and Cell Cultures, Germany, Prokaryotic Nomenclature Up-to-Date, \url{https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date} and \url{https://lpsn.dsmz.de} (check included version with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}).
+List of Prokaryotic names with Standing in Nomenclature: March 2021
+\itemize{
+\item Parte, A.C., Sarda Carbasse, J., Meier-Kolthoff, J.P., Reimer, L.C. and Goker, M. (2020). List of Prokaryotic names with Standing in Nomenclature (LPSN) moves to the DSMZ. International Journal of Systematic and Evolutionary Microbiology, 70, 5607-5612; \doi{10.1099/ijsem.0.004332}
+\item Parte, A.C. (2018). LPSN — List of Prokaryotic names with Standing in Nomenclature (bacterio.net), 20 years on. International Journal of Systematic and Evolutionary Microbiology, 68, 1825-1829; \doi{10.1099/ijsem.0.002786}
+\item Parte, A.C. (2014). LPSN — List of Prokaryotic names with Standing in Nomenclature. Nucleic Acids Research, 42, Issue D1, D613–D616; \doi{10.1093/nar/gkt1111}
+\item Euzeby, J.P. (1997). List of Bacterial Names with Standing in Nomenclature: a Folder Available on the Internet. International Journal of Systematic Bacteriology, 47, 590-592; \doi{10.1099/00207713-47-2-590}
+}
 }
 \usage{
 microorganisms
 }
 \description{
-A data set containing the microbial taxonomy of six kingdoms from the Catalogue of Life. MO codes can be looked up using \code{\link[=as.mo]{as.mo()}}.
+A data set containing the microbial taxonomy, last updated in March 2021, of six kingdoms from the Catalogue of Life (CoL) and the List of Prokaryotic names with Standing in Nomenclature (LPSN). MO codes can be looked up using \code{\link[=as.mo]{as.mo()}}.
 }
 \details{
 Please note that entries are only based on the Catalogue of Life and the LPSN (see below). Since these sources incorporate entries based on (recent) publications in the International Journal of Systematic and Evolutionary Microbiology (IJSEM), it can happen that the year of publication is sometimes later than one might expect.
 
-For example, \emph{Staphylococcus pettenkoferi} was newly named in Diagnostic Microbiology and Infectious Disease in 2002 (PMID 12106949), but it was not before 2007 that a publication in IJSEM followed (PMID 17625191). Consequently, the AMR package returns 2007 for \code{mo_year("S. pettenkoferi")}.
-\subsection{Manually additions}{
+For example, \emph{Staphylococcus pettenkoferi} was described for the first time in Diagnostic Microbiology and Infectious Disease in 2002 (\doi{10.1016/s0732-8893(02)00399-1}), but it was not before 2007 that a publication in IJSEM followed (\doi{10.1099/ijs.0.64381-0}). Consequently, the AMR package returns 2007 for \code{mo_year("S. pettenkoferi")}.
+\subsection{Manual additions}{
 
 For convenience, some entries were added manually:
 \itemize{
@@ -46,7 +53,6 @@ For convenience, some entries were added manually:
 \item 1 entry of \emph{Blastocystis} (\emph{Blastocystis hominis}), although it officially does not exist (Noel \emph{et al.} 2005, PMID 15634993)
 \item 5 other 'undefined' entries (unknown, unknown Gram negatives, unknown Gram positives, unknown yeast and unknown fungus)
 \item 6 families under the Enterobacterales order, according to Adeolu \emph{et al.} (2016, PMID 27620848), that are not (yet) in the Catalogue of Life
-\item 7,411 species from the DSMZ (Deutsche Sammlung von Mikroorganismen und Zellkulturen) since the DSMZ contain the latest taxonomic information based on recent publications
 }
 }
 
@@ -63,12 +69,11 @@ The file in \R format (with preserved data structure) can be found here:
 }
 }
 }
-\section{About the Records from DSMZ (see \emph{Source})}{
+\section{About the Records from LPSN (see \emph{Source})}{
 
-Names of prokaryotes are defined as being validly published by the International Code of Nomenclature of Bacteria. Validly published are all names which are included in the Approved Lists of Bacterial Names and the names subsequently published in the International Journal of Systematic Bacteriology (IJSB) and, from January 2000, in the International Journal of Systematic and Evolutionary Microbiology (IJSEM) as original articles or in the validation lists.
-\emph{(from \url{https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date})}
+The List of Prokaryotic names with Standing in Nomenclature (LPSN) provides comprehensive information on the nomenclature of prokaryotes. LPSN is a free to use service founded by Jean P. Euzeby in 1997 and later on maintained by Aidan C. Parte.
 
-In February 2020, the DSMZ records were merged with the List of Prokaryotic names with Standing in Nomenclature (LPSN).
+As of February 2020, the regularly augmented LPSN database at DSMZ is the basis of the new LPSN service. The new database was implemented for the Type-Strain Genome Server and augmented in 2018 to store all kinds of nomenclatural information. Data from the previous version of LPSN and from the Prokaryotic Nomenclature Up-to-date (PNU) service were imported into the new system. PNU had been established in 1993 as a service of the Leibniz Institute DSMZ, and was curated by Norbert Weiss, Manfred Kracht and Dorothea Gleim.
 }
 
 \section{Catalogue of Life}{
@@ -76,7 +81,7 @@ In February 2020, the DSMZ records were merged with the List of Prokaryotic name
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Reference Data Publicly Available}{

man/microorganisms.codes.Rd

@@ -27,7 +27,7 @@ All reference data sets (about microorganisms, antibiotics, R/SI interpretation,
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Read more on Our Website!}{

man/microorganisms.old.Rd

@@ -5,7 +5,7 @@
 \alias{microorganisms.old}
 \title{Data Set with Previously Accepted Taxonomic Names}
 \format{
-A \link{data.frame} with 12,708 observations and 4 variables:
+A \link{data.frame} with 14,100 observations and 4 variables:
 \itemize{
 \item \code{fullname}\cr Old full taxonomic name of the microorganism
 \item \code{fullname_new}\cr New full taxonomic name of the microorganism
@@ -29,7 +29,7 @@ A data set containing old (previously valid or accepted) taxonomic names accordi
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Reference Data Publicly Available}{

man/mo_property.Rd

@@ -168,7 +168,7 @@ All matches are sorted descending on their matching score and for all user input
 \if{html}{\figure{logo_col.png}{options: height=40px style=margin-bottom:5px} \cr}
 This package contains the complete taxonomic tree of almost all microorganisms (~70,000 species) from the authoritative and comprehensive Catalogue of Life (CoL, \url{http://www.catalogueoflife.org}). The CoL is the most comprehensive and authoritative global index of species currently available. Nonetheless, we supplemented the CoL data with data from the List of Prokaryotic names with Standing in Nomenclature (LPSN, \href{https://lpsn.dsmz.de}{lpsn.dsmz.de}). This supplementation is needed until the \href{https://github.com/CatalogueOfLife/general}{CoL+ project} is finished, which we await.
 
-\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LSPN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
+\link[=catalogue_of_life]{Click here} for more information about the included taxa. Check which versions of the CoL and LPSN were included in this package with \code{\link[=catalogue_of_life_version]{catalogue_of_life_version()}}.
 }
 
 \section{Source}{

man/plot.Rd

@@ -19,6 +19,7 @@
   ab = NULL,
   guideline = "EUCAST",
   colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+  language = get_locale(),
   expand = TRUE,
   ...
 )
@@ -33,6 +34,7 @@
   ab = NULL,
   guideline = "EUCAST",
   colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+  language = get_locale(),
   expand = TRUE,
   ...
 )
@@ -46,6 +48,7 @@
   ab = NULL,
   guideline = "EUCAST",
   colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+  language = get_locale(),
   expand = TRUE,
   ...
 )
@@ -60,6 +63,7 @@
   ab = NULL,
   guideline = "EUCAST",
   colours_RSI = c("#ED553B", "#3CAEA3", "#F6D55C"),
+  language = get_locale(),
   expand = TRUE,
   ...
 )
@@ -97,6 +101,8 @@
 
 \item{colours_RSI}{colours to use for filling in the bars, must be a vector of three values (in the order R, S and I). The default colours are colour-blind friendly.}
 
+\item{language}{language to be used to translate 'Susceptible', 'Increased exposure'/'Intermediate' and 'Resistant', defaults to system language (see \code{\link[=get_locale]{get_locale()}}) and can be overwritten by setting the option \code{AMR_locale}, e.g. \code{options(AMR_locale = "de")}, see \link{translate}. Use \code{language = NULL} or \code{language = ""} to prevent translation.}
+
 \item{expand}{logical to indicate whether the range on the x axis should be expanded between the lowest and highest value. For MIC values, intermediate values will be factors of 2 starting from the highest MIC value. For disk diameters, the whole diameter range will be filled.}
 
 \item{...}{arguments passed on to \code{\link[=as.rsi]{as.rsi()}}}

man/rsi_translation.Rd

@@ -8,7 +8,7 @@
 A \link{data.frame} with 20,486 observations and 10 variables:
 \itemize{
 \item \code{guideline}\cr Name of the guideline
-\item \code{method}\cr Either "MIC" or "DISK"
+\item \code{method}\cr Either "DISK" or "MIC"
 \item \code{site}\cr Body site, e.g. "Oral" or "Respiratory"
 \item \code{mo}\cr Microbial ID, see \code{\link[=as.mo]{as.mo()}}
 \item \code{ab}\cr Antibiotic ID, see \code{\link[=as.ab]{as.ab()}}

tests/testthat/test-mo.R

@@ -124,7 +124,6 @@ test_that("as.mo works", {
   expect_identical(as.character(as.mo("S. epidermidis",  Becker = FALSE)), "B_STPHY_EPDR")
   expect_identical(as.character(as.mo("S. epidermidis",  Becker = TRUE)),  "B_STPHY_CONS")
   expect_identical(as.character(as.mo("STAEPI",          Becker = TRUE)),  "B_STPHY_CONS")
-  expect_identical(as.character(as.mo("S. intermedius",  Becker = FALSE)), "B_STPHY_INTR")
   expect_identical(as.character(as.mo("Sta intermedius", Becker = FALSE)), "B_STPHY_INTR")
   expect_identical(as.character(as.mo("Sta intermedius", Becker = TRUE)),  "B_STPHY_COPS")
   expect_identical(as.character(as.mo("STAINT",          Becker = TRUE)),  "B_STPHY_COPS")

tests/testthat/test-mo_property.R

@@ -65,7 +65,8 @@ test_that("mo_property works", {
   expect_equal(mo_shortname("Streptococcus agalactiae"), "S. agalactiae")
   expect_equal(mo_shortname("Streptococcus agalactiae", Lancefield = TRUE), "GBS")
 
-  expect_true(mo_url("Escherichia coli") %like% "www.catalogueoflife.org")
+  expect_true(mo_url("Candida albicans") %like% "catalogueoflife.org")
+  expect_true(mo_url("Escherichia coli") %like% "lpsn.dsmz.de")
 
   # test integrity
   MOs <- microorganisms

vignettes/datasets.Rmd

@@ -1,5 +1,6 @@
 ---
 title: "Data sets for download / own use"
+date: '`r format(Sys.Date(), "%d %B %Y")`'
 output: 
   rmarkdown::html_vignette:
     toc: true
@@ -108,7 +109,7 @@ This data set is in R available as `microorganisms`, after you load the `AMR` pa
 Our full taxonomy of microorganisms is based on the authoritative and comprehensive:
 
 * [Catalogue of Life](http://www.catalogueoflife.org) (included version: `r AMR:::catalogue_of_life$year`)
-* [List of Prokaryotic names with Standing in Nomenclature](https://lpsn.dsmz.de) (LPSN, included version: `r AMR:::catalogue_of_life$yearmonth_DSMZ`)
+* [List of Prokaryotic names with Standing in Nomenclature](https://lpsn.dsmz.de) (LPSN, last updated: `r AMR:::catalogue_of_life$yearmonth_LPSN`)
 
 ### Example content
 
@@ -147,7 +148,7 @@ This data set is in R available as `microorganisms.old`, after you load the `AMR
 This data set contains old, previously accepted taxonomic names. The data sources are the same as the `microorganisms` data set:
 
 * [Catalogue of Life](http://www.catalogueoflife.org) (included version: `r AMR:::catalogue_of_life$year`)
-* [List of Prokaryotic names with Standing in Nomenclature](https://lpsn.dsmz.de) (LPSN, included version: `r AMR:::catalogue_of_life$yearmonth_DSMZ`)
+* [List of Prokaryotic names with Standing in Nomenclature](https://lpsn.dsmz.de) (LPSN, last updated: `r AMR:::catalogue_of_life$yearmonth_LPSN`)
 
 ### Example content