P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-06-29 20:56:19 +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

2
R/sir.R
View File

@@ -2119,7 +2119,7 @@ pillar_shaft.sir <- function(x, ...) {
out[is.na(x)] <- pillar::style_subtle(" NA")
out[x == "S"] <- font_green_bg(" S ") # has font_black internally
out[x == "SDD"] <- font_green_lighter_bg(" SDD ") # has font_black internally
if (getOption("AMR_guideline", "EUCAST")[1] == "EUCAST") {
if (getOption("AMR_guideline", "EUCAST")[1] %like% "EUCAST") {
out[x == "I"] <- font_green_lighter_bg(" I ") # has font_black internally
} else {
out[x == "I"] <- font_orange_bg(" I ") # has font_black internally