From 4aa5413641a6a9c28203a69fdd31d2833061a0f1 Mon Sep 17 00:00:00 2001
From: Matthijs Berends <m.s.berends@umcg.nl>
Date: Sat, 24 Feb 2024 18:14:50 +0100
Subject: [PATCH] fix unit test

---
 DESCRIPTION | 2 +-
 NEWS.md     | 2 +-
 R/zzz.R     | 3 ++-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b858c359..73f0c3bf 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: AMR
-Version: 2.1.1.9006
+Version: 2.1.1.9007
 Date: 2024-02-24
 Title: Antimicrobial Resistance Data Analysis
 Description: Functions to simplify and standardise antimicrobial resistance (AMR)
diff --git a/NEWS.md b/NEWS.md
index 0a2af2c7..a0e8937c 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,4 @@
-# AMR 2.1.1.9006
+# AMR 2.1.1.9007
 
 *(this beta version will eventually become v3.0. We're happy to reach a new major milestone soon, which will be all about the new One Health support!)*
 
diff --git a/R/zzz.R b/R/zzz.R
index 701483d0..054b0329 100755
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -55,7 +55,6 @@ AMR_env$av_previously_coerced <- data.frame(
   av = character(0),
   stringsAsFactors = FALSE
 )
-AMR_env$host_preferred_order <- names(sort(table(AMR::clinical_breakpoints$host[!AMR::clinical_breakpoints$host %in% AMR::clinical_breakpoints$type]), decreasing = TRUE))
 AMR_env$sir_interpretation_history <- data.frame(
   datetime = Sys.time()[0],
   index = integer(0),
@@ -195,6 +194,8 @@ if (pkg_is_available("cli")) {
   # they cannot be part of R/sysdata.rda since CRAN thinks it would make the package too large (+3 MB)
   AMR_env$AB_lookup <- cbind(AMR::antibiotics, AB_LOOKUP)
   AMR_env$AV_lookup <- cbind(AMR::antivirals, AV_LOOKUP)
+  
+  AMR_env$host_preferred_order <- names(sort(table(AMR::clinical_breakpoints$host[!AMR::clinical_breakpoints$host %in% AMR::clinical_breakpoints$type]), decreasing = TRUE))
 }
 
 .onAttach <- function(lib, pkg) {