From e80f21121969d79cb981b6de764924bb3a993ffa Mon Sep 17 00:00:00 2001
From: Jon Harmon <jon.harmon@atorusresearch.com>
Date: Thu, 26 Jun 2025 09:30:20 -0500
Subject: [PATCH] Test virtualSelectInput with shinytest2

I pinned shiny to v1.10.0 until they push 1.11.1. This test fails with 1.11.0 (which is most of the point of this test!).
---
 DESCRIPTION                                   |   5 +-
 .../virtualSelectInput-change-multiple.json   |  11 +++
 .../virtualSelectInput-change-multiple_.png   | Bin 0 -> 620 bytes
 .../virtualSelectInput-change-single.json     |   8 ++
 .../virtualSelectInput-change-single_.png     | Bin 0 -> 566 bytes
 .../virtualSelectInput-init.json              |   7 ++
 .../virtualSelectInput-init_.png              | Bin 0 -> 18046 bytes
 tests/testthat/apps/virtualSelectInput/app.R  |  73 ++++++++++++++++++
 tests/testthat/helper-shinytest2.R            |   7 ++
 tests/testthat/test-virtual-select.R          |  38 +++++++++
 10 files changed, 148 insertions(+), 1 deletion(-)
 create mode 100644 tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple.json
 create mode 100644 tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple_.png
 create mode 100644 tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single.json
 create mode 100644 tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single_.png
 create mode 100644 tests/testthat/_snaps/virtual-select/virtualSelectInput-init.json
 create mode 100644 tests/testthat/_snaps/virtual-select/virtualSelectInput-init_.png
 create mode 100644 tests/testthat/apps/virtualSelectInput/app.R
 create mode 100644 tests/testthat/helper-shinytest2.R
 create mode 100644 tests/testthat/test-virtual-select.R

diff --git a/DESCRIPTION b/DESCRIPTION
index b99701dc..08f885ac 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -37,4 +37,7 @@ Suggests:
     DT,
     scales,
     shinydashboard,
