P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-06-30 09:36:22 +02:00
Code Releases Activity

(v3.0.1.9076) fix: normalise year-qualified AMR_guideline option in all affected functions

Browse Source
This commit is contained in:
Matthijs Berends
2026-06-27 13:53:25 +02:00
committed by GitHub
parent f7d353361c
commit 12cabca29d
7 changed files with 33 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/plotting.R
View File

@@ -482,7 +482,7 @@ scale_x_sir <- function(colours_SIR = c(
R = "#ED553B"
),
language = get_AMR_locale(),
eucast_I = getOption("AMR_guideline", "EUCAST") == "EUCAST",
eucast_I = getOption("AMR_guideline", "EUCAST") %like% "EUCAST",
...) {
meet_criteria(colours_SIR, allow_class = "character", has_length = c(1, 3, 4))
language <- validate_language(language)
@@ -499,7 +499,7 @@ scale_colour_sir <- function(colours_SIR = c(
R = "#ED553B"
),
language = get_AMR_locale(),
eucast_I = getOption("AMR_guideline", "EUCAST") == "EUCAST",
eucast_I = getOption("AMR_guideline", "EUCAST") %like% "EUCAST",
...) {
meet_criteria(colours_SIR, allow_class = "character", has_length = c(1, 3, 4))
language <- validate_language(language)
@@ -528,7 +528,7 @@ scale_fill_sir <- function(colours_SIR = c(
R = "#ED553B"
),
language = get_AMR_locale(),
eucast_I = getOption("AMR_guideline", "EUCAST") == "EUCAST",
eucast_I = getOption("AMR_guideline", "EUCAST") %like% "EUCAST",
...) {
meet_criteria(colours_SIR, allow_class = "character", has_length = c(1, 3, 4))
language <- validate_language(language)