From fcccbda439e0d069f4c897944dd9e3c1639e91bf Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 09:19:37 -0400
Subject: [PATCH 01/13] Allow `NULL` for `input$region_selection`

---
 R/mod_review_config.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/R/mod_review_config.R b/R/mod_review_config.R
index ed64d9f4..09698b50 100644
--- a/R/mod_review_config.R
+++ b/R/mod_review_config.R
@@ -113,7 +113,6 @@ mod_review_config_server <- function(
     observeEvent(input$config_review, showModal(review_modal()))
     
     observeEvent(input$region_selection, {
-      req(input$region_selection, input$site_selection)
       selected_sites <- with(sites, site_code[region %in% input$region_selection])
       golem::cat_dev("update region selection to ", selected_sites, "\n")
       shinyWidgets::updatePickerInput(
@@ -122,7 +121,7 @@ mod_review_config_server <- function(
         choices  = selected_sites,
         selected = selected_sites
       )
-    })
+    }, ignoreNULL = FALSE, ignoreInit = TRUE)
     
     observeEvent(input$save_review_config, {
       golem::cat_dev("\nStart applying global configuration\n")

From 047fc911dbf0cb78543836661170cb681fde3822 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 09:35:29 -0400
Subject: [PATCH 02/13] Give feedback if either no sites are selected

---
 R/mod_review_config.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/mod_review_config.R b/R/mod_review_config.R
index 09698b50..4c9d313f 100644
--- a/R/mod_review_config.R
+++ b/R/mod_review_config.R
@@ -123,6 +123,11 @@ mod_review_config_server <- function(
       )
     }, ignoreNULL = FALSE, ignoreInit = TRUE)
     
+    output$review_config_feedback <- renderText({
+      req(!isTruthy(input$region_selection) | !isTruthy(input$site_selection))
+      "You must select at least one site/region to review."
+    })
+    
     observeEvent(input$save_review_config, {
       golem::cat_dev("\nStart applying global configuration\n")
       req(input$site_selection)

From 9be34fb5cc4777ca77d6660d835685708ad2fac6 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 09:41:01 -0400
Subject: [PATCH 03/13] Update NEWS

---
 DESCRIPTION | 2 +-
 NEWS.md     | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 091b744c..53279592 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: clinsight
 Title: ClinSight
-Version: 0.0.0.9004
+Version: 0.0.0.9005
 Authors@R: c(
     person("Leonard Daniël", "Samson", , "lsamson@gcp-service.com", role = c("cre", "aut")),
     person("GCP-Service International Ltd.& Co. KG", role = "fnd")
diff --git a/NEWS.md b/NEWS.md
index 0569b3f6..1de72a90 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -17,3 +17,4 @@ to minimize the package dependencies of the production version.
 ## Bug fixes
 
 - Fixed error of creating adverse events table with empty data frame input. 
+- Properly handled zero regions selected in review configuration and provided user feedback.

From 831dbe799475a798414bb2b2b51caf1906c3411b Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 10:05:39 -0400
Subject: [PATCH 04/13] Account for `review_config_feedback` in tests

---
 .../_snaps/mod_review_config/mod_review_config-001.json  | 9 ++++++++-
 .../_snaps/mod_review_config/mod_review_config-002.json  | 9 ++++++++-
 .../_snaps/mod_review_config/mod_review_config-003.json  | 9 ++++++++-
 3 files changed, 24 insertions(+), 3 deletions(-)

diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-001.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-001.json
index 275b750e..acca5029 100644
--- a/tests/testthat/_snaps/mod_review_config/mod_review_config-001.json
+++ b/tests/testthat/_snaps/mod_review_config/mod_review_config-001.json
@@ -20,6 +20,13 @@
     ]
   },
   "output": {
-
+    "test-review_config_feedback": {
+      "message": "",
+      "call": "NULL",
+      "type": [
+        "shiny.silent.error",
+        "validation"
+      ]
+    }
   }
 }
diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
index 18bf37dd..7b56b1cd 100644
--- a/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
+++ b/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
@@ -9,6 +9,13 @@
     ]
   },
   "output": {
-
+    "test-review_config_feedback": {
+      "message": "",
+      "call": "NULL",
+      "type": [
+        "shiny.silent.error",
+        "validation"
+      ]
+    }
   }
 }
diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
index f21deca0..9ee8821e 100644
--- a/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
+++ b/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
@@ -9,6 +9,13 @@
     ]
   },
   "output": {
-
+    "test-review_config_feedback": {
+      "message": "",
+      "call": "NULL",
+      "type": [
+        "shiny.silent.error",
+        "validation"
+      ]
+    }
   }
 }

From 4395211376458fc0b31c287158b29caedb6a899a Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 10:25:28 -0400
Subject: [PATCH 05/13] Rename third test snapshot for `mod_review_config`

---
 ...w_config-003.json => mod_review_config-004.json} |   0
 ...w_config-003_.png => mod_review_config-004_.png} | Bin
 2 files changed, 0 insertions(+), 0 deletions(-)
 rename tests/testthat/_snaps/mod_review_config/{mod_review_config-003.json => mod_review_config-004.json} (100%)
 rename tests/testthat/_snaps/mod_review_config/{mod_review_config-003_.png => mod_review_config-004_.png} (100%)

diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-004.json
similarity index 100%
rename from tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
rename to tests/testthat/_snaps/mod_review_config/mod_review_config-004.json
diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-003_.png b/tests/testthat/_snaps/mod_review_config/mod_review_config-004_.png
similarity index 100%
rename from tests/testthat/_snaps/mod_review_config/mod_review_config-003_.png
rename to tests/testthat/_snaps/mod_review_config/mod_review_config-004_.png

From 86ff65565f235acf5a58adcf1262fc1c92898e03 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 10:26:12 -0400
Subject: [PATCH 06/13] Rename second test snapshot for `mod_review_config`

---
 ...w_config-002.json => mod_review_config-003.json} |   0
 ...w_config-002_.png => mod_review_config-003_.png} | Bin
 2 files changed, 0 insertions(+), 0 deletions(-)
 rename tests/testthat/_snaps/mod_review_config/{mod_review_config-002.json => mod_review_config-003.json} (100%)
 rename tests/testthat/_snaps/mod_review_config/{mod_review_config-002_.png => mod_review_config-003_.png} (100%)

diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
similarity index 100%
rename from tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
rename to tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-002_.png b/tests/testthat/_snaps/mod_review_config/mod_review_config-003_.png
similarity index 100%
rename from tests/testthat/_snaps/mod_review_config/mod_review_config-002_.png
rename to tests/testthat/_snaps/mod_review_config/mod_review_config-003_.png

From 571accde912a63e4c0aff4ee77ecb34711534712 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Thu, 11 Jul 2024 10:30:36 -0400
Subject: [PATCH 07/13] Add test for zero regions selected in
 `mod_review_config`

---
 .../mod_review_config-002.json                  |  11 +++++++++++
 .../mod_review_config-002_.png                  | Bin 0 -> 23647 bytes
 tests/testthat/test-mod_review_config.R         |   2 ++
 3 files changed, 13 insertions(+)
 create mode 100644 tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
 create mode 100644 tests/testthat/_snaps/mod_review_config/mod_review_config-002_.png

diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
new file mode 100644
index 00000000..64597ce4
--- /dev/null
+++ b/tests/testthat/_snaps/mod_review_config/mod_review_config-002.json
@@ -0,0 +1,11 @@
+{
+  "input": {
+    "test-config_review": 1,
+    "test-region_selection": null,
+    "test-save_review_config": 0,
+    "test-site_selection": null
+  },
+  "output": {
+    "test-review_config_feedback": "You must select at least one site/region to review."
+  }
+}
diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-002_.png b/tests/testthat/_snaps/mod_review_config/mod_review_config-002_.png
new file mode 100644
index 0000000000000000000000000000000000000000..44cfd3a2cbcdd7e8ce9883bd928b8c61a4e65309
GIT binary patch
literal 23647
zcmeIa2UJvBw<cQZF`{BdLExYwl9ed=hyqHKEEz#^&Y?((0uohnMi3B+AUT6b&Y>uB
z&KaSgprC-BrT@LR$LQ{R`~L5~e*MNcH5^jx+O_stbI$e6Z-&MD=h9;5&XAu$AQ0!C
zJ$)jFK%9_AAdZ!tIto{0qGt5r#}OMjF=0ej`^^Oe;!ni0Cyx{yW0psp)O#=o4eQ6w
zkDv81O-wXQxD`dR`c*GXA}ca2d9=B^JHOmW&qxCu9U2xIrk`eHlrsCNBwQlWH=)?$
z)+N6?_ZZkbl3Gul{kb=_89kfpU*i*q-P&^5@pj=E!|undg|F(3#@SR#v+K8B5I#j?
zK3x1UK3?m^ix=wZOfV_p%X@Npd3kbja&}g!!r9L03GLf^3=F0AD^bD0!DVI00%J@}
zOw6(d-S4}f^U%`Liin6fIXQ8g4}X<S5+&a7?gDSDbg~>KLq$GW?jrKYuY12=<l*6o
zWMheyrh9A2b^WZgv@{hJ6)x-C?~%S9h2P-X3D0UCA)&F6k&)4@-=829MU%Rw=jQk*
z0z^Z__11KLU-n=~l1uX!O|r4FdVu`LGyZxO6C3O2=NG%8apLz~mTDhden0=O$fuRR
zuO&#{(fa-F`Q1;fzu(=v+(h>KUC8@slHc!|pKKie{Z8)|o~Szn!h`MOzYeERWNrQE
z<x98MIbXkiU0nSA6vW#LiK+$0=2<LREQNE*h4GQ8RkDU0gD$+kN78;IEBkRmRQBcP
zW)1m~LMl`Bm8Z+UpW-o;`Q^zK@&Kn@io#fPi4Dc)FaGr-zNAh=rhE7DC!VN%%65s)
z`s4R#{dcQ=O4DkIh}3b#{9~&9^@aS+^{)R|sz=$)|IKx!Eo;D-$ycvko1L2@yAe>I
znE2__C1m)qWX5J`U*3)IQ^wSzJ!Mf9en)PCDFmm(Dj7nfqoYCG6)i^)<J2HjkFuxF
zp1s%1W~HZJ9YHBi)d!FtKiQX|f*ut)f-s+4#GvR6I_}cau8roUCM0|(D*5UW#7}O}
z!uOFMh8&t@DJJBXHoA**1O)|gEGH4#nNgf3g=Xj!vuLggXWWkS`ls42cSwWC8Lq~2
zA`rL+LE=M2+}zxr2H&-ii53T0o^Nhwm|HQDe;mcp)X`Doz>Gkg`t^XsZ{NOs`QrFv
zCwy7s6k=Sdg2O!H0xcNV=sN`BFVJ-{ADEfL!tlV*&=B#Od1z3OjAN=anD#dZ8U%u9
zN~`BZM0JDj2CQftM<f`(eak`5!jS85^<O>&v2}JnM=Bpdd?lx$p%EoMSi=J>%2N3r
zJ$>5DoWU9c0-=~xSmkbIl~aKNllm8PJ0tS%n%jS|_5Ry%g?F?t=^w*?+wXXL4s%fM
z%uQ}(Ws3ISHjglsA4%bF4x4Vlh|DC)4Org#ZG6vFvRD|%$kcw^qv&HUHA%nh_KzX#
zZDi9p78eU+O_0trS!tTjpGRmtf1#jmYV!}&_^TwHhp()pw6t_EPHUvQoLO0!Oj$Wx
zZ2<;I8}}NmJpO8K+W!WhAQx_0_t<X7!MH$ys@a(Hs(+1GBAv8zg_rl9vKGrJqwfCE
znf^!C;>}pydX2`$>)VqNMJeUxYIG+&Cn~mu2v+;`?^%Q5cQzcaVka4cs6|9JHai`i
zocqhpAih@w7I7R!+*Gr&T90Huz2^Qf)gb<$nx@V3ag=xADGGkmo#r+7d-s^~9qb&+
zT-}#Dnw!P<m((RqGb&81w8_}m&Wk=dLxZFC@6;&MU$ee>Nyrz080Vq^sCf9ToPR%q
zbZ(P+vvy-mDNZ1of%MvyE4B4;{BE~W8V&OuUb{20upF>ISim0FYLD4^U9J7if#-03
z1Z7Zj;+*R6Sh>^-6J+1y_r>FXY&zwKmzAY7)Qkw2^n5tEveB8X-lST!o_hMSmeeyI
zq(RmT#T{8dgrd`V>qiiQ&4wH-d$_WzjLN5J$hi!EZdQqMoICw-Ok7;Lxv8nZ;q_r7
zAp0U8dPYth*|#Ay__pA{wSyIx^<yFpv*?ggvDKbm)Ji%y^O^O~ylyhN1?CXq^NG*C
zi=jFQbYCn*w4Fc(3DmybHWkg2vO=?KZi3nNX71=Bs`<fztYo4c6f=Gsyoeb8nx$2h
zRhAxX(#9`f(qDFyXgUs*uq!;0tZnR2Sy?P^pGxyY2P1<E0>G76rA}!%Z54dOO@JcG
z1iF{<@LI3*^hP!rl;U2<$!!?ubPu5oY>{7-EuUgP%w~G=^XPPpj^)}|pCF|et(5QU
z?++ICVIC?R8!Od-TY_fYRJ*Q{Qoj#V+sYpLw*KRtKS=GI(Wvp_5E_fcW@d|J_p$ET
zi&VW1I_b?pYC<iz<jJF=qC(xa&++gJ-g5+bH}y-S{t}mINFT4uozk8KA+tfkGM4pi
z;VF{yMx!|rMMWw5bgQ;5&zgix=Fgs}`O=s2hc^c`ziBZSAK$7i;qCiuFSyt2B5tiI
zJ2g2q+5x<+%bne?Y0I$8B+)8Ic>j)1>-qDadzJfBT6l*BmJ!J!+oeKE(Y%$R)+MmJ
zUDE@y+;v?~@6|nBB5u4B!ylSuXk3km4bGd6*4qd>;mxr&kb0Pk6|9O2r>o+0?Eg9b
zVK!JZTIc@t45#^7(tG(L{dpZ#mgCw_(%y8$SKZ%6JEg>bZ8$+%@N@J8-ja+}<F3Q-
z+K5Af3&#Kt&uq|mrqSWYqNkd+L%7)E$B%PU78}{}@RVpVYm)a0mcvd-OLHHwWpZ-b
zUC$=)J^bQy_((>*)McQ2NFtndn|kvJNFO9ag!vyqIwG-TSFTC#b(DcxPYOI>l0b3B
zTJs)AdjCB6=5dre9;1VP6f3>GjMWvV1WVpNs>BCdQ*or!uG9f}pLWKS5Xs&VbYpwf
zJ;m<)+Vrw|yU^nGfO?B6HJ<G}d`jmu0Z&3g=DNR>B|uWOlkse-{;I~0=F0)1Q;FH(
zOzN8jX^~xq{1-1Hmv`P5nho{yf47<IR&uN2J!ri_QyW0R?d#{4nL)>nZLXrLGH(vG
z<sB(vREi4>+Q#8>XG;w_QYsH-d-{V@CB<@cb9*faM(A1QY)MC>9}>EX>D^UAHy>Vq
zfUO|4<&7m+gTzv08d&j*EusN$^hCL~(fF}U!f20XDw^`)^{y(d_&~}*Wrg}5B3i64
zwFL<$37Oj3yQ%&FR6BB<>gBdZqjMyZj|2HAh3pB8Hi8jbwd0RAz_m7|#21wdxO&mg
ze>96D=gL<YRmhs6)6tA2)W7pTi!HPL`FtANA;361V&UvepS)`M=uvgG&tqBdpop>2
z6+Zh)?5ev|QI8=<eQY4<`7`8Po2Mrx<pvmMXBLDaxwXuF4cxjsFM7i+o(T@p-`nde
zHKM~G$L9$}l})5d3Hy*!QHj)va8vpL9%;o3R;>=&%t{KoxCqA%7D!dpHPFTI1SiO)
z?QXgDU@#ajikZd9Zd!gqgB?YCN=lrN`)Eg>G8Z2ub#`0(HQ_t7v=nDg6sR)4Ew<%h
zr=?X)mMgI6E6jBuMIat>%!04I87iJk&W(E)CqQ)(Zl@E%4oA?)1Pr^6C*-s;QWlwx
z2!i&7eVVeR{RQkF^3bd{V8%|4^xdcD!MBL`F_$}ZL|v8;7k7J6VShkI5+JIZr~lcH
zjQQaur}3xLuPv%n)U!1`l-r`lSTxGF`zV=LEm+>pV-2%C-IoQNA5PAkW*xEhU{v0}
zaMML=`n9XU<*7M$F6B%mHF+73>>No|$c;{Une!uiOMyw=w<{0LRovVTvdeJ8n~9N;
z%A;|Dw{g?-%F2Du4&7$HR|;%wo?jUPYW2>qa<rh#mJY1M{h`4sMRo<b-OnH)+$uR?
zM_1UVr>cF0U>6>9+y2h(d^*PD?FH6Ar-Pl3jd}0aQ>Ab28&8mN8oy9YQdLmkn10_-
zWIFi4l9y|y1C4Z8aVbV})6~jDa~;~Ps;AYX4G7%#<|`|zR*7q_h(v2>XuzhZmlB$r
z)eJqSqa#zfUA_F~%^T+<N3>WX-0y6Bf9;B_4??atY*DaimcGKrP0uWZv#7bz+`c_u
z>1E>nBJ#RB8%Vlngb&F-JTj0Lqm|4gw8@ldzuUU4BNJyll0H*!XY%Rtq)rf}n^h}T
zG|6fqcgDINJ<}2?QK^!JUKlJe!!89fH=VY6zfM<VHrikAWGEt1$v=?{LKGF)%fFCl
z9?MJNrtZ3FSz9DQhQwqTagc|*<Vn_R0txKTHLB^VxrlThd0@RG&k(w(UHiF%%*_cM
zsU_?qgrnxCx{RG#TnoNDd472aT`YUsq`o^{(Jx_-{0z;lq{P;wiT#tLXJ~lyE&56o
zQP!*mQgdxloS9@7K7^;rJbfBsaP`WyIG^{S?n17!l1jZ}Hr1cx<v<oaO!*70=O{*P
zzW`f&M)ZN_TRZx;{hZ><1@VeJ26uq1*yz>=lJDy*Y8~FW9nNZywc{4rW$5BO?Xy0m
znIW6xm6vDZja#|9k4(I9Yx4Q@z@b*YqHic&N^)wp`j+Q~L|tzj*y1qCfK*6JOGs<X
zyHsFjv+-hkd%LD4r-?HrBSr2sjk<<<MMb$wd4)hm#J!$xk808^Dqjwkj5RyA$4QOs
z4Xv@^oVR0*9zEK|JAz4c<6Dknqq$A&(S8S|$c~TmNerRJz3yYNfHt7^jZLR`x8ZUX
z_N1<2`w?gKlRHg@9F>B2jC;WK)io`~``-?hg0;-ZyPur0+E7rB(`0>H91}@@J4lRb
zb#+Ej{?x>3mQ%h%M`aMM@OhI>hah%+nG_hzFs81qsfiwpCMlkRHhd#FIhGZ(GqFm#
zZ!p-Ckg!K^arGABS#J9L`0a)F@1I$Rg>@MY=U~ZVrRNqF@O1>4J;A}Dj=mzzzrKHQ
zui9wu;kIy=*&x|q)o8yWoNwBdsOPt*$Pk*BhXtinvQ5zP#K?gm##Sx+`tvTYX_@r8
z8|0rhSy^6IPZAASpQ^V%zZMdnI##jGoz&&HvRkmce3RzMp1oN#hdG428FFb++$LPO
zcMq&j$g9B81V=|PBg3zb#Km!fs4L2idHMM0=u!#AZk`u(eoh6sa&0GF+veV0$DKb@
zYB5{3#xG#~_JU4JubH*+XFbuR^_8O0<<81jBmHDf-88i#^M*jm>GBfP;bCxaGDehI
z;O^V`o1<y^QXRic&~CBEsFz9M)J5cCi2BK>*jQH(b_3u=;b}ex7Uro*ksC5Cp{Ztr
zZ}Gdk!~bT3ftk)*i>yJ^+YO@{@B?H=|JKK!m(bH_aO=EC^9iGc1%pcmSA;hmzm(xG
zm83{LUhGXvYHOF4lw>F}V3gr^<G;I=Z38AjC??BPVbib3()h8|n<hWt+<u1;8R;aF
zEGKZ#{}(po3v5b_vbSoLIuLFF3yyh@Mv0Nq(a~Yid;EhEr#^oA#Gw0UF!;Q(w+?Ka
zINXLY`K4QLi$8_Z8eHN$bKc&e?-Y$-^r6VBo{8Mxjb=quSiGi%kD&8%^vqZVxYr||
zUO@Ua-54d*oVD@<gK%NtAA*ml<r}iR?bJ8Ws&dmfWwr0DDY^WNrZ%a<d31~rzthpw
zlx8z`Skg4JVd+3>H2mV!dP~-bM7S$*rn#-i8|5=VX-<99Hh#geEh^6XP5%OVy)SzX
zkKg4qym0Srf3Xo305%H<Joc)T(52PYsE;-AY$LQzNxR!iQ>$4I;@R~c<#ncHsup}*
zegPYAcXKsaE={^FR$BT1>B&>l(=}G5)FDR2b@%{fItONxsa6p3z{K9ZQ2lmHNC?4j
zEsoT|z0r_^O2A(Il-0^$0sHCGY;i1QN|0{27u`HCP*Pl6Jggy$Kv-TWFxjhujVIed
zFsTmL%EVi_Dk=3Y2MMZdZ2j;kwUa;Gl@Mj_;O9;mwjl|avAAJA0~_a=u+QMZ!Peq&
zg@uSGNut%Wpa0TZqUS7v&9{(p=n$XU*YaMsfIt`?J}_9K1$9L(X_VX2&mD40h4b_C
z4+}6!y)*&P_R|#wHe$EgrF-a%bCQwiAQKhhwyu?jeQ-5aPEIb@wSjfb_5M)4Qxytj
z0uEooEXHDTN!RF>Oc>WvcXEsHDQfC9IW=(}zA-{!acODg{n?U;{@`a#P1vdz4-fs`
z#n$jixj4CiQ8VsQge;u57|XHQ3yjsHxbElcE8*)}UO`vR!9~wQ%gDGi5}7xObhq!I
zBCX<G5B+dApr!3SQ?Sq_P0otu_N;UjG#ZtntQmKpt~w~Sce-><(4kGJIx<xEqVQWT
zvq3=Wv|{ug>CNT-&#tnvvab|EF5D{DZSXor5rSl1;#(V}B`ncOpu4+SG)fgx?N^c-
z0?SHD3QwEF#>ScqE;3@9LwkB`wvHYZj#4O2qedW}Q$;%PpcEJw4;QXN#vvv?eryv$
zrH8XlG*5t=T1SyCL&gi1N9c{`7UZ$@L7`C6se8cNJx`G4{WNd5-6eL&K2-&wg^U1?
zZ9|w8oy-%u+Bz4Gy?s8l9ib==^Kzq_!65xARx)c*QA#R&t4*F@OmKK=m6Y=GU^13<
zh+D=LyH#pO<h@#MBLY9yX~vlLdM~=0VYjm};4w;u1~Dk!OfEISU8*2{^{z>&rQ;_~
zcySng3QrXR>MOv?iknXRa98T+v15RFJzr(N4KFf2pvMb~ib4zr24uw#$+%U0(Ii>0
z@gCy>&Ft*?P)J-oycQ~sS*bo*samdZiblCKQgA6tr65th;e4-y-pqUJy9%qAVU)7n
z)q=E3O1)DP6EtJTBjXQ+kYT|3XEiH~@s|Kf7yD3T6vz#6B_%hvM`;SeSsNx7uFq?s
zy8U=#V`8GbI3lqV84GKYLxs9?%R#f6jg2pg=TYzCJAzFV+CpJ3;r0Y$r6HR%kGibI
zRdJznwzHuPlL=Xb3qLHUya>k|H#3)Db8EI0qyY10H*LK9_=M0wpVpjU1h#8!510L-
zB>nN8{r)b$u`6u~AEDplAWz7#!+LdUYDEBmAN-WvhQe?LseVHo|5jbNAFr(;S#N2<
zmhu&04%5zrL~2>|Psl2zDa418`vnKf&;67J#0XB6-nU!LhV=u`nhs35kyzmJE3r{=
zam;Fk4=-MhjtGhQWDTO1ccog<K%?c8l*Yy~1_HI*1l%Wn03Zqb^k%A!I(I_K@}`ew
zwlWISZf<U#(gD9e{E)x7dF<qE@njm{QHQTRH`dsWrE68ixfBco&s1RG&Dp3`VpeO8
z{iKw=zm97|<W|P%fBtOkhoa<je_#<75wW>fDa52DoYeJ}>)b`*C)5J=<Jxas*pou6
z)+gJw?3;=f@Oyhh{AU~-+JYa)I~w<2pm}1vSklU<++0{<HB}F^P56{zfpJO*Bo?TA
z{c~3mAvqU7ah!w(x4JJdW17BD44%7Uu1H*f)4*VEd^`biFf<M)`Ro|7<U+q<jCo9$
z78@^O#hIR`DVPnttymwtgAZ$}{W2}CA$#f~Ir%O3C)|YmCW2H7tg)q+(#gr${ZO?{
zI9jQ2NIW3f2>qdbVgdrq{gb!Oi{4}-4<NN&(Rr!Gzr?4UrZ7U~_?P)s!CKHhFz#u6
zP2+-6yQQ#=i}AjGHV%FHr%~!Ur$DYzlBL7L!!a`_k5y=9V~o$8cuY*cnH)oWXMpI|
z;?SV}dxJOAo_$@lPow9>j}Y0g&tw*bv+OCc$OI!J`$$gBk7Z|H(7`NnvXAZk$+^Yq
zS^fO^3rCvUQxM&}nzB}L(rLN2EyQK%aX|;&p;lkDvG%n_3=$K$`GX@!T-J*c@j_We
zlu}I%crl1VgHtDgQ*I8eai9Kdo=n9Ps=ttHA#^aEM{?tait0+cmV;EpPP()MHlX|D
z=GxE~E8V27hpw|oEmr(2Y*>3~>DteYP1#j9+-Ln$Q|Ewp=~haVa@rr1n(Wud=MM}(
zHl+?27(IQ1OzkO}H*d(p_*^r9D_EoR*-yKhk5#g>%EU(_w}!5csX4v~D=9NMfm=(J
zOJjNUO44;t=%V+nJR55{`NJsu=t&5HEYZvzHa6LAT!((e==F`2*PxKb#;=SjD#AWt
z%xVg@N+qNt;EX$xDj;9<N?$W_XVC=27#tfcub}V+y%0z#w0_`i10!A%{*rP~VA<6N
zDTKA<uxO;>Y{}{>c?+LnQ~tKFX#K&liy(nYA>5K}>1<n66LlALpP8e<ZYw-EWg=U(
zLi7}o`9sv6zN}GT&E!rtyLvEwOyk`JKz#p)R~CSfPEV{}!!e;0=B!`p&d#(ls}&s|
z>FeCQ<jM6ib7X|GY<pS2Y0)<NTW|HFN1>Fr!TUahG6p1iKip6bAm@C0fdOx!cW`h3
zR~kDyI$Bz86OJN=om4Y>3ojo^O73do#FEeVlAMaz8grPr#TqKUwak7fzQb+>*(lhF
zR$GJAZEAtY9Ky(Crcf6KW4D323~9T;yzL?gu)&NOhEhZW$YX12NJXCj)LmcSyob*e
zqjLKyce@}rPPKq=x02s&gTg{jPtP@vP-YS4P8TEt-cwU^6f%mcmEw>m6pX`GN6U{r
z6PJ$LTPQDyZ)bOHL8EPYTOF7)o}(HIO!`tP1uA+Tfit&at$c2umLw^#i*vG_N{MG@
z&n9f|lOFCJcnkYLXe8~54cHcnksm-wklHQbYNtGV&HAq+H$oP!9(lCQNwDlivQg(-
znp-_vf9>-aQY{*bJL3)1$ocA%jJ&8s@6me?ciOl$qXn@QHbzE}#VW$ngZuOn;*>lk
ztDwF)ReCPI?J!Xx9zYf|d9cSEGMH?$)2%nQXj=-;#e!w17MT~AHYsOiWm!nZ*+T6=
zO2`85)Y2PYWXdU|*OMm`<aEF@H0o&B_Ck`^+aZJO!k>>j#E{!(&76Z(^m`pv=jM>^
zdHQOFW_|hwLR<+|^wObf9<e^}uM)!r;e%B_zNXp3mnRY5^&y^OVPRQaUB#f3!^IBp
z%&D+3Qj!pe;r%zBZ?3r<EM$!!Z<A8<*xdaL2`n@^&khyldE)#$273`JQ{q-xNg{M;
z+P7K(c|rb5t_p=`AwHVx(zIrg6v^P1<>IrvuT!@z)Tj?knN+C9Y}~^w_jPbE8k-bn
zWo@l`Fw&fn!6YP91!0is_1w@c+m&vonjj&U0>=e_<OSPO2rS%RwqjkKx1+Z4NAYft
zSy@?0l#PI<MNuo6_V1tzSNJX;NOF(|R98O=!Y%SlrqO}#Gk81z{F9t(`h8=KH)Q$#
zeETh>2*%Q?++2dBLs;;X^Y-F;y-6^OX8Efc3@u<jl0DU7;nG1{uEmse1Jc<Uw}M7O
zBtUZJjJb1`ciG;DYEPiO5ZJTrM+od~HlC!OH-4Gg<4aWv>-m0UAGB7ou}5vcGGJ0l
zw=$T2W21J;T2qc$sA@vy+@4*Zxzpi3fxv6G{Ij)66hiLajiEa=sztjxqjd2uTtch1
z<-jJ<ccosv8y(fm8*|UriWgJPQl$jblTOX6lp)Eu;rGn*`*)Vunm!A{vr}EkHgnPK
zH}flP3RFk3G=?D88$Q^Ig1tmT<4&iwGFVtJQ4moqQdwD9l>3kz;lVJ$p<90z*$0)D
z#@1H#e8Z0wsOPzFe*Cy`7`p{#X-)MZsHmud@o0kO<-3x9LiWBtHsG-KBsdKTX?tlG
z!VQ`y`_5bGWhDc@(%0kC#C!h2`-@I>s1?Tf@-e@i@BdsODqq6<s|I*duf;qC3IXPY
zwgW|AXrzLjn2rwRQy-mpY%q%jU@^cZEP68<ZjY>J{0ZrBOK)ObDS=~PV8Ab&g%Mc}
z*-Prys2k6VvIKmIC79)3C8Feo5mf3#eE`4*g!xy6fngV#W31;tRPXQMUd951Ay(;$
zh0S|X0BdGHREMC*fk1pe=%1j1pYZw*>Y4vm5&ADFkN&5J`;zMbg#!XJ=YC>^1aZCz
z_kNWWMV@PGAj63l{*ryM0?wTH`kz*0|I?5B_Y1uLhlV={i}|#ny=_2iqWUkr0CC<y
zPln1qL_d{&c7uO2Z93$N2|2}CuV>j(c*E7yqAC`Uz<AbUs25r)K(^k~`yA<cBlF!n
z^BPek8L<#N&XV{`n!}$sQA)Op{g2w;I=i(#q^S*l?A_n1I3*eYxiNXn@xe&d%(%k=
zb-aUT_5GDthcesKMfhvP`c2?F9<Zf%hQnXGYL)9#Qx5djgyAw`n3*V+=9g5+$n1A9
zn}b(8tF?D~OV3fvte-5~CMIyuaVp8U4z{(4>Qw=$hM9I1FnIz@TW?Ru<<4OKZtn0%
z!L+%Ko(%CK)LD8IhQ?pk0NH5H<azKQEs^gzZZX9;SYFO~o3dDM2$yCd!>x70c#-Gf
zmlC5Ob|<BQoMXQx2!+#x3m_?rp-P*^%Rw!j#;yJ9@~P!+Tn`RRbzGo$kWzuoYK;I-
zRy^CVB}OV1BjrC<ZnWP$Gp46!)Pe)Svl;&Uc2VYBuz<_P`tqpj$tVjqp{<pL5$Z*I
z7-fFK$7W$ct!V9oK^uN2Sc9*qdCJbXk7dZ_$&=|>sils)_3?p_$l1}ExP>md1~rto
zAI6NYUoYN_p4lkg;#4bk22tCu4DUj$VIvr0$Mryy#ZkTJ<<#fLvZ=a3u`r(kn<WYh
z>0n)g&O{<m*Tx(f<Whhdk`0#VF+xO!n?pXSVohn!_73{pwa4P1rhb|Rx4h3>u6wfN
zF#LiJEInRAqU^)Rk5CPQb%F#|r&gHX{#?h!@y#8BW{TVqbHc*hk^Q|WT+L!nPE9dc
z!}6YPRa!N?X*__qTa2G`x%2Zq&*}t>J_#KiH8r)93pm{H6({(=1%<*avS|EZ1)mXx
z+k%xG+uIHvBY!|>`g*$y%&)i4v<=gyH#be#SXx!qbbFSm)M9A**I^~h*y8?m@HJPi
z*v6aoW?N7@L17$vOnzCesfkkN!|3Z(`WW9jiSWqTSINK%9T(Wpw<<vq&Clcj5JxpN
zrJ^_rhg1FCN`-pb2-@4;rID!$DcX(ds4!;o6DJDSdN3PmccohHq*e-y5FA12uTJT;
zH%Dbwl{$4m#iU~IJjcjAo(0KSbNR72P2)ORn83It(TK%6({#OgsM}TZ>|^O8Kbh=G
zx=W&~%^C5x>L3x_ODG<7VP(Et(iE=V?a1}Ot=&6sbsE!R-2Ej-{fW^owl}12W}iR$
zy3l0W%N0I5+C#u<k11lO$h{{WR6!BAp)+SnWmtrmhM4H-dFbf}Hj|a2HS9Z>3RE?U
z%qg)20m42|R%UgOR#Jf^OLT8`ECj&0oHvCoqO;7R-K*F>%RSCZ(KpG`EKLrQkv7kA
z>PY72v2BFpcdm!{)w8gWVOrus&P+f6YuCI)a?LF?=2Lf}RDaGC-K#Tqx${+XtV4|$
zQ9L$6p}`RljLe2??~0Ug_5*#8LZ`GAbrg;N{Ah^P_}OCIpHN-0X<HLOVSUi|=AG7v
zt$J^t3mVn(q+|1hB(=rb&p=8^0TLSfWdbb^ZJqXgm!b`1OWF;hG%x&ugsyZwKYOzw
zCa?lXE03|Lm1|EZTkoYm^7OV_8B{5BGHG6#pybP6>*0i*>~g4EQdY-p-qTp_4bvMb
zH>%)VqLt!XrRKfDx#zhp-ga@RC&zPPk)(>?+&VAY>)+BGW#McmpJ<>;Vl-+4<wbd`
z)S2tLI?|)RYrVMGQt8-@(gh8oiFxQ+MLp2<sxSes@k(ExMKyoEU5lHCR<BvjqGNyl
zv8L83grdohx2J*Q<Fbw-EVFgn$q?gl_Jk*rz^oyJ=`Xtg;~*4+h|L=o_ze^>mfBbY
zypeH5?)pr~sODJ+5by9#`VF<R1;+TTRld&6nJ7iZ{#v5*ea=Aa|EQROBzN3R-r7+`
z;{C;!|3C6#3`od1daOVJv%9-{)48I{kg4dkcyhNP$2oG2pIB_!6lOo*7EyZ0Urh|@
zjLKP1q~kR1X@rIt45nb13u0yH;(Gu7Jw%t#=~X(#DR&3%*Onnt2C>k%xX~}qF1OJ8
z1E+&jCnVF*X!OdbzURMg5?jU+9TxP8K?0#Se{*A_xuu2C&T_;n0LsE`hb|o3@+9Y|
zmPgrnXhlw0?L6K5?H5`p!ja$7eE~L;@Q=VxEfmnFc!E>;hxZx1%SUJM^V`HsuU0Sf
zHI+rxWR}gYVVSm;`y<K3`v0OA(OoD8f*!}e`uh5&E28wJB*@6Z6B8428>lHd4{euo
zptJ_nJ(&ioGRJkuebtv&LmiBq+t_x_?}{+fiycLg&!Kt%SRd-*rTh=4rv?C5n7B>T
zKi!h*i`r@4p_d<fKzgL1;$gi)eae;zV5-@5VjG$EF|Yt=3KPy$>NqrA^*C@PbHm%E
z;pKk;DbdX=DcUXezwB$z94cJnhYo|qbVf0N4@abvo`JzwFLVeY5WPgoIZpjJ&XE8K
zPbl>w$u@*E$+v%$Y;I-_ISlIv1yFF3cUG-I(5x)0G1CIPlRj_pGJN$L32_1k6H`;S
zV`B0L%S<Xi1r=@g&}R>o&vvOl?{p<&)hu-l9)!+?AFNeW4+zgFl)Q+n^OwLp+`pof
zEv{cT+_i2gT-h!%rz_HDE%PJ9_5gG;sJtKe_Q*4xanar1(OCg@<epj)UwGVTUc>F#
zG1YQg6_M<V#Oa$ehE{+u##wZVt)|qSOBY%iPHe{SS0jxJ2D3!=SL(<_gKqG-E#WA^
zv*eWoLj<X)+9TAPq1u(Edy?h}H25S`*9hVr3kh<omWKem7HB)7osvX=MST~_&C7!V
zO%#Wb>6&o!OI2({i0NKbLr+gtsqN{iOqJ2t0VyI_emg<zg>w%^Dr`YZ4UqnK`jwS}
zD$2Q^K7DE<CAL;LHk=QWDYvt3o7%8Yh6HJi7aDp;0(mcK7}MW^5fZe2*|{Q=1AhDv
zHc`EH?V1uwsm(fiIwS;q7Nqg!V5>6~h1f*Rw(fK69gb-`f*Awadh@UEtgy&sIq`?b
z9n?e>^llohCY8ijuFvL|*a+UE=upJR4i~x_fPYggBoeKJ=9~^P#CO?}va-3^+1_-;
zr4(ix8yjeuYoQv;HQNg_8=4tgI{t@CnW<G8_oXQA3&O2<%dpnE(Ws4GpkqT0iwr?U
z<|D?~l&u-*ozksa5+6;d#P|i8g=2|!Ov2R`9e}iI1v776$rJbG&_FH6LhHc*H2k!-
z1gm*OQnPL!5O+>dqfx#84O|uo{9|NfiD6fwc&znIbLf{ZUm)tj@9aPUBV;HgA>mIb
zF3{2@KMTIwdxuXk@Ya#xyt|SS<7;ac#Gbcp-d`nsqU>T~VgP|a>i(j-C1wf?p`uBr
zPoG{VBGB<OzR>@HSoS0C*6#!YVfElouiu#T(i;h%!0Vsr)g(G7;_JVt_47YH-0#?C
zIDM<Z*Zm=rw4M)R-?GM;1oZ-AAEm8Y_KC^&Tm&>d#Ddp}2G+pkq+w<CK4Qm5z6CL{
zw(x4r8d2BW6B<+gr&}QXdww;3hf@<^%9dvdz2LgEgZr-TIr((NTd!VRe6oCeSm_{6
zS|FN-`R0Urjg;iTb5r;}0+Av7D_&R%x=I%A<FLDasP~<6YZWm^@lFSQ`Uil-IASLs
z22~Kcc`c|wKaNcM<S{kAOkUG9qUmQ48ze0iQrVugAdqB7hJ#i6$a3aZG(cM(SBdfn
zTx{kn%s;uDRG2D%H(L&(kidU!ZTu%APX;;~nu)!&s=fu=88;LB#>`wte36(&*cthL
z=qE)W7>UieSEN(Xu7~^EdgvRsDB$8>>%`e?|KV9}`E&fyP`iNbd?(a>Hn3QWK{gH!
z+s*l|t);%A6=C~V``3x1oFvMnn2y72aI-sE0t^wyLNvkevH$Svry-AK59$aEJb&uc
z&&^Gyp+AL$+?RSYfuC-)n2(gc^YV(KR?pFS7ZlX-{q-?DPk(>^a}-?H14QL@OWv^Y
z@;Y}WJc^5p+gPLIwS8zi|2$1!*ath;u?96XDvQDVg-}N2qeqXH+AheYGhp>M79smD
z>_f?C-#AjMz@WG`TG0}#XFuQhxw!Ztb|QqYyFHfg5I+~6Tt7cMtM9h3yS22v)Ys9I
zx3CD=Z<Rd#B7&thH<X+C?3Z7pd4eN0>C1|ZWdKzFszVH^ks@XGD{RofNX2hRHTje`
z)*L(A1__hL-sd@Iq+nSZrM5SCZRbBf_J+G8(}LCcZjg~}XS?sWw6(2tetvxQxbaoa
z;C+XMZjlsOcuHe?JILmq8fLBPkR^I%Zca=@q-hF1xFGCL$)}`m2G3)laBGSZ3n15P
z{x+@CDt9|Hc)U4qoq)$y?c<`CmG0`n?H{(yVA{?VqvZzRpVQrxiXXrFp-1KRtB3sE
z%Yxg8am|U@*=tl(nyXO_AP&d@C5e&Z_4aqS9zTA}&c?<txGkP6_s-k9<-=DIziZZK
zBDUJ3<M>rlr76*OGN=TccXoC{1T<37P*8GobZnfYcAlrX!38O|lTb(~JbmWO#^$D^
zgao6Vj;d<ZLN}O7wtQ;)K%PNMAO{CWkAhc8Fr5sS`S6PrBTy5wYJR720dMRotOH7W
zvjX9<sV5qAsO)~tc;+RMQ&Qc!&CIjiOmKwz|N6_rNId*P;v>%!Mn*<>Jbw11l)Acl
zvj&@yR33rgQlZJ}`7K&$X>P7ax8Xdt&Z{q53#=dX$7!Kr{1Dpev-?`oUd~p8@^$CF
zdI$S~n>j3mgklE6NiGG*YOczE)5mE;Zw*oji1h2=@5V=URI%4@-ZWiPHHThIH|v~<
zPqY$}_;9?J*3~XU4v<{l-8hsFzE}J1jI^2O(GO0rDUx-FvL=4j5x=2_KB1_oshQl%
zm6DvCrohm$(4G0ggftoE3&H>AaWE76rCzBl?#-V+JD0YUv($4sOHxw}UcP);La#XR
zF$^gJtyh|#d19pv-0aZOc;fET@FDW*4)95b1Z)R*Q>QPWuM?gx!Q3}mV0X~nxsz|$
zC45&4$RZpHuvUE~P+}HV{+8eR=XkYsa5mgRE#RErQw@#iMjTOJzuuD<a3`#LOQ*71
zOf4)dEG<z`QkwC)ZO+T$x$5O^OFe!1K`(?{*V6Kv)4LS$=|Y_pRCEy$09J)F?EgRv
z`%OoQ$&XGiEbth1CbUI!v#R7iS(UUnD6CCLNB|!PyQo>utH{l+#MkohV1I9WjZFBh
zxA)T4uC-bmzthIf`jmBaCTO+^<9F=j`C$m=eXlaUioV9I8lr*e&(^Af4H;2*3<X-)
z!>zOgD%h*p`zJGSaDrcFuPTLJbGWRlt81|z2eU#Hd7}MqurF(X55C3DZqt=063SbL
z#psO8iAR((Ic%Icb!uGTz2%?2c+v|+9dA!xChYGMyVA!s8`c;Ri2eb9l}%??&lBf}
z?e5_FIEcPw*a#5L`#j|*cd)Cf!-KN;_;@2LVo>an{sX${;RZN}0XINLWUy8*%o?VP
zWBC=${7IyetNDO8K~w^RzoVJv24gYeZ2t$hJpR=fb0M<y67<3k`>`yE6QKQ<I1R>M
zISoaW^W^mLUyekl!>_m8{|Xd4kHYvKNzN(3J3L-IS{{@H+r;TeOSlPm^zq-HC1&Og
zDwY>z_CtUEc9=ua6{Jb+)Jp>SX-L;1s&e7~{$ZN-K64-C-YaXqtR<~+THjY}f#We&
zPA60QlK9mwR};<?@AhmS1s`Q8F?-(bV8L;Ha-TM5PGpwz2kW@~dNvJsw~n{$L%>=e
zULroZ2AP<Ny=?Z&-$DJK^zaoVh>5TNixQE~^wt34ixvB@n|&K+kH33YS4WG>I*z#V
zV_={OQ<v;jR$rrGMudiMlz<H1b2OUTnOPX*%1U}Hvo+fyOIi`nIemTo;Oxhe^L_xq
zMTnXe4uBv$0(Rblq_mZDZ6tjC1OzzXbW5!!;`zJZUHm<poma@N8tBap67%DxwcdY#
z5=+Aj;M`DpHQP-@ajdc9SK^pX&PcMO2#;S0#K1-8xXMzLAMpgl3~F`Onz=)p$P&LD
zC(cY3TJX{pFw0=g_u|DBGZVgb60J>}7|VDhF|e?_v|vRPAA{#(H`Eaxo|DIjL=|5D
z+lP1lR}3!X?t=#p`1#e7y3UewJVjv!%VNYM1dxSrO2m)@V7S168JA<fq8cE2`Nj>W
zB@NoUcLT{e)0^E9`W<nUR8(;h5ibfxM$J|~z655*N{rj?NxgdYDlI4jzFk4Wo-lMp
z@)V7*urNfQIyyS#<>ltd@r{j*?=RDlpY`JFZOS)7Z#wU9E}$)De6N<caue*M;rZue
z$Lj+q03Vi?mXJu_bmziz5Z!%eBMPM3c6HbZC<X<$d59K-RGcQglCiv)*S8SEd0wQ{
zS$#`<4y!JH`-TOBz)YZpQc+gpFoMer`bQO>K7AUx?V?;F=5-np6-2_8@YiFnv+w==
zL(rA>Yoj9xk37G9yN_o^JM*H;??d!$HTeX+n+ssr9w$(i7+0XWQv3cg8Pkh|E<>mT
zbHT?0LGPsVRafAf(;_p=bWV4em`uUVyng+9w(do-d7AX}IxJYOCMWkYwuv*>(Mer8
zFnEa;xjCO>I>4r-rDbwWI?92i!Td4Z)ilEhYcuV%siHNnmQ+@{t6|O;Qp7WE=!(R)
zc+M6ynHxasrt_vD7HKkJBwpsQ1~lY;a)tG*hN)>r#&FMjd=mFz4)?j#<zviz_06NG
zT&A;V+b+4QVJ*8an{TJ==^yBc)MR|Uj7?5c&9sM*FXQ7MkXk2F!siJeK70VGWiebV
zE4@R`WBo-nGmQEhkc@oQOwH_g4x{c6dU?}RIuOf%XRUNt8wDi>-sG_cT{Hwy7j?Qd
zeWJZB>JL8Axx%gb&2i98U!MbTEwHf~uX7SIGJQ*1+_4&Rg_rRcU2)3;a2@U(Eq4m@
z*1dmSzdeSY@0pB@R-S$Uq1OEV^-&jWn}-Kt06*In?ds|}<J?q%+z!0KE;`EMG%Wls
zn%hFN(xqgXpMimajjh{Dx>>R7{^iS;1^D@24FunnQvIg=x>d=1-z$2I(J2#;oolg3
zPEKx%WH$i20*?ud1SY^{2@En|*{Rm&BD+C*etBu$a4Nl@q>KzO)wHzan4?^-yS7di
zTh9AnsZ9J*&rq1v;S!t14>Yr68il3<WowmXu6wwMi0kq!{O$)X`1zTe59BxVoVSdf
zYEot51@&7aAVgHm_btrbPFKHrP9BAkj%3q=Rj0(GqFKE2ts{WO!fv^E@#4m_g)L`j
z`YAM1Bk_CJvU2CoKgZ!=VG;mzIO2J!=P5b54R`O{als83q@31DmV<=E2~NY#?_L8p
zfU~g4UuW0%H)4p?OCjwqN;IVdy-<TDB`tsa_`yU<Cm=8a1#{3B+p8N7bZRSI_ugIr
z8Gs~o8v-lpHbjG{nB|$Zw8nn^{K?>djDcML>C;A!BgbAv!zqGATVCL6RpoUQENk!8
z8NMo^=%iyJK79C7my(q=yToR0cXv06)Ml*GHDxBh!g;HE!4{+(#%kqvRcVtWxwiHR
z6z0Ew{|hS*6o!_O^z2#F{%@a^P@$&-T{evioTnQ<=B7_I1aX`8KaU#)Rp;k(paUwl
zkc#xPm$|?IQl(>^(R=#)_uJwX080!FzrMSlpC}FO+^ux(O|SF5LHV=n3;^n1kuI*F
zlNCk-{id%HZda<X)Z#NPH%f*(W*u;$L(hzj(~ayRva{E6^;(!V6EMbeZP9edPD73)
zv7oSqj#$3Fgh$7K!>PTzn{xcU^}rxAPCqO0WmL8x2?+_r1fdP6X)iT*nX@Mzi;9BG
z1YXg?Zg)Sxr_RWmSN!meOUW?UTEwKh?fU{T23xBf3PW;@X@0mQPYD$e7#P+f1oV~o
zwHAofM8(8fo*IJGCMG7r4pC{J;^Te)_~VZdav!~3QgmM*HwTA;bpLRXh1T}!2(zup
zgl2L|N=j<#$v^&R>_@rn?-s3@gDapQ@{B8}mo;91Ra}RianaExs-$20mZ0lz^{*Qn
zmy0#CgWkW7<af$7dnP6l8=>U=EX+ZaJCm0~>v`|DmygxNa6z@TwN1fvYa?aKIQ1D;
z115(EYsJ``AMu0v3?&n@mtz45=#@}DM$5e!8kwKYw75oD^F~13+S&w{A{E^%5|w<-
zyLrKmJm4+^!(s~d2qQ9^f%f+88jhxx+4pZ}&dawO`uX@2TTVbrPrcOI3z6+bU{@#4
z-<*dO{!B|aq)%b@GF-(RL3j)W5E*m!2Z=1DY)xjNr{RNmO}DRs{{9^Cg7PY1eCu0V
znHpt<`0$dFl28qEqtRy|ABYev^hn_(BA7JbL*Yhoc`sO|d8wt$#`bpj`)99SeZj|M
zi`&Vukko`+egkR1H^)huPq1)}S>AZFJX$ft@y-~a;A$K46Q3wxMT3{Xl(^!HkHCrL
zPy{Ca0%*g*tqk==l>~swA<C5qW1=6b`SL8db=x(s^I7t0sGgqp0Bo1}dBc)NFVZm0
zy(q(olu4PGhg}6G$}OB~^H1vMAy#m%I4Bx(3tpm@vbmJ$v;{GEaptd3{(})ZrHO15
zNIrPB))*dns4um>pY4dx?lJ^XRA^TprEtyy4DTC-hR49`4}NekORTEhQEpN>a8#G2
zi{*2O<F<&4iPk+};Kir#qfuvPtYA-re6v;Z>htf)N^>&U4HI1LK~A^D0z>xI-1I)X
zBzu^aKwAjtKia*eSz5A&qhd<N+(5JIzW3Q1xlUO9l0Vp(m?Ycr>7OXf-DF^g9fO7!
zQfl*w1yX837Z6%XvSrwq?hDy>)+L78+T)<vnjb$}897$w^qf)JA~Jw{09}o-gBIeM
zN)Wp=+_-TgMSA)iHQOs6!n3U9j!@3+<~O-DXHTD2DY2fJZVGM@lv+~ckaWs~mgUOB
zgS}aYjNz9`J@2!#E!5SAAy@@e7%H+5vKTFAh<pMxH~qu^7(~!=?(0wru`-e$-S&mO
z0h=dENpMgf{LiCDk5Uj4UeAmA>8^~+DVaal9ubdad->xJclW~~CCKF}$qtked6vSt
z=sC5>#&dg861aR-GX;enpNqHC6QNfW!KV$OBV?TQE6w}z>woqhgLAqFBry_(ix)3l
zx^(rb9+BxG(ofj@Gg&!Hh4yx7k-9o!)g~nSYjHo2+y9OnTH9GYAou&t9J^jjFHY+G
zceD~?**6TQsNuM7f(!Qs2~b($D2QKY#BYXrm#Hdd4i@lxR*)P)(4sZ^Q0fY+<ORgv
zzF#B8PA6yQre>CxUACeGs}ep4R3Q@1T)j#*M|NdavjvqRhj;4Bci@4@>*;SIPU|M9
z*|+6o(zkWIZ;Qyq;Xw1haq%*5zPt)JL*h@&bpGV$FeVL~0I4AEd13<3?0AE)Zyq83
zT>#=Ws3iSAIjR1?BD=(a|9_ZF{r9^z6mZZT;Zc>GqLuFe8vud0@{Wj`MW@bWn5<p;
zwd6A>N@CpqKTih}w2<3Wuk>8UtOz_vD~BUc>=miIlKJ)G%Jm+GQ0??EC8_c+#^nlV
zF0;iKbSXKJ(uy1p-1B=U-$nKN7hoa`*+-2j0`8u$tUVF&%2+k^q44CJCpWcezK;%|
zh0f<avgOQJ7HskEGr^JK2Cz3PtExP>JJuZ7=)u4ch*xsI_C(_sa9(hx{29a#&=e93
zOb0TXcV{3TMR-Uy6ZaA#G6bS=1mfTQqWt3lh>Y$}R%|`ZnKh~FJ)|!*V?l<Dq`Hmi
zY;NjoVCufexP5mR%q`d_Q{yc~I;Ue6&B?P|;O{KN*VpIhiU!;mk;5?|?mH5nxwa50
z;TynurDCZiPS;_muw<uhGI1X=5>s^#NYCw>^=6qY%`b}^YjR?Y3s7aq{rWguVEePn
z4WR<(5obS*1R@Y;m)%)edIc^<RP1hLG4=|mmRmQCuWFWMWmY7yvm&>amQdy^^DZVD
zY6G5#?|%}7a#nlAv#x%wg-Yjz>5f|tPOZ!tJ)5~gNg4Z?y|Xd5Ajt+BhRaPwcvL?J
z*<Jr0g-kk+b0&3-_T$tV!bEdf7zMfZE>Ut>C{`l+Z~q!G!PRNt^4TPuvi(-zYTW4O
z8+vyJQP)WRx&#9DII>Jj>VjF`)$t74c22D@&OzLf{m&_-Uv1cRuDon5Mj3Ynao>fg
zC$Hg+-pVn;)M~R>nXwkBKvCxMdvW{iSZs=P<nUpE>B6U6x}(1}`*^7?epACmV(qpK
zMLJ0|{5x2yu7AL+*P##>%BabQY>$*rxmlQNC$+LPM&&vgfI+pyks#POLx|<*iMT`A
zv90hPndsd8L-katv}ms6<w)`F-ogn9?lIez@G7>c+TdN*_J`|VD65Vm>~D8~sokH}
zbS%kELhZIM@vXigEUySqYG4Ah77Z-c2CVp|ccm~qeGXMS!IcMEYdgCW8Vx5446ENf
zKF_lWCu+vFQq9aLvPvhr2M-!hS;hI8W{+2PbCV^Am-HmUV+7_}9aaN}*R%5GVoI#*
zO!zd)C$g&mxF4uX{NeFY1dLqUP{UPozhg8b&i!%6t`whly2zo%{(%sO5*b&4P??PE
z75BrRg<&bpMh%#i7tL`h-P@m!G1A>sQK?FE9>^5nKA6C11fP`2Q0K04AobOXjir<b
zC;Y4pmNqwc+a8H)31g{Pm}SKj{^j<n{(aHm$QX_cB|<{Rzuun|B)GoDsMgn7W^+I&
zTm5R615z#{$dkppSJRm|xUOQgzUpN!WmU{ZnFuMDIeveAa@4t{ZITRuq$AqPXU>;Z
z&Fn=h?AZR&_ta}~Hm=)&`%CO|y)ymTa#uu{9V>FO2D=nvA7pNz<CWF=l>8Fs=hG{H
zT93h63OE#DE!^<cNOaNRIb0%oX;-W8B+t%=$0v5XA`SLeduoEd?(c@k8)Ru#q$lYj
zvv_wSNDsT>T~fkY_1oe!uGIPVX)^jw3LQ?R@l<W^#XmfJLpk=c>&<cMNGqMg^UZl3
zJPw%jUQUbh2b+G!JT8h6#r<&DQSY(cOZiN9Od(6J3tkIpQbxvFRZwKFHyBb1jWR{1
zP6hXTdkZj9YJNO)n5!Z=)>2z3?xVejM?Q*abmbLhmT#TyMN;cSF+2!Ucu&)I!ii6F
z%>8h`A%MCH?Z?N**IS97rB7`iUT`*9TEd!FWgdFo?s(|h3yD$tu`|##F!>fLdR`p?
z%3PAM>P|lg%s`(;8fq0gVWT7l7)3I!t0L>2Hba_@PRNUU{ip3n1<O|6sMxiHDF^Xn
z$RSxW?)h2_cUlfaZY5`F|BQ-OJOA+K_uk$<FvtRCU+<gN^NiV9hUVrfg|<zg+3TBY
zoNMj)ebP5azK^!D6QKn~O8Ejm5RJjL>kMoxT2RX4f6%VU<pxH{4dfTR7*%zhn5hhk
z{kET-Ay21#f|uT1#;Q4uJ>F@Tui){#gWOQXPPqG4-D~M1$W&Evq|v$`pGG{}%(r9-
zw|Q+=#4kLu)^ayiI~>r24RtbpgbOr%dQWi|dO#jiSs-`9<L4fN`S7InxMGp6x?+mb
z53To(X|bm$9xR0}>iQK5krlehZ!O7~A;ZTk{)o1keCEDu;O<txkY`V@tcTsjkKfUS
zATe7BWk$i(6L+|Km3oJFFUE#ANg2U|7b`<^ar>*ySF@#rR*R_*cf`hAcNYfh3JcGX
zx??|oR=I%iw<Uu6<E6H97_i?g%687hj8$|Xs%*X4EAgJbbT*1|PZ4j}S8icZwp(5#
zK;YC>of*(`ZJ?GlG8)vZOp!`MzA~>dBef7(TyhW`V_(`4e`Z2nE)(Nkz3ukRa5cak
z?S8%wG!Vgw#DP5*kN*&QIJK!FpDJ0oI%vXDHrcE-Gm=8(Ry%UIgK;n2MimsP?s(48
zQM>$<CSyJ9siTW^fj@h379pD04B>xE+!2It(WvuM9CDQ&d1id&8fUmb_0K3wi3IE6
zLV7&uz`fgD+0@RREENZfsO&h%)O-jyhN!wkgu4HPS3R5HHkM0wU9_ySUp$$OBgy{>
z5~FkEX(ACYJ!Hi~1*-3p+qGtm=E&&Qbo#ShT2b^n{^xt})!z|!4@G2!J}=XFiPY>&
zj+;1aL7qZ%jaEh&j;!wEC^d+V;W|<5#~zL+>JS$6NFOlO$0|yeS}I$RvzO{A*q}Sl
za^(7(8<7j7Coj_@wC@w$$O-#RZr{^$*FuLY<&Eg?#%bN$XZ0*YcGp@ZsYW?$OWtnz
z8aBI6=g){dgSdW&h)&y^6BcA*!?ON@m0zjlarep;_ak&R*Xt~X6>nlQNjJDoO5WtQ
z8t!)`r}$wnsKgKoZ|(-}6&$<Utch5zzNr9t!9AXNblszP7NpNdld%U$+mut+nGo0C
z^F#B+KgCM^X*%;CebN7vot+(|L78Cr_CXMt_G0iwClE8()QgDQ!cZYJF)<mCM|?w;
zAM7rjJ9kb`<_H3maNBd^_=i`RbVcI(*Bi&b`*e19=R!>Y2Y>zH<dJbtV+#wdaz`r(
z2?<~&9&khBbBG^@hLBKq4i`9upzd+q9_bqzQiJ3r?oY(?o({;3F5iF-X5Yk|94knD
zw1l(9bD2fa9Y^4vn3<Vvk0RHgI8+}<sRr!o`8_R!KT}&<8x$M0zG**FR#tX!aDb=D
z%gYZuKJrr#jx=t9Ay;m8OOW#a{0@0m;y2S2nyJnpd=u|6*vz#vBTpb4qapr=)}PT|
zFXIAL+(Sfp5OjET{(8XysQ&&JaP6mrpv7^Ii>Wy|T|zNHC`sE-Z-XZPtI6koq^-Z7
z_|H)Kzoq*BMxgY!RR5Oh|7FhXZ+QG09{-EeL4Tv%-zfJt%Kc4r|A|cU-_Y?lbo>n+
d|7W3NUuda4(M7;9=T{x;nTYh0EMe_8{|%-6Jc0lK

literal 0
HcmV?d00001

diff --git a/tests/testthat/test-mod_review_config.R b/tests/testthat/test-mod_review_config.R
index 2d7d257c..9163126a 100644
--- a/tests/testthat/test-mod_review_config.R
+++ b/tests/testthat/test-mod_review_config.R
@@ -146,6 +146,8 @@ describe(
         withr::defer(app$stop())
         app$click("test-config_review")
         app$expect_values(input = TRUE, output = TRUE)
+        app$set_inputs(`test-region_selection` = "")
+        app$expect_values(input = TRUE, output = TRUE)
         app$set_inputs(`test-region_selection` = "DEU")
         app$expect_values(input = TRUE, output = TRUE)
         app$click("test-save_review_config")

From 18002fec124c9da2d6387ccf427fc0753913b92b Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Fri, 12 Jul 2024 11:53:32 -0400
Subject: [PATCH 08/13] Update test for `mod_review_config` to include trying
 to save empty selection

---
 .../mod_review_config-003.json                |   2 +-
 .../mod_review_config-004.json                |   2 +-
 tests/testthat/test-mod_review_config.R       | 197 ++++++++++--------
 3 files changed, 107 insertions(+), 94 deletions(-)

diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
index 7b56b1cd..9ee8821e 100644
--- a/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
+++ b/tests/testthat/_snaps/mod_review_config/mod_review_config-003.json
@@ -2,7 +2,7 @@
   "input": {
     "test-config_review": 1,
     "test-region_selection": "DEU",
-    "test-save_review_config": 0,
+    "test-save_review_config": 1,
     "test-site_selection": [
       "Site 01",
       "Site 02"
diff --git a/tests/testthat/_snaps/mod_review_config/mod_review_config-004.json b/tests/testthat/_snaps/mod_review_config/mod_review_config-004.json
index 9ee8821e..a9e0668a 100644
--- a/tests/testthat/_snaps/mod_review_config/mod_review_config-004.json
+++ b/tests/testthat/_snaps/mod_review_config/mod_review_config-004.json
@@ -2,7 +2,7 @@
   "input": {
     "test-config_review": 1,
     "test-region_selection": "DEU",
-    "test-save_review_config": 1,
+    "test-save_review_config": 2,
     "test-site_selection": [
       "Site 01",
       "Site 02"
diff --git a/tests/testthat/test-mod_review_config.R b/tests/testthat/test-mod_review_config.R
index 9163126a..64822235 100644
--- a/tests/testthat/test-mod_review_config.R
+++ b/tests/testthat/test-mod_review_config.R
@@ -1,44 +1,45 @@
-describe(
-  "mod_review_config. Feature 1 | As a user, I want to be able to select my user 
+test_that("mod_review_config works", {
+  describe(
+  "Feature 1 | As a user, I want to be able to select my user 
   configuration before I start to perform a review. I want to be able to 
   configure the regions and the sites that I will review. After selecting these, 
   the data should be filtered so that only data from the filtered regions/sites 
   will be shown.", 
-  {
-    appdata <- get_appdata(clinsightful_data)
-    vars <- get_meta_vars(appdata, metadata)
-    apptables <- list("tab1" = data.frame(subject_id = vars$subject_id))
-    
-    testargs <- list(
-      r = reactiveValues(subject_id = "DEU_02_866", 
-                         filtered_data = appdata, 
-                         filtered_tables = apptables, 
-                         filtered_subjects = vars$subject_id),
-      app_data = appdata,
-      app_tables = apptables,
-      sites = vars$Sites,
-      subject_ids = vars$subject_id
-    )
-    it("Can load the module UI, with functioning internal parameters.", {
-      ui <- mod_review_config_ui(id = "test")
-      golem::expect_shinytaglist(ui)
-      # Check that formals have not been removed
-      fmls <- formals(mod_review_config_ui)
-      for (i in c("id")){
-        expect_true(i %in% names(fmls))
-      }
-    })
-    
-    it("Can load the module server, with functioning internal parameters.", {
-      testServer(mod_review_config_server, args = testargs, {
-        ns <- session$ns
-        expect_true(inherits(ns, "function"))
-        expect_true(grepl(id, ns("")))
-        expect_true(grepl("test", ns("test")))
+    {
+      appdata <- get_appdata(clinsightful_data)
+      vars <- get_meta_vars(appdata, metadata)
+      apptables <- list("tab1" = data.frame(subject_id = vars$subject_id))
+      
+      testargs <- list(
+        r = reactiveValues(subject_id = "DEU_02_866", 
+                           filtered_data = appdata, 
+                           filtered_tables = apptables, 
+                           filtered_subjects = vars$subject_id),
+        app_data = appdata,
+        app_tables = apptables,
+        sites = vars$Sites,
+        subject_ids = vars$subject_id
+      )
+      it("Can load the module UI, with functioning internal parameters.", {
+        ui <- mod_review_config_ui(id = "test")
+        golem::expect_shinytaglist(ui)
+        # Check that formals have not been removed
+        fmls <- formals(mod_review_config_ui)
+        for (i in c("id")){
+          expect_true(i %in% names(fmls))
+        }
+      })
+      
+      it("Can load the module server, with functioning internal parameters.", {
+        testServer(mod_review_config_server, args = testargs, {
+          ns <- session$ns
+          expect_true(inherits(ns, "function"))
+          expect_true(grepl(id, ns("")))
+          expect_true(grepl("test", ns("test")))
+        })
       })
-    })
-    
-    it("Scenario 1. Given a test data set with random data, 
+      
+      it("Scenario 1. Given a test data set with random data, 
         and and a site name was provided that is not available in the test data set, 
         I expect that a warning will be given with the text 'Not all sites are found in the appdata'.", {
           testargs$sites <- testargs$sites |> 
@@ -49,9 +50,9 @@ describe(
             "Not all sites are found in the appdata."
           )
         })
-    
-    
-    it("Scenario 2. Filters data and subject ids as expected. 
+      
+      
+      it("Scenario 2. Filters data and subject ids as expected. 
         Given a test data set with random data containing the regions 'BEL', 'NLD', and 'DEU',
           I expect that the regions are initially set to 'BEL', 'NLD', and 'DEU', 
           and given that I select the region 'NLD' and press the [Save] button,
@@ -82,7 +83,7 @@ describe(
               expect_true(all(grepl("^NLD_", subjects)))
             })
           })
-    it("Scenario 3. Warns if only sites are selected that are not in the app data set. 
+      it("Scenario 3. Warns if only sites are selected that are not in the app data set. 
        Given a test data set with random data,
        and region is set to 'NLD',
        and site selection is set only to the non-existent 'Site x',
@@ -101,67 +102,79 @@ describe(
            )
          })
        })
-    it(
-      "Scenario 4. Given a test data set containing regions 'NLD', 'DEU', and 'BEL', 
+      it(
+        "Scenario 4. Given a test data set containing regions 'NLD', 'DEU', and 'BEL', 
         and sites 'Site 01' and 'Site 02' belonging to region 'DEU',
         and clicking on [settings],
         I expect to see the modal to select regions and sites to review,
-        and given that I deselect regions 'NLD' and 'BEL',
-        I expect that only the sites 'Site 01' and 'Site 02' are still selected,
+        and given that I deselect all regions and click on [Save],
+        I expect that I will get the message 'You must select at least one site/region to review.',
+        and that the data within the app will not be updated with the empty selection,
+        and given that I select region 'DEU',
+        I expect that only the sites 'Site 01' and 'Site 02' will be selected,
         and given that I click on [Save],
         I expect that a confirmation will be shown with the text 'Review configuration applied successfully',
         and that the data within the app only contains data of 'Site 01' and 'Site 02'. ", 
-      {
-        test_ui <- function(request){
-          tagList(
-            shinyjs::useShinyjs(),
-            bslib::page(
-              bslib::card(
-                mod_review_config_ui("test")
+        {
+          test_ui <- function(request){
+            tagList(
+              shinyjs::useShinyjs(),
+              bslib::page(
+                bslib::card(
+                  clinsight:::mod_review_config_ui("test")
+                )
               )
             )
+          }
+          test_server <- function(input, output, session){
+            r = reactiveValues(
+              subject_id = "DEU_02_866", 
+              filtered_data = appdata, 
+              filtered_tables = apptables, 
+              filtered_subjects = vars$subject_id
+            )
+            
+            clinsight:::mod_review_config_server(
+              "test", r, app_data = appdata, 
+              app_tables = apptables, sites = vars$Sites, subject_ids = vars$subject_id
+            )
+            exportTestValues(filtered_data = r$filtered_data)
+          }
+          test_app <- shinyApp(test_ui, test_server, options = list("test.mode" = TRUE))
+          app <- shinytest2::AppDriver$new(
+            app_dir = test_app, 
+            name = "mod_review_config",
+            width = 1619, 
+            height = 955
           )
-        }
-        test_server <- function(input, output, session){
-          r = reactiveValues(
-            subject_id = "DEU_02_866", 
-            filtered_data = appdata, 
-            filtered_tables = apptables, 
-            filtered_subjects = vars$subject_id
+          withr::defer(app$stop())
+          app$click("test-config_review")
+          app$expect_values(input = TRUE, output = TRUE)
+          app$set_inputs(`test-region_selection` = "")
+          app$expect_values(input = TRUE, output = TRUE)
+          app$click("test-save_review_config")
+          filtered_data <- app$get_value(export = "filtered_data")
+          all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
+            unlist() |> 
+            unique()
+          expect_equal(
+            all_sites[order(all_sites)], 
+            sort(vars$Sites$site_code)
           )
-          
-          mod_review_config_server(
-            "test", r, app_data = appdata, 
-            app_tables = apptables, sites = vars$Sites, subject_ids = vars$subject_id
+          app$set_inputs(`test-region_selection` = "DEU")
+          app$expect_values(input = TRUE, output = TRUE)
+          app$click("test-save_review_config")
+          app$expect_values(input = TRUE, output = TRUE)
+          filtered_data <- app$get_value(export = "filtered_data")
+          all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
+            unlist() |> 
+            unique()
+          expect_equal(
+            all_sites[order(all_sites)], 
+            c("Site 01", "Site 02")
           )
-          exportTestValues(filtered_data = r$filtered_data)
         }
-        test_app <- shinyApp(test_ui, test_server, options = list("test.mode" = TRUE))
-        app <- shinytest2::AppDriver$new(
-          app_dir = test_app, 
-          name = "mod_review_config",
-          width = 1619, 
-          height = 955
-        )
-        withr::defer(app$stop())
-        app$click("test-config_review")
-        app$expect_values(input = TRUE, output = TRUE)
-        app$set_inputs(`test-region_selection` = "")
-        app$expect_values(input = TRUE, output = TRUE)
-        app$set_inputs(`test-region_selection` = "DEU")
-        app$expect_values(input = TRUE, output = TRUE)
-        app$click("test-save_review_config")
-        app$expect_values(input = TRUE, output = TRUE)
-        filtered_data <- app$get_value(export = "filtered_data")
-        all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
-          unlist() |> 
-          unique()
-        expect_equal(
-          all_sites[order(all_sites)], 
-          c("Site 01", "Site 02")
-        )
-      }
-    )
-  }
-)
-
+      )
+    }
+  )
+})

From d898dd62a51e2460dfcd06b6526cbc049cd3ebfb Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Fri, 12 Jul 2024 11:59:47 -0400
Subject: [PATCH 09/13] Decided to remove `test_that()` wrapper

---
 tests/testthat/test-mod_review_config.R | 196 ++++++++++++------------
 1 file changed, 97 insertions(+), 99 deletions(-)

diff --git a/tests/testthat/test-mod_review_config.R b/tests/testthat/test-mod_review_config.R
index 64822235..4e444c97 100644
--- a/tests/testthat/test-mod_review_config.R
+++ b/tests/testthat/test-mod_review_config.R
@@ -1,45 +1,44 @@
-test_that("mod_review_config works", {
-  describe(
+describe(
   "Feature 1 | As a user, I want to be able to select my user 
   configuration before I start to perform a review. I want to be able to 
   configure the regions and the sites that I will review. After selecting these, 
   the data should be filtered so that only data from the filtered regions/sites 
   will be shown.", 
-    {
-      appdata <- get_appdata(clinsightful_data)
-      vars <- get_meta_vars(appdata, metadata)
-      apptables <- list("tab1" = data.frame(subject_id = vars$subject_id))
-      
-      testargs <- list(
-        r = reactiveValues(subject_id = "DEU_02_866", 
-                           filtered_data = appdata, 
-                           filtered_tables = apptables, 
-                           filtered_subjects = vars$subject_id),
-        app_data = appdata,
-        app_tables = apptables,
-        sites = vars$Sites,
-        subject_ids = vars$subject_id
-      )
-      it("Can load the module UI, with functioning internal parameters.", {
-        ui <- mod_review_config_ui(id = "test")
-        golem::expect_shinytaglist(ui)
-        # Check that formals have not been removed
-        fmls <- formals(mod_review_config_ui)
-        for (i in c("id")){
-          expect_true(i %in% names(fmls))
-        }
-      })
-      
-      it("Can load the module server, with functioning internal parameters.", {
-        testServer(mod_review_config_server, args = testargs, {
-          ns <- session$ns
-          expect_true(inherits(ns, "function"))
-          expect_true(grepl(id, ns("")))
-          expect_true(grepl("test", ns("test")))
-        })
+  {
+    appdata <- get_appdata(clinsightful_data)
+    vars <- get_meta_vars(appdata, metadata)
+    apptables <- list("tab1" = data.frame(subject_id = vars$subject_id))
+    
+    testargs <- list(
+      r = reactiveValues(subject_id = "DEU_02_866", 
+                         filtered_data = appdata, 
+                         filtered_tables = apptables, 
+                         filtered_subjects = vars$subject_id),
+      app_data = appdata,
+      app_tables = apptables,
+      sites = vars$Sites,
+      subject_ids = vars$subject_id
+    )
+    it("Can load the module UI, with functioning internal parameters.", {
+      ui <- mod_review_config_ui(id = "test")
+      golem::expect_shinytaglist(ui)
+      # Check that formals have not been removed
+      fmls <- formals(mod_review_config_ui)
+      for (i in c("id")){
+        expect_true(i %in% names(fmls))
+      }
+    })
+    
+    it("Can load the module server, with functioning internal parameters.", {
+      testServer(mod_review_config_server, args = testargs, {
+        ns <- session$ns
+        expect_true(inherits(ns, "function"))
+        expect_true(grepl(id, ns("")))
+        expect_true(grepl("test", ns("test")))
       })
-      
-      it("Scenario 1. Given a test data set with random data, 
+    })
+    
+    it("Scenario 1. Given a test data set with random data, 
         and and a site name was provided that is not available in the test data set, 
         I expect that a warning will be given with the text 'Not all sites are found in the appdata'.", {
           testargs$sites <- testargs$sites |> 
@@ -50,9 +49,9 @@ test_that("mod_review_config works", {
             "Not all sites are found in the appdata."
           )
         })
-      
-      
-      it("Scenario 2. Filters data and subject ids as expected. 
+    
+    
+    it("Scenario 2. Filters data and subject ids as expected. 
         Given a test data set with random data containing the regions 'BEL', 'NLD', and 'DEU',
           I expect that the regions are initially set to 'BEL', 'NLD', and 'DEU', 
           and given that I select the region 'NLD' and press the [Save] button,
@@ -83,7 +82,7 @@ test_that("mod_review_config works", {
               expect_true(all(grepl("^NLD_", subjects)))
             })
           })
-      it("Scenario 3. Warns if only sites are selected that are not in the app data set. 
+    it("Scenario 3. Warns if only sites are selected that are not in the app data set. 
        Given a test data set with random data,
        and region is set to 'NLD',
        and site selection is set only to the non-existent 'Site x',
@@ -102,8 +101,8 @@ test_that("mod_review_config works", {
            )
          })
        })
-      it(
-        "Scenario 4. Given a test data set containing regions 'NLD', 'DEU', and 'BEL', 
+    it(
+      "Scenario 4. Given a test data set containing regions 'NLD', 'DEU', and 'BEL', 
         and sites 'Site 01' and 'Site 02' belonging to region 'DEU',
         and clicking on [settings],
         I expect to see the modal to select regions and sites to review,
@@ -115,66 +114,65 @@ test_that("mod_review_config works", {
         and given that I click on [Save],
         I expect that a confirmation will be shown with the text 'Review configuration applied successfully',
         and that the data within the app only contains data of 'Site 01' and 'Site 02'. ", 
-        {
-          test_ui <- function(request){
-            tagList(
-              shinyjs::useShinyjs(),
-              bslib::page(
-                bslib::card(
-                  clinsight:::mod_review_config_ui("test")
-                )
+      {
+        test_ui <- function(request){
+          tagList(
+            shinyjs::useShinyjs(),
+            bslib::page(
+              bslib::card(
+                clinsight:::mod_review_config_ui("test")
               )
             )
-          }
-          test_server <- function(input, output, session){
-            r = reactiveValues(
-              subject_id = "DEU_02_866", 
-              filtered_data = appdata, 
-              filtered_tables = apptables, 
-              filtered_subjects = vars$subject_id
-            )
-            
-            clinsight:::mod_review_config_server(
-              "test", r, app_data = appdata, 
-              app_tables = apptables, sites = vars$Sites, subject_ids = vars$subject_id
-            )
-            exportTestValues(filtered_data = r$filtered_data)
-          }
-          test_app <- shinyApp(test_ui, test_server, options = list("test.mode" = TRUE))
-          app <- shinytest2::AppDriver$new(
-            app_dir = test_app, 
-            name = "mod_review_config",
-            width = 1619, 
-            height = 955
           )
-          withr::defer(app$stop())
-          app$click("test-config_review")
-          app$expect_values(input = TRUE, output = TRUE)
-          app$set_inputs(`test-region_selection` = "")
-          app$expect_values(input = TRUE, output = TRUE)
-          app$click("test-save_review_config")
-          filtered_data <- app$get_value(export = "filtered_data")
-          all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
-            unlist() |> 
-            unique()
-          expect_equal(
-            all_sites[order(all_sites)], 
-            sort(vars$Sites$site_code)
+        }
+        test_server <- function(input, output, session){
+          r = reactiveValues(
+            subject_id = "DEU_02_866", 
+            filtered_data = appdata, 
+            filtered_tables = apptables, 
+            filtered_subjects = vars$subject_id
           )
-          app$set_inputs(`test-region_selection` = "DEU")
-          app$expect_values(input = TRUE, output = TRUE)
-          app$click("test-save_review_config")
-          app$expect_values(input = TRUE, output = TRUE)
-          filtered_data <- app$get_value(export = "filtered_data")
-          all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
-            unlist() |> 
-            unique()
-          expect_equal(
-            all_sites[order(all_sites)], 
-            c("Site 01", "Site 02")
+          
+          clinsight:::mod_review_config_server(
+            "test", r, app_data = appdata, 
+            app_tables = apptables, sites = vars$Sites, subject_ids = vars$subject_id
           )
+          exportTestValues(filtered_data = r$filtered_data)
         }
-      )
-    }
-  )
-})
+        test_app <- shinyApp(test_ui, test_server, options = list("test.mode" = TRUE))
+        app <- shinytest2::AppDriver$new(
+          app_dir = test_app, 
+          name = "mod_review_config",
+          width = 1619, 
+          height = 955
+        )
+        withr::defer(app$stop())
+        app$click("test-config_review")
+        app$expect_values(input = TRUE, output = TRUE)
+        app$set_inputs(`test-region_selection` = "")
+        app$expect_values(input = TRUE, output = TRUE)
+        app$click("test-save_review_config")
+        filtered_data <- app$get_value(export = "filtered_data")
+        all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
+          unlist() |> 
+          unique()
+        expect_equal(
+          all_sites[order(all_sites)], 
+          sort(vars$Sites$site_code)
+        )
+        app$set_inputs(`test-region_selection` = "DEU")
+        app$expect_values(input = TRUE, output = TRUE)
+        app$click("test-save_review_config")
+        app$expect_values(input = TRUE, output = TRUE)
+        filtered_data <- app$get_value(export = "filtered_data")
+        all_sites <- lapply(filtered_data, \(x){x[["site_code"]]}) |> 
+          unlist() |> 
+          unique()
+        expect_equal(
+          all_sites[order(all_sites)], 
+          c("Site 01", "Site 02")
+        )
+      }
+    )
+  }
+)

From 9225e8473e9874fcbdd8a880754c46fe27f7d904 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Fri, 12 Jul 2024 12:05:59 -0400
Subject: [PATCH 10/13] Add back deleted text from description

---
 tests/testthat/test-mod_review_config.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-mod_review_config.R b/tests/testthat/test-mod_review_config.R
index 4e444c97..f484a8e3 100644
--- a/tests/testthat/test-mod_review_config.R
+++ b/tests/testthat/test-mod_review_config.R
@@ -1,5 +1,5 @@
 describe(
-  "Feature 1 | As a user, I want to be able to select my user 
+  "mode_review_config. Feature 1 | As a user, I want to be able to select my user 
   configuration before I start to perform a review. I want to be able to 
   configure the regions and the sites that I will review. After selecting these, 
   the data should be filtered so that only data from the filtered regions/sites 

From ee51de860771a8ca1a89fa873097cc30592c0b48 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Fri, 12 Jul 2024 12:06:53 -0400
Subject: [PATCH 11/13] Fix typo

---
 tests/testthat/test-mod_review_config.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-mod_review_config.R b/tests/testthat/test-mod_review_config.R
index f484a8e3..d68101df 100644
--- a/tests/testthat/test-mod_review_config.R
+++ b/tests/testthat/test-mod_review_config.R
@@ -1,5 +1,5 @@
 describe(
-  "mode_review_config. Feature 1 | As a user, I want to be able to select my user 
+  "mod_review_config. Feature 1 | As a user, I want to be able to select my user 
   configuration before I start to perform a review. I want to be able to 
   configure the regions and the sites that I will review. After selecting these, 
   the data should be filtered so that only data from the filtered regions/sites 

From 355443b6a176ee879d8087a39b445aa66a8a73f5 Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Fri, 12 Jul 2024 12:26:44 -0400
Subject: [PATCH 12/13] Update version number

---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 53279592..1c740367 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: clinsight
 Title: ClinSight
-Version: 0.0.0.9005
+Version: 0.0.0.9006
 Authors@R: c(
     person("Leonard Daniël", "Samson", , "lsamson@gcp-service.com", role = c("cre", "aut")),
     person("GCP-Service International Ltd.& Co. KG", role = "fnd")

From c119c573abf0c7ce40183cf1f01dd7a9fd39da8b Mon Sep 17 00:00:00 2001
From: Jeff Thompson <160783290+jthompson-arcus@users.noreply.github.com>
Date: Fri, 12 Jul 2024 13:15:06 -0400
Subject: [PATCH 13/13] Remove `clinsight:::function()` calls

---
 tests/testthat/test-mod_review_config.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-mod_review_config.R b/tests/testthat/test-mod_review_config.R
index d68101df..6d672a49 100644
--- a/tests/testthat/test-mod_review_config.R
+++ b/tests/testthat/test-mod_review_config.R
@@ -120,7 +120,7 @@ describe(
             shinyjs::useShinyjs(),
             bslib::page(
               bslib::card(
-                clinsight:::mod_review_config_ui("test")
+                mod_review_config_ui("test")
               )
             )
           )
@@ -133,7 +133,7 @@ describe(
             filtered_subjects = vars$subject_id
           )
           
-          clinsight:::mod_review_config_server(
+          mod_review_config_server(
             "test", r, app_data = appdata, 
             app_tables = apptables, sites = vars$Sites, subject_ids = vars$subject_id
           )