P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-09-06 04:09:39 +02:00
Code Releases Activity

(v2.1.1.9227) unit test fixes

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2025-03-27 15:36:27 +01:00
parent 969a42cc8c
commit d77ad6bd6e
11 changed files with 21 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/custom_eucast_rules.R
View File

@@ -253,7 +253,7 @@ print.custom_eucast_rules <- function(x, ...) {
if (is.na(rule$result_value)) {
val <- font_red("<NA>")
} else if (rule$result_value == "R") {
val <- font_red_bg(" R ")
val <- font_rose_bg(" R ")
} else if (rule$result_value == "S") {
val <- font_green_bg(" S ")
} else {
@@ -297,7 +297,7 @@ format_custom_query_rule <- function(query, colours = has_colour()) {
query <- gsub(" %in% ", sub("{text}", " is one of ", txt, fixed = TRUE), query, fixed = TRUE)
query <- gsub(" %like% ", sub("{text}", " resembles ", txt, fixed = TRUE), query, fixed = TRUE)
if (colours == TRUE) {
query <- gsub('"R"', font_red_bg(" R "), query, fixed = TRUE)
query <- gsub('"R"', font_rose_bg(" R "), query, fixed = TRUE)
query <- gsub('"S"', font_green_bg(" S "), query, fixed = TRUE)
query <- gsub('"I"', font_orange_bg(" I "), query, fixed = TRUE)
}