(v2.1.1.9156) fix for knitr in WISCA

This commit is contained in:
dr. M.S. (Matthijs) Berends committed 2025-02-23 19:18:42 +01:00
1 parent aa8f6af185
commit b10989f431
9 files changed
+6 -6

No files matched your search

+1 -1
View File
@@ -1245,7 +1245,7 @@ knit_print.antibiogram <- function(x, italicise = TRUE, na = getOption("knitr.ka
meet_criteria(italicise, allow_class = "logical", has_length = 1)
meet_criteria(na, allow_class = "character", has_length = 1, allow_NA = TRUE)
if (isTRUE(italicise) && "mo" %in% colnames(attributes(x)$long_numeric)) {
if (!isTRUE(attributes(x)$wisca) && isTRUE(italicise) && "mo" %in% colnames(attributes(x)$long_numeric)) {
# make all microorganism names italic, according to nomenclature
names_col <- ifelse(isTRUE(attributes(x)$has_syndromic_group), 2, 1)
x[[names_col]] <- italicise_taxonomy(x[[names_col]], type = "markdown")