P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2026-06-24 06:56:21 +02:00
Code Releases Activity

(v3.0.1.9061) WISCA refix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-06-23 19:43:54 +02:00
parent fd90b2c250
commit 0c1709c999
4 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/antibiogram.R
View File

@@ -209,10 +209,12 @@
#' )
#'
#' # stratified by syndrome or clinical group
#' wisca(example_isolates,
#' out <- wisca(example_isolates,
#' antimicrobials = c("TZP", "TZP+TOB", "TZP+GEN"),
#' syndromic_group = "ward"
#' )
#' out
#' wisca_plot(out)
#'
#' # stratified using grouped tibbles (e.g. by age and gender)
#' if (requireNamespace("dplyr")) {
@@ -1538,8 +1540,8 @@ wisca_plot <- function(wisca_model,
isTRUE(attributes(wisca_model)$wisca),
"This function only applies to WISCA models."
)
meet_criteria(wisca_plot_type, allow_class = "character", has_length = 1, is_in = c("susceptibility_incidence", "posterior_coverage"))
wisca_plot_type <- match.arg(wisca_plot_type)
meet_criteria(wisca_plot_type, allow_class = "character", has_length = 1, is_in = c("susceptibility_incidence", "posterior_coverage"))
sep <- attributes(wisca_model)$sep %||% " + "