From 8a8af63f68a9b70f9924c9f40fc84a94d26d1aa3 Mon Sep 17 00:00:00 2001
From: jamesaazam <james.azam@lshtm.ac.uk>
Date: Wed, 15 Nov 2023 23:24:32 +0000
Subject: [PATCH] Linting: switch logic of ifelse statement for readability

---
 R/utilities.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/utilities.R b/R/utilities.R
index 24d319973..2b2c3cee9 100644
--- a/R/utilities.R
+++ b/R/utilities.R
@@ -62,8 +62,8 @@ make_conf <- function(value, CrI = 90, reverse = FALSE) {
   )
   conf <- paste0(
     value$median, " (",
-    ifelse(!reverse, CrI$lower, CrI$upper), " -- ",
-    ifelse(!reverse, CrI$upper, CrI$lower), ")"
+    ifelse(reverse, CrI$upper, CrI$lower), " -- ",
+    ifelse(reverse, CrI$lower, CrI$upper), ")"
   )
   return(conf)
 }