From 0c1709c9992072dc0d9e428e34474da41fb9dc20 Mon Sep 17 00:00:00 2001
From: Matthijs Berends <m.s.berends@umcg.nl>
Date: Tue, 23 Jun 2026 19:43:54 +0200
Subject: [PATCH] (v3.0.1.9061) WISCA refix

---
 DESCRIPTION        | 2 +-
 NEWS.md            | 2 +-
 R/antibiogram.R    | 6 ++++--
 man/antibiogram.Rd | 4 +++-
 4 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index afb40af2d..1a3b979ae 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: AMR
-Version: 3.0.1.9060
+Version: 3.0.1.9061
 Date: 2026-06-23
 Title: Antimicrobial Resistance Data Analysis
 Description: Functions to simplify and standardise antimicrobial resistance (AMR)
diff --git a/NEWS.md b/NEWS.md
index 4271c997b..d66c10a33 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,4 @@
-# AMR 3.0.1.9060
+# AMR 3.0.1.9061
 
 Planned as v3.1.0, end of June 2026.
 
diff --git a/R/antibiogram.R b/R/antibiogram.R
index 49bb406bf..9a2b200b0 100755
--- a/R/antibiogram.R
+++ b/R/antibiogram.R
@@ -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 %||% " + "
 
diff --git a/man/antibiogram.Rd b/man/antibiogram.Rd
index 195a66962..81d7ed7c4 100644
--- a/man/antibiogram.Rd
+++ b/man/antibiogram.Rd
@@ -308,10 +308,12 @@ antibiogram(example_isolates,
 )
 
 # 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")) {