-    shinydashboardPlus
+    shinydashboardPlus,
+    shinytest2 (>= 0.4.1)
+Remotes:
+    shiny=rstudio/shiny@v1.10.0
diff --git a/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple.json b/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple.json
new file mode 100644
index 00000000..769a488a
--- /dev/null
+++ b/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple.json
@@ -0,0 +1,11 @@
+{
+  "input": {
+    "multiple": [
+      "Jan",
+      "Feb"
+    ]
+  },
+  "output": {
+    "res_multiple": "[1] \"Jan\" \"Feb\""
+  }
+}
diff --git a/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple_.png b/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-multiple_.png
new file mode 100644
index 0000000000000000000000000000000000000000..2a3d4978fe1e5416c8c3469186ca86a0fb8b913e
GIT binary patch
literal 620
zcmV-y0+aoTP)<h;3K|Lk000e1NJLTq007qj000sQ0ssI2M>^c)0006rNkl<ZXo2mT
zt&*!S6vt2R>`TN%;dp?!2wWe4!DCh-Q8h7FRYqaznLGe4BC{qBunvXE6V$IDaOvIB
z(gI88-t#lb9Kz{g=HK(tvOAy8fFPUlYwG|I1XYN<0H{J_d%OyrN_mU0w{Nh*A54|I
ze==3BUl+ltlyhPGb-e(rxO&qg0U#53`?HOXMzG;Er_w~$5M<>kCY_N9V+2^ii+iqV
z7(mnQsdr!n&$TyRI-UlhwBH9Iy?ORp0REYtkKmC2kcqsFU9f`Za4fSTsb;vRlmHC_
z`0Na=h+8=vo^%?76bMWcz_$Rdecjd!0GYt33Yjnlz^S__Zxj-rObh_ft)mPRRG*%#
z;8mD4Qq~tqiwVO30Ek}~31FC`2l<iGM({+#g>oMV0GY^3OeZ8h8PAc*qHngetoEfb
zrp#bqosG`<WfSaFT7+dAK)J6DT|20AZ$3u4SgNx{zB8H&f0SXj2tnw85deT7`yCVC
zi&af$oz34B*?m-XT_;@j2O5aU;PZj)qrCD)WO-geg;wOcQ^u6BX9b=al#s>v;fm~(
z@<s5Ys{P#Rnx>mJohtMl4=X?@t>xiH#dWIC(H^_N)fml%gNZ>VT+SaX0RVu+wBS64
zwk|Sndyiz^7Q`saf;lt!b1+e6Y0{VE{!we`Z9!I^P=xETYu{#YDosA$r|ZlLUW8c0
zkY#v@85#M{8K|)R0b|-fc=-nH8}iSx!}kl3&B2O{Y|j_FrWrMlI#bgC0000<MNUMn
GLSTXx2p&%W

literal 0
HcmV?d00001

diff --git a/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single.json b/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single.json
new file mode 100644
index 00000000..35a928c1
--- /dev/null
+++ b/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single.json
@@ -0,0 +1,8 @@
+{
+  "input": {
+    "single": "March"
+  },
+  "output": {
+    "res_single": "[1] \"March\""
+  }
+}
diff --git a/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single_.png b/tests/testthat/_snaps/virtual-select/virtualSelectInput-change-single_.png
new file mode 100644
index 0000000000000000000000000000000000000000..9927a149d2b966b733b958e91061daf79aff4566
GIT binary patch
literal 566
zcmV-60?GY}P)<h;3K|Lk000e1NJLTq007qj000sQ0ssI2M>^c)0005~Nkl<ZXo2n8
zt+Jyq6bJCroqY*RR9qea(}}?G01O_3LgM3*D9rUt9sq~PV0eHyR7{?r{)(h6om+al
z?Y3}t&(F}NhfHSpPd?i24u=CEw5nfg4*(%dA=&^;AzGhLp_LhT#CZFLQTW14+V3kf
zX;0Ueu`;_l?6(a7J!v)<MwL=ZiSX3mqj~uNL!p#XRrGz=gwgYB62L4Mr`}&0jw=H|
zo3ywhkAkN<ZwtCqa2G;?i!cC<h#o8e*g=!%xy~ON0NSA6OCN+nDF7>*hr14v50wA_
z9Is%F0hTj8*knIw7Bk~|w=zrX$=yYZ_9Hn?oLyW&S@z&&YClbng1e@9BN&;L^>oqp
zbpU9a-hVnFd!~nR&}<(PGHK)E;#H(>&Re{`>|)m(^^LSXf~IJF^?Ccy*E+u_L_f&l
zT=+Uc5^LVYDuGknX44x0WfnrWi=##Eaux~|0sxF%Pm4DBy2pzumq^0sqzzoDK-=}!
z6dFB|H~<KIro2&<{c#-~1%G@GfPSbAd|zmd0m=vffR#;uvo?&QX})Bmf5PHiI6E=a
zDX-@TfxpQZ8zgyDmnp9SASw#l-Kq~oTVyHc?%j(9h2CuE{>@-zmg@ZeM>-1Lu;XDC
zq33L1MMnR<Sql5|{$KFQ+uJvU{=^RdUx-$RD>7Q&Cx5^6u#bZqE&u=k07*qoM6N<$
Ef@s_SIRF3v

literal 0
HcmV?d00001

diff --git a/tests/testthat/_snaps/virtual-select/virtualSelectInput-init.json b/tests/testthat/_snaps/virtual-select/virtualSelectInput-init.json
new file mode 100644
index 00000000..e2c1a1db
--- /dev/null
+++ b/tests/testthat/_snaps/virtual-select/virtualSelectInput-init.json
@@ -0,0 +1,7 @@
+{
+  "input": {
+    "multiple": null,
+    "onclose": null,
+    "single": "January"
+  }
+}
diff --git a/tests/testthat/_snaps/virtual-select/virtualSelectInput-init_.png b/tests/testthat/_snaps/virtual-select/virtualSelectInput-init_.png
new file mode 100644
index 0000000000000000000000000000000000000000..c16870fe101beae9ce89c4484a4644dbf67d44a5
GIT binary patch
literal 18046
zcmd6PbzD^KzV8A>R1^dR6a;iY8c|Xjr9)7VPH9P{d+<dBqy%IrVd#+VW)P5&?(XjH
znEQ<He)rvXf6l#UpL5Uo+{+)#T9eOO^Q_<RThI8tl$X4Do%}ikK{utP#1tXu(tQZR
zR=bJ~?jgBNLJw}RY!xM+LpdGymLcdqBrW#rwbQrtacxsglM3{CCc*Fk9X}UW(3LDt
z8uBE?mA!_<7e$pyrI(GcgU|x@&*@i0_>Jxy)~Y;vajew-tk>&3LA06Iy4SXV=%`3$
z5$(nY1F3?ml=N*3FG3W^2~uF!zCU1p{p69nVo6o&5wDu8tod?#s9S46_~s(*L61v0
zf~ZMY_psVZxS*nf2@LP$BKoZz7T9S2<cR}8@prKBAV}m1HYo&o>R)C75B$8U2L690
z%me>#)98WcGDy^d1AH0q-}nL*<=S6uRrCGTTwxhYzQZ9pxr3|w2SH=ELSA!D?YmS@
zh;S;KS5q)*T0K=6e;;MYax$%%OS!y%cN0;1*cCE3LC%jpAOAH`d=h>Ig1Db6W3_fu
zIKB1p_0{6leO34Qg@?1QSh9hho^>G3=jLjP?&<vO5L)(@mT6J6Gv^&%TO+IK3mJ#q
z^Pk@3%xROZ^Mh<R-0oBk4iODL42!;dO~J~~=>{Zn$uiUGFplPeQWw16+-L4EUc2U3
z4vTGV$#gK-crGP8vGHU>$7OYiI(Li=Z5l{FB-OIC86-gjgZ1=u_l};P?Fv5f@nxCl
z;<Pk&cq6Xj@swDg;;D;O!=Y)CfA&ORK8;rznTkNdAi4H62#V1P$C5q3zhUR*?DA~x
zSH#G;sH6j8n9FwkjD(PIS!k!K2FZLY5chlK#IKpUb0%4fua%3FgT2b9yPF;YHVsD7
z$m;4#^)}XYZhId~82mN1=62zyTU`i$wL?-;6{ew^5cFEG<=pSXEEOSPRBVky=~$3s
zF^5Zy%SCaG4R4luauG)%492fRe%yt~DWF=XjJne^S;;($bVE(!U_+jPiswonAE8A`
zeSO>Hbr{3)HguxCkr0L~2CuORhYrz(+MY~JO;pE)o|XlpPO5x;S+rt|V8jsgB6H-y
zbHd?a$Ft)@w3E2u##wmfrAt36l^k=wA&Cixw-w_D+f*}5<Ap<SZGTKn#EQs&LV9q8
zix6#krafqQl%3BkJQjhVtURpgDzv+39UT@ej#nin+zxJ(bVDc^372wosPFa5v2!1{
zEVr0XqVr5|2yK{dzB{~!uJ7{9Rh!MwXFZ{AF_cN}`^wQYK^3eeUF>K`N-Cyx%r<#?
zaYhf1`W6@4D?8dfG2VMPq6uHh&dHHu;y#Y(4ddYPC_}+uto#m}>o;#ybLExJ#m`l5
zcA_8d_#xb79f}+e_imm|7t<)*ku;oCAS9F)JE<mYIn}%jL8Qf5Uh_+WiHC0%=!%Kl
zBfoO<(x1$F36jKd5uT5CALgFD(-kwEzaS_SzDV>4%$ajOzl&N{=g_{}dGt0!4~>^A
z9#)L3G(mNL<D;ZvJWq}XGoZ=jQ7qDp8SP%~%ILP_tvbQ)Zq&iDelar^-b;U?d*|p~
zNslDK=J*}gb?*y3Lze@eHPHa(LwIDY2ilSC9=VY2+`;dQfvsw1;%=*^4gCGaujNA>
z=Qn!EGppd@_m6%aP_8Aa?~-a-cjB=l_gpNwelvG(`<bOc=$CQ#O%HDS?U`~v#~`1H
zBNTe_r$3pnhdr1S0_Ze<GB%wmr|npoU5x~}wYe$RK~nK#qeI!vfZs0yPwjkh#yB@Q
z4uci2lkxJZJLstM28rfY_dSBagx&7C{ctqgGPGMb?W_K!Qd2>OhuV>}d?l7#y?9iK
ze4$<C^nRsKDR;w~EF_$|;|9LU*YnWsACs|hnuH;U@r$k{-t#My&Tk$4eOYu|tsj3Q
zJ6G(Uq;#KjQaDRcI#~Thpo@<$p#<yM?EoWTyO37+QmK1>G=tfZztL5L4aJv{SBeSx
zoVnETai|-X92`cM+*fAn%&Uj5goR1Qy;~n!-ni?;oHw|=)Dg=+I=bKeq$!Etabv99
zb}@;IU}ik_qIECP*O&fw><xk=%=5tm@{XMewatcok?uli;mC5`fr+h#N*8uQb@j;D
zpl?noXm9l10hP;oHbD}Hk;>inwr@AgBrF#ny{NLEyEX_uM_XYJKUllsC~a|6oR;t|
zm8QAQ*`Yywqd~w$w`>><7E%-S<HOcmO0e#}Z*wB4fHNamK061sF~L*&w>Gq0F_jzT
zui%xwQZsDGHseY6*=on4(%ju#a7i1hu0Gc4tQGO`ZT=&b#BCDwgg0X`b8Y7a$?&xB
zgl1DX9y=c6^3qUu!E8z?_QoHo;}=4LZ^kQ2<HE0wNj9dY%2&?~zZrMJOrfY|KUI%&
z<iv!C(~iWCbWO7zw#HoqJenchaxoz+VNqO+R37;VHDtE7w~Rv=5~M1LhZuIT+uW+m
zb-<KvccD?cD*ki7_v4Ne?eJCV{c4UPl#!&QkLx^D?=}{cuGqf&EpF>nmNsj6cf>uz
z!}(KOT#v#e<J1uUS<CS*M}E}1?q`h$2l(QH@Ap3?aiEVz!7SC;KU^yjXDvr|O`yl|
zeCi^yEDI_NRreMN&LuzR1n!&W>Qcw_7TH`|Z49_r+4w*sKKf}G_1IR8hl3)fH<!Ol
z(?Z#g#vngxcTt#kxK-*t1Sx-?W_(^x+@!lIbbj%T#dPGbUSX~#ty8CGS9#ldG=-Pj
zt(nnwbEEnv^+FBWL#4MvH%7_XtSM<D?!$E4hc_W@)vtFNxh!|i=8AdUCyo;jnpEdr
z*>W8=WYxs|+z2|Tbo9r6xnZ|Xdi;zwM9wc)Y)pDQvUf4PlHcLB@Qcb(nu7bGk+Pr5
z#6qtL4mwxh@w-5fo}d|lTEXt|hq%K<<6R=e_A0Jp73a$`m*>2df)qUr<%j3T3i1k_
zZ64O{0eLz1f-B;-ZVF6O-02vLjdf$YS6;$UkY0^$$z1f==V`z5^=x`?)5E=DEkm*8
zC(N9Gu6(CSSC<jhG&7?e5?fG~cOM3`;$a0aqfet#@hbm$)Bf<YurQv07sI;3YCm^w
zT#=M*<&(*f+Bw@wAk%T)EHc(kej|ChL50rTtQsw?oQNQ6>WHgVb9i#7fgrDj>$ZHq
zwi;ssI{H9S5I({;$+4DAm9soI7I|}Xov@{C3FVRZdHyc9j8({$x0}2dKB}h&u3GEm
z^wWynE&JaDxp)PRS^|IKET1~jRh5p#S;3Je0-?=;eNks=Gc?t!jL*fy90+1#+_Dp&
zpd=mFZk6Ze256W~5rQMokM(yxxuP@j0Crd`TL`mJJ>B{Ix>}&Vf;LS2M8uJd43GP5
zTA(=jrw;9CC-d6FkF6ygwZA^s_|{ebjE)w|2|DohK4rE+kF;s{GaBX^%DdY*t_o&T
z@C@vpUemTZXAvGdswqe*O*Y8Ai1-@GT+^V!M8368#moNACiNhk8G@XiW;+(|#nE`s
zycz#eIhbl9F6MIOyL#Lk_s=+qZDVZ~7bQ3})oTZbq~@D$aE~2aca--Z7Ahfe6Ki}M
zo8h`doUSR9<F0`@A(<wq3xS0>!)L=Vn9bo?{NSMLTyw})3i~pf=8tfW-k+Dc14Be7
zCPXEJE(hpxRu?Wh3x@qnH4tYX9yiy}pTDT9)0aK1->R&@f?mEIM+F(@*4!U(Uw5-m
z>E!C9KFmZ1eVfd%Dc}EA^w^!x`u&b8$7Z$e)7HxI$d+?2Zly2qjh_;ACq#<HwtF=s
zJ+m?}BB%9wweM;a%M*c1?_Q!p7YTBsX#5oJp+$pzo6p(mt+ko1O17A8RjaF)qw=P<
zBQzP>y3Mm_g%3U6W$EQ-yXJ5Cv60PR%>1!7X<bC7ExD&F=&tL!S$(FvVarB(EPD_^
zIe*g`vEqaUd1mdSYf$u8f?UPsE{YGEa;0vza(s=@MlwAS<c+CtJ<K`IGzs`2t={*C
zq)(H6OQqvxY7Nrw6E1#i7wPEe=x#@tC9$-=+g33Fy-Aqk=0tVOi4gbk^i%@bAG#NL
z7c$x(2n{F?!^=5-T%gw|@7#djspjMWf3}P#Z=Bx6A9_!U@9E0+Qj+IiM9;-aPIUJU
z&x8wKoOJ1xRL!lW<WGxA(lnY~PbeL5GC0IXnX{lgP8@x%)OAN~DmA_cx^a&k@!5LQ
zb&+6UYdy&);B{F#4#CZU$cXlJ>(T0JQ8=CneJA~<2Ko`e@Z&U@nVGACP2(+t9_Kar
z0ewLcbTTaS8J#Q3!L(um2^r~kAM3xde%U%|EO>nULl+f6!B^NeT|>t2%=uLNY2x6;
z8B&PfW`2;K6F@Du1}#?DU3b=7QOpOBw(MahF}?Pz<Rr4VKZJGA0kN|&?)yn$iSheK
z#5h}^+(%bDSGShk`eF4W@6sZ4te?`Q4Xqj`^^xjf0$mEBUD55P%Z@0{6X~b$ki(uq
z%R}^XVTdR~#ya5M$#_J$V1L^$TqyopHp=T^L7{?fPD1MZ-2s8)5G87#xXJ2zwT5Y*
zkGw+r>6>#YDEBjYWVx10YmgP()Xr?BUX<UT^>_;3&1SjKG59cYF_dzByc2b@VFLGe
zXRjI@AGg$9s-g?txEY{*;*<Z`wJAvJF8>IB1rokL-udXlvOuk(2j1QR-uPf6v(wR0
z?fTfb?HPDTK2W_^c^KPeBKmB!&on*P#L?A(<QPFoiNO}-a5>Us=Gnnht#3|gY=<>P
zYeN7mb~M2&4P{kf1w3cN84(rjyB<ixtXq(0;%hq$snSbG^a9ii!ux+gy821;^xxz%
z-Yc|jch~8aHW#X@`pvK|b-&J*9CTrzdVYf9*507*FupiZn;bTnuIR^sG?i~+F_YZ9
zTs)Sh@%R*(X-!KN+$8CCy>;}4Vz&sKwtI;w&#0kp0M6zog$l`!-dm+1J<vc4Ly&LZ
z?L0+}-fM&krcB^9Y0s$$yHgE94@L8~-}jxpn%E)EIo@@DnhICjOVgE&$ZAk%8W4&u
z{$aRG{dI*uoX`13f^mh6*a==oNlnR}XeA2`VlXWQFdu&o3yqAEwmcj3DGoFqHCoTj
z3az|t!P6T~%3@P;!aWY@DP;=jm5*5g^er!@1j`XA8dI3pXgGVNgGY|;)bOYo{DVH#
zpV}0ip@v8LDY8mP1J;v^oSd*`=TWuU`9suCK0U5-H0<;+$1yt*OSM~j^=SW%b<(_p
z`e}1$<(xG=FP6w%t{a3WCujOacE7m%#M+RvU|29fDriY42OBIr11pHdn<n&oqstZC
znC3#n46Byl3lhltR;dEjD8#tH3R!pK?sXRXogpXMT&{@7xDb)on?26Ym2f8M_np*N
zD(R`@b0&m>?+C^glRve;IBDJp#d9XPr>;+y#BOdP9}{#e5wLQeB<|5+*7NKYl-^K6
z9<&|UkXF%dtN`oTjHO_`K&7KP=_P1;_mJ*kw$})^36>KYcy8~Qdhf<4wj{rw@hxYK
zlJn~fHPothkCPI^bK&Yng)L2r?CqNHtm1S$6dyB>8;h0u?3<Q5_)x;(`W@W9Ez;=+
z3)jVFH?&G6@m#`&;c?C@NBap#j!OT@Bkb&{X2nWhohY6BBZ-;qkp1cxP}i85R_c#C
z<eUq7M)Ys`mGmE}XI(yTT1@0fmTQ^QxSKIGS6i`E9kYf~Fd$M9Bsn8K2%M`C^6&h@
zWN-MQ5`xyg6R4H=W#-g=L48jOyvEd+7c0c1DuP@vqMT&l?TUxfwBj$N1ng=`;_o(X
z$;1lqms$w$lYBZZPycY<f;;(z@I6!V(Q5tCGY0;6)s~PHhkVt>T}mkL(~8g4{e0Zf
z``>uq<#DU(HB(<R8z#IO+(aXu8a33!)4+EnQu*jz894ZG9-DNs2p$jhmAOWzfO$0q
z)8+_Dm>i&XAyrDtg)?|E_4RUSGE-{(Ufek5W$cWT6NZ8k-wW}I167rbuu*1WTUsR)
zE9+9fj9bV891FWvGyx&KG3=cEi3yF~3p8wE1@&3UokY7{SmV~4>zQ4S?~P1SWDm%H
zrcRIwI!`2&bEpib)QhriB454vgHfS<P%;Fzm+MuGDv;UGpN!)-2!Fu`V1oeAdMXmg
zIQbMLm}VulYCq=^K&JS`0^((lHmrh8uZ`MzgcCf*ei8Kheu|6MIPDMVmZrHwcc`}V
zW>zmj(e<AQ2m$Nkth~925rDug(hG;PI6OSuj<33?=xd81xi;QQLZABXfq?}(K1~e`
zu-_$c2X^_ZI_TK;s{;q?qnetUl=zZKtyoN<Ery7Q2>8YEqM+-+mwZV1s+uP|U`WUF
z5xU>xO_K1iz9Zz*N-alA%m;HM$gnxDE$CtWVqs-1E-B%zxE@cMot-T!D;t=DZAx{S
zMI=g&uD<zx34>4lkA`O=2`hBvlQr&@R^brE+;$VSwcRzylTLMC>7$!%9iou{?A@%r
z_256OZ{;PBcGP%?IPSO{3+5s@9o){>>PB2^JRE+U*%E6$Jw5qwi9R<5jx7=f)5D_J
z_(_nXQ|+=pSGaJ6#(ucIyO2H?v+qSVD5Sfnq+K4&&%Z~|=B6SoHu{({Hg=&&TfrVN
zP6m}c#wP938&sfjI!1cw-f&dTvwj;JOIZ?cG*_6ZnwxXj_RC(d|1F*d)b(-YE-2pC
z_oKhh;&>Wwtx0S0WL}|c5~^_786HEX%wJ((wai|nC-^21<Nly>|3rEeAJI-{`_X!O
zZ8aBJZN*=|A2vWJ(rVHfS9Q{zA2f!9y1p&xVG)D`8BpJK&(5T_3wjZGZ7DM!&j(fJ
zvcE!BuRpBuahR;~<mc9znAP0&!qCUFWwVVNo%r~U?)E>P_U_~9+TSF|VHU-%B`th~
zX%bE^hHEfL_EXXV^FVv~fGW${{wD*Y4p@GkGs1vANWIc{z@VG9=Hg^ECnu*hf{m=k
z?s#V&Z0DjbDhTZ@3Cr>OMs-`x+_>-C-$XB~`8*M4DlPWa!dsiqkKsY{TGwpN#7_kO
zvhTg3%Ski<Mqs3i<LUGB)8(w!oL$uKgBxeJodkqPc4%SrZMTxe7e38k_E$=+a<*Aa
zMA5nQPXxnW==4U@bIxU+p1+}4A1&SNRS<Tc4dmHjADC~Am~@&AR1iM51G6eH(<-de
zV`n{g@9sf(dt7JfyMtf@_A_xKrOG(Lvl&%l6SBDz?_3=Lxzp>lqQ;`w2#gvd84y3a
zvc9XP!$JHdx0B7U+|bg55RU8|ixZT!(AeGEued#VgFN@KK}gPZmT!WY1YN9W=XEb;
zyX(A<kJpl10idhVSiLRbwQ|x@T3FeE-ZegW@^h8gfM@XO#qf_e<&WRn=*LYzg9wn8
z6i(S{Llk{`1cK)4n!D<lBHnCg(Xc4{Ff6X-!H%+R566JD$8JogF#7D`{1k;g-vnE`
ztkF4OdS4U}sx;~dJ*H#x$m`(U1S;kGEZdpd52fO|Bs1y;qf`C{)+jeUIWe7kR2vm9
z7miGDeJXW4PHR<R+V#{oIu+(DzvfI&lc7!)$+-j^)fyWOoxWhk6&rX>O@d+PW9kf+
zDiiq<GG|h~;96_!H$;unT;@Wt^<)j|Vn3G+b+&`K4Hmv|@=s+p80g98`*t`SrkWea
zQn?;kzOCMh-$}~2s+J#Uv!;gQ*kymjyF=pX6FlP?{`tzu;-|I`0;1rA0)6nqeoCxN
zXCi%;sbi>H{~kV-z@6*fdjy~?UDrn5sXU&+m9xg(daNjb+dA*y&z&t?N)|KFu+9w&
z;;m#N-3X=~5R!ICbz$Pmnb*l!W5G0CQopOaxl~uIYmOIUtZRmsn7;4zkA|bae=8mQ
z##DTFnSi23Q25OIk8XKr=#SR~geMXb=M%p*NHCrn7=>ht@KeFC>z98alP4(%w?9gV
z#!YFJ7v4@~sP+-BsWX0k?5UUkpe8#}r#=qKQ^r(njpK<@>q(EZ?WR@rVDb#psgK_@
zHX~`HUumOnc6M|K9nXc?^YOm4o^(IdR!~q#%7miDlyc_cqN9x6Zh<;2*Nc;-Hnh5q
z+~5~K1U3cdFNqwl;s<Ut+ecDK{s40l6sNBKuIS|dmhSJ#j_*Sg*20M?xlwYB)9)}_
z&bRU)qmhvjP{Ap*abEh*&(D{Xlt`#zaS~vY#s~B+yKPN9<BLrV_GYCGYf0{1#wDP7
z8rvZ;h|L+Cs)>td`VE0VfXmyC&wa6jlAW~V`tP<e(BI$R)6=u0;koc?e-oBv@}yQ`
zhzO-X4CSRLlVNaj9v$cc|HbZuNbGO4Tc5ul`;hbi!7s~1epO7#p4Z-cZ#1jecfT*!
z^MZ7VTpibwPO=u8n_^N5V9ns8&(#Pp-)Q^-bEU(t3{vB{dTDI*iX|fhaN>oos)@ud
zxl@UTq`qRYSWTFVmL1>@+kUTRU0JmQ-?Iz#-E#%tT1WJk!}HO8W+}oHa(=}6LvmdN
z^Kgz**|?nQ@JVZxLAn23p1WMSMSZW<MusmmIJJ&`mC?a2y34Hk*g|~+ato2T(9c_W
zo)x~{ma*ilYPT5N+&w}X_5x~nxwHLzQMsm*GQFIHA!wHsVY5mXm`$QZgN*nk=Riu1
z3H1`Pa-XW8ug-eY2V5LFI@YpyBQ%kuPjuS`UagEYrV+NEb(OiQ-Zxvnxnf<OHmY6o
z7)r;%!b_(Hs6CG4X4#HTF<n-{G1I8s@#Z@_rnx5_nodHi8Io<QjlW^IY>s;N@Nmng
zFGEF$N}r4`X?f#e(NXeq`1khxO=r8mN?8bmJ|>90?!0$uha)p+&0qJl!GUWQb}}y4
znJl9-dN8p%$Xs;_X6{WhaLfgpG*I7XPn<sQxH#DPyu_f*wN_tt(UcwKj49<fAvNRm
z7vWQ&zWSOzJN=@;6!mpXaH&1fuxG$mrsE;4quxu7x&V)43|uvyO?Uh91bg92ei-xP
zxl-+RH)}W12f-d8M1vhv@w!^5!n(tUreaMq9Dpv2f4`wtewP5T;hv@UUG&<)H5!D8
zACoJCbo-^3_Pow4TDcW@M#mCuS3Xl+`g}&*LYK8vglMHH?okSqM;{7o1R1*unRjt~
z$v5%4t9W8=?pU|Ou4Xhg?#-M2YgNT#eNO9n12LcY=5>+tzOf&_&f#h3CH04=Yko2w
zb>me#RC3rh0qVj@9)KaqKFpFb)IOF`AUW}k>foC)ZPzyM!X>q(aj|locx>{cKG5Y+
zK@e->Y`3SZaL>J&%&8`_^Q*Q2osmHs4l&l!2jd){h$_cZa<rG-t@_c{kOg5e0bw+H
za(<E7mH+!tod`}Rkvak6`PDDl$^<;w$5XGoP1pqbz+@!-d4jn5yfE*4wHF<Dn{u&N
zvMTwPTR51-)zgt7PxhWw)%6qXbr;I0i027CPp6(*UbUaUX-j(gIX{?np++xYlwIfQ
zLNMHTmCcF9Vm9R9fl_Pv-inO2>kGF)>>-E?hb4G&6P&!)>`~+Kq3eY47k{9+2R+I%
z`b4#is0End2P;Vby86~{ot9f4Q$H&lKB2p&9Gx4`BE4Xe*5-dCX>0JIhH%$F!PJat
zj&VXbZ0zFTL&I9%X4Sg5@yEsSH0K!S(RP~k{RrMLc;AG<jt`6Dca-AF2$Xj>OJ%;p
zq{-FAB?x{H+!=JZcMrW5RP*DgYVpX#k>zwO|K4_ou!^dxDtcR9;b2yuU!9<{#?bAc
zL)gLxJsV4;nwPg8=6Gp1mi1K4jQPETJAtM)jt}<BK(@z_W_QVme$?nXX?LoLK6~t~
z?aFXA+A#O%W|BKQl7DEhM}>}crk4A}z!pjj*&hn65)9S|p-eR#sL|;{jty>G41)<W
zZ4bp+BoR+tWp<GM*VAj>LQvN|vsf=9fpbowShZO~8$m$RS8zkFQ?q}cdypfOt2|93
z2TCPO(EwK#?jj{i8?fk{d>?+tJt3Ov2`4GhjmugkK7MWHWn)$$AL%)Z4{Svw(ikyD
znk64Md*3=CYsk8Z`kYmK->^Y1%umcvfb`C`(c)VYUP374ueRaI)PFAz11x-xi$c~(
zN;PTUP=8{6K)8G;ah9~5K*VMw+_D)m?1L6VPMUR!ihHDG0m}Kv5lK&!->-5jROZ__
zhH!>_oL3tamDlLX1O&HxB1#0FT(E}=LD5R>Sj;hbdu~P)2D^a)CtT-G1Qbk*tohXD
zp1e1(Qf?`9eg2?y`~I7J6E85NS1p1osx#Ac`G#3*>N_Q5?px^%!@KxgY-Y5%1)HQ)
zq|D6B%XThr-!fu48EHHW-zO<MyM5WNq^Jn9?~G}*BTM9KdjrIj_br}*r<YodkJPxk
znww|VPn+8DiiopEwe9Te0LWBj(n-Zm8h;(-f9oY(tUSOi<I8rTIeFes@8PHQmb;%G
z*zt{Hdf2mC?62w?8fKQ3mUbi}tQwk{5eNjiHcpp-SuB5#C<OhP1weW!vt>Q@W@Qd*
z>8h+FoqzW<^66CuG2DN_gjX47zX`xWj^@MKE6xBRP-p{hsztdPpLFtDUdpy8Hl%my
zvDnpr^z`%I<RAs!P1UZNkhOK{2v>eN7qy_Uq#o{kSw;xuErWIv*w_EifOrrzb|}8%
zs#@(QK7pqK@DCqxpcg@&I2KtQi};-ikK1se_CT<k7i8cSdxIET#1`ZNC^m)*>OTUi
zLZOKdiSS~R=56!E@e2q)dBO&R#VXj3S8X}EH@}-+YfuGLhr5gqs;yA24(0dUUwz6w
z#Cvei{)lk-=|MLxT3~DE!xKV6=WVadrnV~s?fGlQ%j6d`H0R!l6j)G9D@M``-vsB{
z(nA@)q^RP8A}%)8eW!(f)y^h<qULm?GA=F-14#TT?D7`a6tv31&y(HJ+er$gImMOt
zs07r;YnyjU7dy_5<ccK$r09!1@ib~k`60jC%RwxxLWu;IPzlRCmbuV-*@Jr>DH$DJ
zK8Ir!Um}Hvh8ZO$mq!w%S_V}7C|O?Q3;N&^2pO;0znMwnqA)alqzgaaw}zjN3ZsuZ
z0q|*aUEY~*wXWK3OhbB9fa!8Y85i>GqtO#Q$aE+_XfN%wi_S>fotlcj=*EnQR-g$N
zX~m_X89`m>SR%8QceY-RC%it$!v=TVXe+l4rWSP3x&w1#_!~)KZBt8ThH4iQ+@d}W
zqy<w=6gsW9eVpE@I_^2+88k!*Q&jO0P)*pb##l$NHX(-IT*R3ByT(1?E){aO`-12f
zmG4x;j1I7zeOAmnr78wXZ^Yu_;u083o?2-~mOXUEC!ku>x>%-Hud+9ui8dNM&{Y>=
z%&*^35SFf7%;&rPIa{_<4RzdZEd+SP>ER~&;t&P4I;B-1&libtt9r%Yv$oy}nz-+-
zbHr{a?&f$DxM>;s%v-Oj(UjzX@9}&;7w!(oKN@ojrt+VM#HUB1Zj-Q|-(<Mmgq(Xj
ztH8)rGpOO_LllF>>$IiEaJxs?)Q%N`=F;Q5`j6W#4m8O+)KgVh;iv7{2j`u3#=0Ez
zM(w&K?Omav{B}ZxC_x_0%&o@)Z4++0?L3oih26?Pd`)um&D&p2@(R|D%WF#>v31%q
zH907*7nawG%*!h6ih{q(r`&5FRw~&P_9#*k8;d(IC!@0>iNl0t5{{I4oyxW{Z9Emh
zmgn<d5pN+Xo&PgtW*#COvIE$8bY$drIlxFC@@cz2yl|K8qJ>CHzR1yq$)`~ZI8E8{
zQD8)rm2!O2tuJrizFl5fkxA<XGRXsjH<|CA-UFpYTU(ozl{GL2=eG`$0)Vx4rNjD2
zab~wS1d;nacn&7=zmwll>u=>819FK_ICw6n--^dD2iO>B_)jP#|6xhxpI@L%ff1tz
zS8q1iXexGlf(<bx<!|D`jV=fxS7pZ$v)dER#)_>mfXQ(CzZm@i0PT5*7+^gRlpZ(Y
zX;kE$*zKvRI<&ImQvJcSp!wARO`9EnDki5-7pBGe`SbHED~pAdolXP}9A4=-w%gdX
zI7ApBwXO{pO4O%hmY~>-G*l4o7Dj5D?Jn=SzrXdzg7TiNbpPmq8Lvv?8KaO*b;hDh
zgx3~alrl{3r>hg-Bbr4J9xAXNBq|Ird!Rr+dGs59cdAY=%ldg&Ba&=+lw6Qv$&(0A
zq7YwW52wVftv@K3ZTzZ?<48H5D^65LZOS}Uz65#leQ&*$0Otf+_H2?z%cr>4c3Q;$
zQzy68RlQH%*;7g%#;AJ#JACchi=RnYs%FM~Z{oOxe(T1HUR-bHca*n#Rb8m_-?nG*
z0?k7T#vVu389-5pFwT7;tc9}Ee-s7x-j=GnD2aTKe<ai>kKika2x^+$Ce$tezJCZK
zf2Zt%22-2c{;FDB*B1pbF$_QsVG8|IDxMtE27SNE3-dK;+Vq5bl#%w~R{x=qpBE~t
zCQ<kJd-~Mg!{kuuB>H)-;0}Kimz`GaR-4wwnC`(<CXc3a<~yffuZl=$a8B^O$N6+7
zL3tuwxcQm4q1>S#d}z(et-R}}obz{xy+TEuW3#zPK7O*O`z&u>-lcfHy#H8LW}>}(
zY~vSmPGDuFVZRHEVt+M!J~fjheIpk{X|j}xv1HK>)^{)W;^sB1ckF8yEl18jR4C;~
zKc2nQQtY|+^fmkFl8+{C{pXwZ%h#BR@)t5c%d>^zJ#eX)YLHVH{=vP<prvC}PRQTN
zs`?!DhqF_63eBE-o8#D>u%fET8p6>d{fEj)IyMSqbHZAA2jA}>6Fg|B8@|NkB9Kti
z`8dm3J!~u+s;$@83_q=OITZ+zf?;40OU$|Zz~+=jmwD=Knz75D&O+i5a5a^T^%J~{
z?xU9&U=*ivmgJrB<2NwUN(7=%qhR?s?3!kO<MGK^;@bf)!30LvJlka+V>U~MDWZ&}
z({Hcx=ij-PJy9+Tt`2yhdtvC%QZt;RsJt3Bk7tEtA0n69u*fdzQM`xJf+Kyqzu!n_
zd+#-5g#%HMDiaV^V0W*@fBiumU0^~9Z@%Zh8*Ge<I+d`Yu|rU5eNaNg&L%C$*&F1%
z+W0<zC8S{b-Bh75a^-8Q>O%$VS&Ao{&BWxzT1`Cqm4jpBL--{dN?XQR4>lV=>m=w=
zC%Hzb#yY<PXKJDV-En;<yqfH5X^n6BtKbfeE^u{Qv}Y8^Ca7gqpZM6X2P^u+G2YHd
zik|C5_E%?SC_V!N$-Zw`G<JR$kCv^iuRXfHb;|Xk*VQ{ek0*VZVlVf`DVa3O+D&rT
z1-^id_p;VK!sOI43ogOl?y@by0;l;#5p}sOf9&4LZa-TuX+L=@v!>`IgEp<Q9`Rr<
zVLC!%ix7_%F_&M`RMkaJM)m{kN9@eKKQK5-Pzr6Dact`ihW9!z%ddk^Sz*&wC680u
zPkW6Sv4n?^Yx*_uS;+m19Zo!>GCwX}?a0_TRd>;{8q)Mcl)zR-!CLdWxIgVeC=7wi
z+-CHGg?S2iCRsE;53YS0exzs>5<Hgt699h1jn`&m-4Xgvj15jCX0{1a4sSr3{v-IL
z!XeoD9as7qo5FB{wT717rkHVMRlX|AYVkE%4%O#K{$6%x)e{mC;!_i$TnbL5Bf3V2
zs+6kfp=Qrozb5LwW!bRET>QuvBtSG0L(5+@?)qU)+S}gz5W-T;<e{+C@~wHMd|9St
zLe_*pNguZZNfq;oXVB0J5H19lMBfcR<B+wLQV=$0q15mCL#LfMnos#Ge67jFzpW>}
zhfImFGE4dg=h52I#E5LzSB>iAcZ{U&KSGoDRV>o<0i2_2q;-sc<mP@dw^38IrKii+
zP&4N@zm!mba*SV6WEe2dD$bIgpeom9QkzTadxXP`xMRWsX9m)9-=kho1C~ypT7<|y
zBH;d;gcG1c#r=dRrvG<>KKo5inST%HV}vUe6&0)TiedmdK&Rxr7bFpJ={1n4SlHMm
zE9}iX;{**^L`dk$FZ}|-6~I{hvGP46CAWO)r|tLv*p8D=``wc<O&b^xz=i-GM7p@S
z`D#y(B1V0~#lm|@_rGHKe<ds1Z}jl+xRsd9%1HR_B>Zft*C^sjG)mz8GYt01T7k6!
zGiP^}qn`?(j+c%rmk@*zSNPi%I_1vP?A?GdGgR;uH|w~8b=dZ4MCzY_@45bko=Msr
z_cU{V*h5XthYoq1KMw%*J&Md9^!7szSbRw+cRSx7M4hi&qt6zF0pfVPnF928)OI5U
z(&J>g#{HE1H6;Wo27B%g<&Mmc@JtHzzD<qm@bdCHk;IHBZ0jDiTSdRArM5@g#4r<p
zgr$p*&Wdy=s{m@{SgaBB*jsx4#&;{B2moIopci2TZjfU2*^%DJR-hKFGT9!9x>i5$
zyqj`tozvn0=XSEE5~x}n;F)}+8N`}j4<Ib*p@4yfmHWxkeb!8$Z*ln(K#K>1T-B7q
zpvx4hurYoDe0-|5po8&>#~8FuB`{Qe)~it9wA$9d)ta-8DsWTO_nAj}ggSH@*fZSL
zjEKtz^7o`0aGwr0CxQG8M;|XDtxxRi&*wgrqE-OYNHU;2F(FoP-+r~&@WC%F;Kf3t
z0VN`M&4gj>Dl}xbvU58j0fQM8R(S!iMlRb$L_6+>&CkO4S>T#Y<oWg(be;=8Uu^}7
zHs*FVSa@P@S!VDzxeAVTE5YEi73uw3(`QDb>G8f&s|LX>Gr_`9aKvkUAFkkf(bcIR
zUI{Ok8vKa8i6?ln>%HoC$#Qrqu0ta38Te|koom)8`{{2+X8k**lVfI+XgL!g<#~`8
z=M()M>PmgA7hS^uU4V8ew8gpjkbsT7cSz_q!hH7etv9Q^lDO2B0&k+Eix;=1x;xg)
zec<299=}nyPT)XK>GLne6sB2#>1dkfTPC<Z_(*PyNdPY|!~Pz{n!w}t=R?!LnuF3~
zD%yVh>afY(N*UwBPYGr%7>=C5vET)kkb>OTdvt4ShS&Ka3;VN2&-G^Q1st6`^q*5N
zZ@7J5UGPS&ihja)8!IlKgIFL7=Y6-&w?wW{HeKOwny49m2m@Z$$rKV7V@SYYY##5p
zO0U#o*x(Z~M}``}Sj+!eBPV#NYk$roz|Vg=7p5?<JSS4^emL$ZC@6@r3W;uDJk0+{
zcs<kQ;o)eh^<WwiK&o`Fv}^V6I)W{(Cx6lEmp~IYWRC(|vkw;5@)VSlzscZonwq0K
zJ2s#snB`YhjSUP8EHV8l3cTlwC7=?JO6%Rr&+`Vawc|UV`f(|(cNn7@Y&Wm0m?fD*
z(M`X8$?(PMXlTIxj`ii!3R6;2x{IN9FHcYg;_rxl1i1IVA(tO759~UZ>gl1A4kA3)
z*4T$2>5-UG@vY+diRFMsgUgDlES$$KCYcs`0Y+lMT@&IYKt;Vx;>t>Lb5D|pLN|;l
zChY=aLfIhcVCRM`&~?H*PrmL`flsg(Noqp_Pg}S^!jf)wHgCe*c^<vAObam5mBfsy
zPhZzRmSn2lqLi_>Wf_&_tYJ|t&`x_-8I@D8AK~0&L&jmnZdPNOku+3XcwTH;rl!2`
zVK&<LNOHE~6$(JznvMY~C=&EB?S{G%`9M;ZBks-BU4PnClfCx*w=Y187e7^rPWAIW
z8&pES8to?zAvU4`=4A8gLgaQwL3Oj>oPBcJCA`wysO=pWO^q(9fFj>x{gNQXL2jWy
z(*+-I$Ia_v*_O}G#}Dl)TL-T~BtZDsp9NUF5F|n-G6y~?bL$%Mv!W@3<h=zNo$)$N
z1owTN$B)u=#fWTMxH7p$d57l+V+L#vACv6dK5znA7{9R(K;yL(h$iw2lq6b6Py%{1
zGDl?j#8UE(&rpuBmKZ8#IqG$b`RIh}xr@=J5b1%7SF|s@Xif7vr2Ie+%RV73O$uJ#
zU945dp4j#>!%dmVDLjn;q3){munb^Om`0aSGD3##p(BAyAwyKr{vQC$w@}{c3wWGF
zy$s}9zhPD;q)vb*ui@I<^&7{QsvMIPlP{Z-bdwv33vrjo1~;?TG;eb%8g5HlLoX??
zNncXe5Egz&Z1RLX076}2ug0U`J{birKKF^9GXCiG<E&?$B8_nmjir`zv&XNsw(5ny
zcZ_I%Mq)o@R_<W)=)ugj*hEJh%qo+Yl8vvCuTZ|Gy(vU0v;{eCDQVZ;8{|wV-xV$7
za4lW(FDDc%<+qM3oSK#pBvWr9o!vIAO`(2^zpb42^rOc|-bRzQXO5NarL?CTcSZfi
zHxvhRR<e7oqY|D$E0*SVSRzVH1^1qHzZb$BkT{X@LMEVM6kt_=PlaIOL!uB5>*Qt~
zjjqarrFg07P@G{xZdIf%XS<7og6S`W1V-ePYH)afNxqqkA?9&Lk4#EDWHmT~@^sty
z49%*2b+rA=RUKOS&T|>jIgs8tu+R7PIu^N|o-6%C?Nfw(WNKG!oTJ?>R9X-}ODfM7
zne;u*r|0AX-~J|2+6sOuqVG`SIB@{$t=-+|t!l4YUkEukY5mqBY-Y`JEQ;Xo*JZS~
zgoZ9tscUOn+TDa+hEC{YR`B9LH^u)EBmJ$m{dpJSE%aJLU0ph@7l4!~xl~XzNZ$Vz
z4E~{rJa{e=1p*wJrB;@cHPyw%{TO@iUOX&H&e+)*bVT?>p$WlVyqDgdI1ILn9kIF|
z$3K_txGQeOn*lj>w8Ro94Q6%^M8fp&N#ol9{xLT<$JD#-k&%j`qQ1ZCU5g=mzzuzW
zo2U2W?p?kOq7nbG68ujKjw~WUp5flpt&?G#-NM1nM~3KIqY|T%2OPJpE<+Z4ms#{^
z?Co2I8umdUhSE8J2$_ISfZwTm{|%N%7)GSb+%2!)CBCtX^`~Z;H9Mq7U;hyVk}zVY
zYsuQ<Hzp=cjfhLoON`!G6@<|{<=Xsxr9ftbhwV(8nqBKD|F-g=QtZtfd??Rqlw2Fy
zdc5+VP%r~?uuO>x3kwy5jtw#AZExIha({0RW3fvAlWzOZI?2Dd7E9!=Pkjg`ngd)~
zIl9?*Pya4B0qLl<wH1S1e}XOrf;oR-*T!W#A*ZeTvGTo5b)+Ds)3dzig-d|R<d|bc
zH(`WV%&@8cLfU=--r052?~00xd1E_(`h+ogfeVZo?|-=2{?j*&>2Uv+C;i{k^ZunX
zoF4Z1N|g@C+x)Wp>|L#s%X2Sth9&>qg|y7NO8?u{_~vtL=p&dluP}s*tKupo!U!g0
zlHsXfcb=+=<#|H^#cqY-$+Lq?ZFVU*g{Lt-5z7emgBI;_i&qb?GY%INkeajB+sx1K
zXn!};Foa5&!2Hestr`vGE`EN^sdtc66raLHf_ErMG+>}`yOsRF0YS<_Dz$b>3p+27
zGGPAR%mswAlrLh*sOE=jr@o||e}wEWWbtTA_k&0QXu~%bK(m_NK6>3u0~@iEqvfWO
z_VxXn=yWkwQxj75wvP?wSDx%^-7wT5Ob*O$5La{_z`Ve(*-1y30VEl1RJ(!)8d?1$
zgtc-RpG34VtFv`!IO)64DH~H8(92Q|%K|~^$X7v(DP5z1#1{l`Olylb94R4gQY^e7
zwTlOWkIJw`JqV@glrjtzK??Z+(%1Ls<jmP;>5@^(g4VJRJ?tE_<gY(QswJ8ABH1{V
z7{Tmo%`lgb!>FK}D=UU6%%Q4}4;Tqu!0_f5SR75hy~Z1nyvm$T{yRdIm;YUc@Pszy
zy(4FCVKJhL?rZCMPHKZjS*5=?$N37D?6IE|yoFcUJDUR<`VROUpUap00Q<Y5ws9L;
zwJrELciGCvADzBxbO_PXOz$))ag)*E<R3Do^lp9cI4ZFgFkQ8A-9UB1l0@72`DD{Q
zhqiHT2VD1}-g~-P$!5?{MG0306dwf+D)DV1PW8Zc)!I}vFgOk+3Xn_FZyDygVSZIf
zaw#RNxu8{udUSKHssn}R^i~`&rh_kYjYjQFSA8CNTk{9@{&eH(X`uu5Pi{X|zHWiA
zP(y#IasRO2uDA}MKtZ7ThFUj7GFt5fk1R4fKYxHap8h&f_#P)Q>7s7%Cy)NH0O&S%
z3TFxn({0F#gQ!m={Tm2Rh2pwiE3d<V%U_+HsLC+ZRJK{Q(&ojS0nXodN#J=>XkXfT
z7f*Q!BDl%-4=X?od_k~8<jJ3R<;z`)@A(U={xW0-N_4s}@XXB3ZTVvVQl>#A_?4BF
zH3s<g>A^bS%)o%_o`*<4X8=VA6F!O)bZu7iWWq%Gz(T3BomMu`rvOD#mQCvgjb^mi
zToq&jqc7V60uQPTFw=e~PXMY0i1_c2n=b5);VsRt_0xJY_v3H<m(-5hPvssvwI43!
zBDEh2yPmH-KOo4rEOIv#7M+#=UWq7(gea;;1ia9)wj%)oE~de(Y)x&Q;SiBRoEQr%
z|2OIS@t7Lo<N>=s_=0Xau*+Tj(>^ORX~idYaB#4&;Dw-h(103Ooi?`48XCa5NIRi^
z``x<9{Rj2lg~Ylb@i#oR0zs=K+1)r0K@!GyGq9dqBf=#0+_yR}u~FY4CJZ4HE^}$K
z&>O$kYK6#|W)tesWvKXzCIN@jlkUl%%m|aAl=z3t(B=OcD)ALy3=G;(hKidFL3Ahy
zY+=X>L+`*q31C405@-OSrL?%1>#rQqH~B@-UwW1~-B~OifE;J6ys*<&Ee2-%Ph-||
zA-|v?R6Y$DsLg6aO!x35H8o>;mo0!LV#g}7d;d42X#DT;EB;pWpO(}VHq=enm`ICX
z`e6F~QCiLykC<Z8{J4|;p2?fzbd1+TdcjCy0{@nU|EVL3F((=t2a|s-WC#O?9falm
zq=fI{c|O0)5--0e6r3Q{%RpMfC2!OI&^)H)=xNrWhR(6D3m;~2=m%4#+y_Sd3F|8)
zVm^xC3q2qTWNQt#7-Sr?O3k!5H=4*F`xy`u5Y48s!r-uO0cRzDq!R8t^}l9>ig6)2
zfU(K)^RktaaPVr{PfyNZe#>{=Z85odxNdh%c<Ngi487k6?{nA}n-d%M1v$E%3SQ%?
zLJKw<0%uCb-P*c!bK|P22?S{oE)A=GO=NabUvZ!UP4w}b>G4YJSLQJ<;fI3b8#`Rs
zBEV`AIS1uzJIk~-{O~*1oA7qkVfj|LPZA(C?<eYZ)fEKwb$EbX5z?S#({9%8AkXdG
zkXk$@DCaHUEg09=W(RYe0$hnAI8{u4Hsqu8((C4=$u#Dd6&|C6jSosP?~-+I8iPKw
zGg5M>gVGtU4EC;`h^L#OW<5n<i+~)li1yMlV~?(t9cx5h00YNsCf)GsI`hk3MgtSC
zuVGSrzNAG287ZOCE#qDjEHZSK)$t&QV}pBzi>7T!(&fZOTi?O|R~i|O9{yeaa?qqk
z``Zp1fhxa5#`u1H4eR9RK0os*DNf*Rb+;Z0s1K}~@AI*4u!vuJ5--*K>mM^f$WqS#
zZ3f85_N6#wnMO|JEDsw5UAd3>U4Yncvc68w)0VWcFiY$ELZ0-SfL1(Wm+_IrFN;}s
zIpaC?lU{Y)d)ejYH&1Hyt;9OlJ17=doXTExiVx)fbP^zcw=5Yg>PEtXpFsU4X#1{h
z*SOU#YfFu5<4gV0%D&=Em(@K@W7AunE*R9>_4PB0<V(A6oxd#yvG8N2zXBW}6Yhs$
zNsI*%q<cAnd<=?ZhR+;6w)ZcRy(o+u2bMt!p{g~;w9sw_y8HIsQX}Ud+!s;Vlc56v
zG;3sq_)!{ciK?nIBjMu(@@Vs4C}v1a80gi4k-OzLLEqW7K5wK=kl77?!rOAT_SG3I
z;jm)q;?eg2uGR~0fuE-)p`(*RUm{~SV@s=>Ik&1#IjuRYE1i?8FW5~$o1>7u_%biQ
zuPUQW0dar$TeE_`CYKI=x01&a5$*l~gr2{CpWx5h_P4u?$f0l`0RvbI2n$^prhth5
zb3xJbz4g-A$Y_2bTN8*s)|Qs`Pwxdj!cCW=3scw80kR?TaBWz$5&JdZ-oG%5cO!H?
zfT|Pt=yJLSU+e_vS2^01<l0xeXd}IF7zzOw0%=K1?JFuNdBn>4_u9uEb%VxhDDfUX
zE-@~a_y6s$EKn?*v|Pf)ufpWf*Y*qXhJ_nSx(`CmZ+K%e6ZimkNoi}dbHA^~xZW#Z
zf?1^h78Rw`psqPg?^$sJz2|bh+n-$M3MQ1%^7z4@eQP?7m0xaXcsM_Q9)iAN+Fb4|
zhDQ<af{5_(>%n$B_@K`XvJQE-{{7b`UYVDmtkDt)GDsi*)9`|--3w*K_=4Q`eh3p(
zVdBGLI%iWWPYOQ(nWs{{;uGpf3ZAe8I_kpCUjkUe+S*!}f)GgAdXoQNX?Xu8t@zLB
zb{MEKUg@}O@CFZH7qIZpeQW9iXhfJU<YZ`XU);?Fwa>!Qhj2IuF<>-w_{Aa|voa#&
z_nm9`O&<H1y62;)b4?7N0%idQN`1NtIPvX&bDWrm|6i;M`xgl&;9~zyy5Rpe3itmZ
gtNizebc)6bWr+{f&*KpUXB?6imlw-<uJ_0P0EYfz=Kufz

literal 0
HcmV?d00001

diff --git a/tests/testthat/apps/virtualSelectInput/app.R b/tests/testthat/apps/virtualSelectInput/app.R
new file mode 100644
index 00000000..8f722480
--- /dev/null
+++ b/tests/testthat/apps/virtualSelectInput/app.R
@@ -0,0 +1,73 @@
+library(shiny)
+
+# Use built package for R-CMD-check-like checks, local for other testing.
+if (
+  isTRUE(as.logical(Sys.getenv("TESTTHAT_IS_CHECKING", "false"))) ||
+  isTRUE(as.logical(Sys.getenv("R_COVR", "false")))
+) {
+  library("shinyWidgets")
+} else {
+  pkgload::load_all(here::here())
+}
+
+ui <- fluidPage(
+  tags$h2("Virtual Select"),
+
+  fluidRow(
+    column(
+      width = 4,
+      virtualSelectInput(
+        inputId = "single",
+        label = "Single select :",
+        choices = month.name
+      ),
+      virtualSelectInput(
+        inputId = "multiple",
+        label = "Multiple select:",
+        choices = setNames(month.abb, month.name),
+        multiple = TRUE
+      ),
+      virtualSelectInput(
+        inputId = "onclose",
+        label = "Update value on close:",
+        choices = setNames(month.abb, month.name),
+        multiple = TRUE,
+        updateOn = "close"
+      )
+    ),
+    column(
+      width = 4,
+      tags$b("Single select :"),
+      verbatimTextOutput("res_single"),
+      tags$b("Is virtual select open?"),
+      verbatimTextOutput(outputId = "res_single_open"),
+
+      tags$br(),
+
+      tags$b("Multiple select :"),
+      verbatimTextOutput("res_multiple"),
+      tags$b("Is virtual select open ?"),
+      verbatimTextOutput(outputId = "res_multiple_open"),
+
+      tags$br(),
+
+      tags$b("Update on close :"),
+      verbatimTextOutput("res_onclose"),
+      tags$b("Is virtual select open ?"),
+      verbatimTextOutput(outputId = "res_onclose_open")
+    )
+  )
+)
+
+server <- function(input, output, session) {
+  output$res_single <- renderPrint(input$single)
+  output$res_single_open <- renderPrint(input$single_open)
+
+  output$res_multiple <- renderPrint(input$multiple)
+  output$res_multiple_open <- renderPrint(input$multiple_open)
+
+  output$res_onclose <- renderPrint(input$onclose)
+  output$res_onclose_open <- renderPrint(input$onclose_open)
+}
+
+shinyApp(ui, server)
diff --git a/tests/testthat/helper-shinytest2.R b/tests/testthat/helper-shinytest2.R
new file mode 100644
index 00000000..71ef794f
--- /dev/null
+++ b/tests/testthat/helper-shinytest2.R
@@ -0,0 +1,7 @@
+# I do this in a helper (rather than in testthat.R) so that it loads when
+# testing locally.
+
+if (rlang::is_installed("shinytest2", version = "0.4.1")) {
+  library(shinytest2)
+  options(chromote.headless = "new")
+}
diff --git a/tests/testthat/test-virtual-select.R b/tests/testthat/test-virtual-select.R
new file mode 100644
index 00000000..99f0545b
--- /dev/null
+++ b/tests/testthat/test-virtual-select.R
@@ -0,0 +1,38 @@
+test_that("virtualSelectInput initializes", {
+  skip_on_cran()
+  skip_if_not_installed("shinytest2")
+  app <- AppDriver$new(
+    test_path("apps", "virtualSelectInput"),
+    name = "virtualSelectInput",
+    width = 800,
+    height = 600
+  )
+  app$wait_for_value(input = "single", timeout = 2000)
+  app$expect_values(input = TRUE, name = "init")
+  app$stop()
+})
+
+test_that("virtualSelectInput updates reactives on change", {
+  skip_on_cran()
+  skip_if_not_installed("shinytest2")
+  app <- AppDriver$new(
+    test_path("apps", "virtualSelectInput"),
+    name = "virtualSelectInput-change",
+    width = 800,
+    height = 600
+  )
+  app$wait_for_value(input = "single", timeout = 2000)
+  app$set_inputs(single = "March")
+  app$expect_values(
+    input = "single",
+    output = "res_single",
+    name = "single"
+  )
+  app$set_inputs(multiple = c("Jan", "Feb"))
+  app$expect_values(
+    input = "multiple",
+    output = "res_multiple",
+    name = "multiple"
+  )
+  app$stop()
+})