P281424/AMR
1
0 Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-11-16 00:10:57 +01: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 authored and GitHub committed 2026-06-27 13:53:25 +02:00
1 parent f7d353361c
commit 12cabca29d
7 files changed
+33 -13
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

R/plotting.R
+3 -3
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)