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

(v3.0.1.9037) improve cli messages

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-03-22 20:44:37 +01:00
parent 4171d5b778
commit 3d1412e8c9
20 changed files with 94 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
R/interpretive_rules.R
View File

@@ -510,8 +510,8 @@ interpretive_rules <- function(x,
## Set base to R where base + enzyme inhibitor is R ----
rule_current <- paste0(
ab_enzyme$base_name[i], " (`", col_base, "`) = R if ",
tolower(ab_enzyme$enzyme_name[i]), " (`", col_enzyme, "`) = R"
ab_enzyme$base_name[i], " ({.field ", col_base, "}) = R if ",
tolower(ab_enzyme$enzyme_name[i]), " ({.field ", col_enzyme, "}) = R"
)
if (isTRUE(info)) {
cat(word_wrap(rule_current,
@@ -551,8 +551,8 @@ interpretive_rules <- function(x,
## Set base + enzyme inhibitor to S where base is S ----
rule_current <- paste0(
ab_enzyme$enzyme_name[i], " (`", col_enzyme, "`) = S if ",
tolower(ab_enzyme$base_name[i]), " (`", col_base, "`) = S"
ab_enzyme$enzyme_name[i], " ({.field ", col_enzyme, "}) = S if ",
tolower(ab_enzyme$base_name[i]), " ({.field ", col_base, "}) = S"
)
if (isTRUE(info)) {