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

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: AMR
-Version: 1.5.0.9027
+Version: 1.5.0.9030
-Date: 2021-02-26
+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 
+    <doi:10.1111/j.1469-0691.2011.03703.x> and containing reference data such as 
-    Standards Institute (2014) <isbn: 1-56238-899-1>.
+    LPSN <doi:10.1099/ijsem.0.004332>.
 Depends:
     R (>= 3.0.0)
 Suggests:

NEWS.md

@@ -1,5 +1,5 @@
-# AMR 1.5.0.9027
+# AMR 1.5.0.9030
-## <small>Last updated: 26 February 2021</small>
+## <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),
+                                       for (lang in LANGUAGES_SUPPORTED[LANGUAGES_SUPPORTED != "en"]) {
-                                                      translations_file[which(tolower(translations_file$replacement) == tolower(y[i]) &
+                                         y[i] <- ifelse(tolower(y[i]) %in% tolower(translations_file[, lang, drop = TRUE]),
-                                                                                !isFALSE(translations_file$fixed)), "pattern"],
+                                                        translations_file[which(tolower(translations_file[, lang, drop = TRUE]) == tolower(y[i]) &
-                                                      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 =
+              LPSN =
-                list(version = "Prokaryotic Nomenclature Up-to-Date from DSMZ",
+                list(version = "List of Prokaryotic names with Standing in Nomenclature",
-                     url = catalogue_of_life$url_DSMZ,
+                     url = catalogue_of_life$url_LPSN,
-                     yearmonth = catalogue_of_life$yearmonth_DSMZ,
+                     yearmonth = catalogue_of_life$yearmonth_LPSN,
-                     n = nrow(pm_filter(microorganisms, source == "DSMZ"))),
+                     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 (v", utils::packageDescription("AMR")$Version, ") are:\n\n", collapse = ""),
-  cat(paste0(font_bold("Included in this AMR package are:\n\n"),
+             font_underline(x$CoL$version), "\n",
-             font_underline(lst$catalogue_of_life$version), "\n",
+             "  Available at: ", font_blue(x$CoL$url), "\n",
-             "  Available at: ", lst$catalogue_of_life$url, "\n",
+             "  Number of included microbial species: ", format(x$CoL$n, big.mark = ","), "\n",
-             "  Number of included species: ", format(lst$catalogue_of_life$n, big.mark = ","), "\n",
+             font_underline(paste0(x$LPSN$version, " (",
-             font_underline(paste0(lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$version, " (",
+                                   x$LPSN$yearmonth, ")")), "\n",
-                                   lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$yearmonth, ")")), "\n",
+             "  Available at: ", font_blue(x$LPSN$url), "\n",
-             "  Available at: ", lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$url, "\n",
+             "  Number of included bacterial species: ", format(x$LPSN$n, big.mark = ","), "\n\n",
-             "  Number of included species: ", format(lst$deutsche_sammlung_von_mikroorganismen_und_zellkulturen$n, big.mark = ","), "\n\n",
+             "=> Total number of species included:  ", format(x$total_included$n_total_species, big.mark = ","), "\n",
-             "=> Total number of species included:  ", format(lst$total_included$n_total_species, big.mark = ","), "\n",
+             "=> Total number of synonyms included: ", format(x$total_included$n_total_synonyms, big.mark = ","), "\n\n",
-             "=> Total number of synonyms included: ", format(lst$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*):
+#' @section About the Records from LPSN (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.
+#' 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.
-#' *(from <https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date>)*
 #' 
-#' 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.
-#' @source Catalogue of Life: Annual Checklist (public online taxonomic database), <http://www.catalogueoflife.org> (check included annual version with [catalogue_of_life_version()]).
+#' @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",
+  url_LPSN = "https://lpsn.dsmz.de",
-  yearmonth_DSMZ = "May 2020"
+  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

@@ -100,11 +100,20 @@
 #'                size = 1,
 #'                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",
+  names_susceptible <- c("S", "SI", "IS", "S+I", "I+S", "susceptible", "Susceptible",
-                         unique(translations_file[which(translations_file$pattern == "susceptible"),
+                         unique(translations_file[which(translations_file$pattern == "Susceptible"),
                                                   "replacement", drop = TRUE]))
-  names_incr_exposure <- c("I", "intermediate", "increased exposure", "incr. exposure",
+  names_incr_exposure <- c("I", "intermediate", "increased exposure", "incr. exposure", "Increased exposure", "Incr. exposure",
-                           unique(translations_file[which(translations_file$pattern == "intermediate"),
+                           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",
+  names_resistant <- c("R", "IR", "RI", "R+I", "I+R", "resistant", "Resistant",
-                       unique(translations_file[which(translations_file$pattern == "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)
+  cols <- replace(original_cols, names(dots), dots)
-  ggplot2::scale_discrete_manual(aesthetics = aesthetics, values = colours)
+  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,
+    unlist(
-           pattern,
+      Map(f = grepl,
-           x,
+          pattern,
-           MoreArgs = list(ignore.case = FALSE, fixed = fixed, perl = !fixed),
+          x,
-           SIMPLIFY = TRUE,
+          MoreArgs = list(ignore.case = FALSE, fixed = fixed, perl = !fixed)),
-           USE.NAMES = FALSE)
+      use.names = FALSE)
-    
   }
 }
 

R/mo.R

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

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 
+    &lt;doi:10.1111/j.1469-0691.2011.03703.x&gt; and containing reference data such as 
-    Standards Institute (2014) &lt;isbn: 1-56238-899-1&gt;.">
+    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">
+    <div id="amr-1509030" class="section level1">
-<h1 class="page-header" data-toc-text="1.5.0.9027">
+<h1 class="page-header" data-toc-text="1.5.0.9030">
-<a href="#amr-1509027" class="anchor"></a>AMR 1.5.0.9027<small> Unreleased </small>
+<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">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"><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">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>
 
@@ -461,11 +461,20 @@ The <a href='lifecycle.html'>lifecycle</a> of this function is <strong>maturing<
                size <span class='op'>=</span> <span class='fl'>1</span>,
                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:title" content="Data Set with 70,026 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: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>Catalogue of Life: 2019 Annual Checklist</p><ul>
-<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><p>Annual Checklist (public online taxonomic database), <a href='http://www.catalogueoflife.org'>http://www.catalogueoflife.org</a></p></li>
-<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>
+</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.
+<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>
-<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>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>
-<p>In February 2020, the DSMZ records were merged with the List of Prokaryotic names with Standing in Nomenclature (LPSN).</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

@@ -185,11 +185,20 @@ if (require("ggplot2") & require("dplyr")) {
                size = 1,
                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}
+List of Prokaryotic names with Standing in Nomenclature: March 2021
-
+\itemize{
-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()}}).
+\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")}.
+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{Manually additions}{
+\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.
+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.
-\emph{(from \url{https://www.dsmz.de/services/online-tools/prokaryotic-nomenclature-up-to-date})}
 
-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