From 7132c19ba9fd9b272617cf52b6025a6725a0fd91 Mon Sep 17 00:00:00 2001 From: Admin_mschuemi Date: Wed, 1 Nov 2023 05:14:57 -0400 Subject: [PATCH] Updating Cyclops requirement (to avoid error due to new dbplyr) --- DESCRIPTION | 2 +- extras/MultiAnalysesVignetteDataFetch.R | 25 +++++++++++++++++++++++- extras/SelfControlledCaseSeries.pdf | Bin 328270 -> 328271 bytes 3 files changed, 25 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 2ac88ee..827cdcf 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -23,7 +23,7 @@ URL: https://github.com/OHDSI/SelfControlledCaseSeries BugReports: https://github.com/OHDSI/SelfControlledCaseSeries/issues Depends: R (>= 4.0.0), - Cyclops (>= 3.2.0), + Cyclops (>= 3.4.0), DatabaseConnector (>= 6.0.0), Andromeda Imports: diff --git a/extras/MultiAnalysesVignetteDataFetch.R b/extras/MultiAnalysesVignetteDataFetch.R index 71f9212..d9cca82 100644 --- a/extras/MultiAnalysesVignetteDataFetch.R +++ b/extras/MultiAnalysesVignetteDataFetch.R @@ -316,9 +316,32 @@ databases <- tibble( DatabaseConnector::insertTable( connection = connection, databaseSchema = "main", - tableName = "databases", + tableName = "database_meta_data", data = databases, dropTableIfExists = TRUE, createTable = TRUE ) DatabaseConnector::disconnect(connection) + +# Launch Shiny app: +databaseFile <- file.path(outputFolder, "export", "SccsResults.sqlite") +connectionDetails <- DatabaseConnector::createConnectionDetails( + dbms = "sqlite", + server = databaseFile +) +resultDatabaseDetails <- list( + dbms = connectionDetails$dbms, + tablePrefix = 'sccs_', + cohortTablePrefix = 'cg_', + databaseTablePrefix = '', + schema = "main", + databaseTable = 'database_meta_data' +) +sccsModule <- ShinyAppBuilder::createDefaultSccsConfig() +aboutModule <- ShinyAppBuilder::createDefaultAboutConfig() +shinyAppConfig <- ShinyAppBuilder::initializeModuleConfig() %>% + ShinyAppBuilder::addModuleConfig(aboutModule) %>% + ShinyAppBuilder::addModuleConfig(sccsModule) +connectionHandler <- ResultModelManager::ConnectionHandler$new(connectionDetails) +ShinyAppBuilder::viewShiny(shinyAppConfig, connectionHandler) +connectionHandler$closeConnection() diff --git a/extras/SelfControlledCaseSeries.pdf b/extras/SelfControlledCaseSeries.pdf index 55b026656e2c93bec1177ded8d8e18ba1fac06be..5483bdb4f7b0ff5f289f406d521653d6204b886b 100644 GIT binary patch delta 23821 zcmai+3)GfXmB&Fo615l@_|(kQEJO|PxnHzU5z$e^kW!cC7gppYLrok_fk)BFEW@($ z5fDsK5G6n@?^2FfgN+x~lxYYBWQicDgBX}Nzw_ST{eRb*Z!MO~ea?B#KKtym_kZuR z&->i9gP*^4@Ur&~>z)4S_OBmY%suU_OEw%dc-r$zUpVuPS@DOqPP+7ub0^>W^OMe5 zv-zbh%cmSMVc5V~WA;4bsMUx6a{0s`3_GuT;l^VQyx`)$=kH$h@Wj_%-EZskM`t|$ znWYb%_P_go@-JuiyQANAYqvdl%#*uxd2b!KZ=Y*_@X)i5|7qy{3;K;ae#i0OJbdoD z0poVQ^1}MFSDrXz!MXmr;@G1f81lm@$Ml{5_MDCTul~}Mp3R@=y2)Fy@bUlJb@|_) zeRG#z9sKk2idQEL9=H6KV(YT`|M}N37j7PO%;q^`hp!&=`>sz7oH_Q_AN}rtHwVof zblx-9|Mro&zkc#Br>{EuQ(H!_A22N1>!m&SN}fJz#wFv!!JBr!<3lHv&wu{nkB;c& z&-_?6|CP<3TJvv3a^}4QpP#w-+Vc9Brr!LWPro<6=M&lOqk^8E_3Jl%;iP>I{lrzh zdak|yf36(zrvdMr@{8}?`Lh>?t^e?ovu^A;bY<5&C!8_x)I;B2IPK!zBewQ_dwidV z4jgsgFHaac>CvSduO9#P-}L(TJJ$F5>D{~S829M)N4`1jppX9fz~ai6FTdi#KX-j( z%I!h-;!_SQh8?wcug%Au72f*9MQcYr*z2$JR&@XT!5i;+Y|#D>uTHwVub4V<(&Qsg z+z>uB`rbLc_MbE9Gv7Gwd$;!A_m&6y|M=q{x@}^=^tZ2$Idc3{|1tQumxE#NeR%u0 zHf7_c!p74Xu$FsZpKX&IKKe_2U8)kiX!nik|y6X7bh92^Of9gJW{dmml zWBUB&=(mne!s{L`XG~u*>)aKS_j>l+O(%S-ylmo{Q3GE7@omZOe}851HRG?|w%g%D zUwr$58TY*KvAcgb`k5V@|K%IK79GFwA8)K2G_e1>7cSVg`03&2&KkJts+-S0?BnZ- zGgm)+V*J~4?;5&s)h%B_5{ z+5I<8IC9>y$L~C0)u!3qFTdJ<->(c9{>N{BaC$Ig#HdHNhd1>8?#KUf;ih+=*t_4@ zQLpXx{;H4s;h+giuiwz`sNe0k;mW%X-TubZd7GZT`?3RGy>9#a&!=-9+y203AKdjH zw~pNNshcjH{iQ!_pMB~V58i&ob7%Lv>4Rr4e{O64oj0yH`KW99JX35wn^-m`acxTnFyRH4ntSzrapIn;!bIrO8olGo ztIC6W?L6@H3D4fMKHKNYMawTe;|m-7l@IvaCVzU$>f4_#uAKL`uiWrX-}68G`|~cj z^6pzE?%4bEn`XSRV$s6yk9uVO*S4ND@3g+B{o@xmXP^7U-(J4_nKSMiH8U8uN3zfO z`$j$V>Z;Q=&RcNfj>QY+U)XoZ%a^}0`>_3mDT$;QzDtla$oh!}rEH0OHZp!kc-07MU^T9OFytEv58%=gy zX`cF7InOo4GAar3a*JzHHsZ)DNB*?y@I6ychDEVo&ipCEGHD8vpj_*kl#d_{%MrJC zZ1S_HobH;eq|)5WyLx`z`FqMijAMotwfq zESI|`P=qGX6C9X+0j3dm-&dyC?nwR62FiMsj2Uyv8OS%s4R`V7k!~2$W4Z3+LJFUz1^0XYe zv?D8?7nUq zwq;#I3&RslUS@U-E@04)m5fq)ighG}SN*v??#LB#mCbLjc07aE;{=G&D(3j<*=jZ$GSO#<1hG)L5VCLi>@K(;B4b34|LS{N*w%YLm_|d(G3(7$RALn`4+Bdh*zsd~G=m^-w}NgHg3uEy7=(dX!5|F93I<^;Oa~$0 z$1ok>imarAFi#6P!;vq08K7CB`B4LOLt0BsXyBFtcw!KM=mVl0Z~I>x;St>M8M z${WP&o%Bm&--9?cRuK7vS;Yzl2?y4GFu`sKEmZ3UQWR+=iRwaZ8)L8_rp4|VfQ(8hM6Gsf=Hy024alR7|XPedkD?(EC`YS zIqfU)y(G8$>3dl!{d`Wh9qWf!E%QA;jsnB9?^j%QyA#4LdXd?8j)T~JA0K4>y&nQ+ zjI{g^@L|6ff#4fQvF3zuOu28ljuKG2SxLfzjR=t`wx+!wv_PzA=tXkEiV&~X;HK^o za~+It5knJti7Ffsn^o4(OT`I6b2gye2{}V(#KlT70jD7gHqrt#DpX@}7C-n=gllR@ ztEk#<9I>_E*nT`hqhqBXg9$d;Y1sZ$;2X=Zis^;?$<`Gij@NuJ#M~OKW-$6{`=RQx z?;V&4(Kn+kp;gac7^f02 zU_Mkbv7%yPA!R1%z)XUPvl2`S^=x4hTBY%z$-aZ$B)SW8PhdNe7Tb@9uKE(z-xPnA zge{_R=-3N09D?P#140UkAw-YRVA&F|ZmS+S`BzM}6;0$NvhP3x!F~}2)1C-ynP5p& zMr;L#sSv{eu?`Lzl8M0gc6HFiF2G>HPMk@Q8RfZ{+n6Zbjs;waF@x4H zW)1v@EsL$vpdS?{!Kxa^iJXRSydnsW+__yH$tPKH5L%B~cyWMfkioG;KQYqMNsSZ@qie;7%U+d~3)oPODu}sXF6|tNpCk0#vVvV=uQyjPqbu47yD-+4mI7Whch72{SRsLi!O~Tl^PeK!oem zlkki%Q#>U!@syYpLBTQ3smXK=|6yz!dAU0BahVw5IwkD2E8)n>iizT6A;dJ+Z^T7T z?nFMwEJDkyBKZJlK{S{xNjfH6d)kF0eqPZxr~i$!&5eX`O;%gnF~~r21SDBSKS~Bw0iW6Wpg2Yl8c1?p+PKvtTP$aFjr<#E%38Cw@VC$cP%8*kO{;2A>`< zF|{Wm0nXd+5je@QBQ;!=7VB?{Kgz|LC9y9lIB=)rcgXmt_%lyz3Rb4gidN*GL>X+f zTf!tv1Z*T&5D|YYiDe)#nqwUOYv!(@j1;mk5K&_sJ1`B-k+EEw8d{M7?CgGKI6E^K%cUurERIw% z?#9VX!Y)}$NH&1j$>KlCbHs0FT*r$PqP!NrH@7Y${E>-cvKW>bJZkfMHT;(mZ|L9- zVohUFq>Q5@5=_;Jku?zKlof2UC`d-?z;d1Ib!(QY2h8GFE-pX@=GMa_Wmb*0o&Gnq zHPfqAZUt?o+a+Yh9YeFL1E9uMw;Zk2M^w*WPTIY>CsiMf_Y`f-xrw&Y!T<|s&2p)H z@N$>=HB!y}f~p=N5{3v3=qWUetI+f+AN*mZ05dhb!1^2F&#|`h!BBHKIRI6d#t`aQ z&X{G8;;q(&ROFv?>nvg=qoN{k_6mum>i9BSHv)OB_Jsy z1*cpRf)iPY#muR$sGhJE{6{1vDHZBsbnnn4b3Cz*A_bpAX8S=SZ_~OE$ z0j<(LQrCVuQkA#rcU^a+bl3N3JWYV zl*-5n$K8k&a#Y=nb=UZYR*-m-JecnX67F(mEO`^3S{{)C=h&i97D6$wFas(xkp|2V zlh}^1EraQ4R}426C_s`69%y0H2GlDJh|$GkxVYVj%dOaY46da;aSr$kn>uA)Nf`Kr zyFApD5YAgEP)nsW3f`ojz#F&VHhAMa6*T85(R|`@DVGu zN_H>?PWD)HDKOK1jZx7pfUz)>HFEk*{1=cg6A==n$m)1!VU8FcP@YAg=W_oFguwB% zEe`w_;`7Z18LY7lPhliJprB9UC}{OKs-c*aSc+~@_$SXD9LN!ErJzrw0L@B)v1Hua zR##b^1TYl5HG-7}{sS0`)x+h>Q6wWL!3t$?5($D5#bGgrby$TnJz_G!2CeC+ipdP| zsP-tL31S_&%dzEh%)!m7l?<1Hk;Q*51hfk0FiE@8AXajBR%bBOHqC)nl7zPtqi&58 zQOAD>U+gzEL`oyQ(imJbK3sT;6C*DycoLe7rP7~DNy{PUSj3gdl_wSVIBq+ZM+fpf zUNKn3qy)nmsfzz^920=7y}03JRw7`O8X|$|6nlyNAY&_v$t#?eEw14|u5E1HlzUGg z?vuJYIiB1b*hDU=D7kBOG?fB3EfRLQyE*HzsK1l23z}#@^>>n-V8xP%h&Y~Zo1FZc z;-_5HYC2UEDrz2)*nN*EV-XrIRThGoYSD$t{<}JBaWE05$tt0H-5?AyhjmVPW6L0p zl2F1ZEBOzNV4_GP7)av9cyc2E6`D$mLLgipW8KxX{T_Gwq6=wI*y0;vUXXwc=I|&@ zB3$BSamPqdY=4A3sxs4p|J?HzhWRL`!k;QGdAIP6jT^?{kQ$s@@ zQzu5Rtz;+=lpqzkh?yrSr_#fSm7*|vpH9jF*+@TXQG_PdMvPVeLj7I6*sF>EcnqQ< zLe-}Qw$gL$j%-y!d8jxNT5m%p6kE1 zu*;n~yhdc7ySluA#QtPo#ihmxWl2{203X>BOn`OAuAZ+h)dv0pr--YhP*1`s7AIiT zJyy3CE+z}AG;a6XnJ%yja(f7k?Q8D{t>u+y4f*hZUd%F?eX$js8;Pda5wao`|I?y0 zWIO7jsZ|`}g*3U$u8Yqnn=5e5y^PTBwYc{>{v(em9P+CNf&+k^;uX;&G0VI|lY4=L zgoP2mU+_*t0txa(;!GU+wp-%L8m$si&?hki$u;qmP@J``$iH!BQGP)x?tP#2Vt_00 z8=yo9TnV;2^h;X$)$kwh!8&x5J9bJoNsJi9q^waeJ}0(AKhBdK3;ve;Jg*=G4JANh zYkY8Qwi3m?`)>vpwNt{CV26IyM1+%nQ~aP8Ye29wlA>`xx?#1N@<++Gzu1(kA{Rq!dl(heHJGxszj01c?&u2mThO zL9*@U8~o=kGwjjf9$T;;5JJLjqABf{5UX2drEcCTFmld=BTPr^plUjG{YF0ml3ZSS z^}7^M*!ctZl(T)2tdah9ehh|~8-9VsLJ6kQ5(E0xRJQd1k=7N7XHvk*Erj4x*f)*oI9+cROJhuqCO%xPa6GT5Tu%zSVY&Rgt67@XD9!r_=%j`yc5TX#}zi1c27-hKnx9FX_>(+$oBxbEq11||2z;R2(^PX z8A?CFxX|QkfxA=g%g! zQ~cBqTMOr&j)(}k8de&W#_bbxO)Ay%&{~WS0k)GrM7eK(MrvF>C@NUULPLIcMgn4JQitYf7863lIhFVH?mPOJqsJTz(hlO$K|Y%FUOGBCb_}&* j$uV&{CO>*qHu8Ya{C{0af0w@9{o>t+3_14XF}wdCM3Gt# delta 23704 zcmai+3)EFrwa0yY<`pX+KqcA*^MTq>_WO|r7f}-hkt?L(1H}NPlu`qeaHC=xTBw=3 zxFqIQ26_?|S>5T_4_g@Udskzkl8Y@09bG?3_N~+H3pw>$P*{&Xr$$|AoJg z**)fit0$lI$-Z4Sty#BW!ZGLFu*cCCO}=!}fq(nw&vt(F?lXryeMtZAr=Rtg{SW(} zKh8LD*!l(EedyW49v)RJIp(s(N8k0=*%uGFKHYuk?zu1C_T|a{aq#zl_55vLn6&HJ z^EY;#H24p1Ej_bqpR?D#wPWo&<0c*c&w*2ZH0l|D&;FB-`0;HY<$5u?a=(N`_I`Y#`|8D0$4n241<~h@Dd~ERkUB2V+? zUB`D@)otl(!+toX*gE^=E2o|QUki>JvGU{DGU5waPVILw(-az zCr&*3Z}H$>L!Uh3i7~6baKeEXyuW$YT?5w4eDG73%=&%zD{kNKS8HCq{^UCcQ z;wNAI-H!8K>iodN2kiZa+otS2=?kCTanqvC#p^2u1W%p%@u=6Xz3!ZiZ5M7ndE{~D z&ARBkNoP-ZrI`BRsBFTfCF5V)>!%YBK7Y;Pi9`N%{I#pM{^p_CYu@Pm#lQda$*6ZY zV9^u%z4yr1mXGSb__teb-utB&Z+LXY#?GJIbmh`NZRvT{1*dO6=EU#6dB@>>HgE2A z^}O`%gKq4yb@d^G|GZ|;U-kITqCV@d_-pTIz@|Iim^S0A^=G}Z_=v5SJrfR_H12zI zU+Wnc6W;HB)ai4kkGlD}6D~hv){(DoAMo69J>TDQ<8SZidF*5USG&!+`?N8?yy4B6 z@1L54xBQ{J@%s5c`__o@w~bo#-?Nsiny_%(;kRD%<}c6Mbkonj6CAhZ@V@UnJM7+p zXLr4B@4Wwm^HzVn<`Z{Jx%-|Ccb;_6CEwmX>h0ftY5k4&9CFa77Y+H!<@;^;o`3&K z#eW_j4BOKGy6EV0&p7k>Q}T6f*_~yWO z9@%!=l$FD>t{-kWZS$kS@o&HI=D3wBR^EN@_-B`2@q<@KKfOLU^r;r4RCwvD?_U$W;D*~}MC_{llNnTPZ^@cyT^uewyK74lDlEoig@XdiM4&8L?j^{=kGkA|( zL!$?$4Snv7%ibL_aowUh%P+la^rf#o`S6-6Zu!i%@7`NX^xoYGkH%*UjnI7%Q-@W*|_v6!}w%Mci^FrSX zyg2g9fz#W%HT>_lrngP&>h%$jWW*k+KnodD&-X+m}9*q zR2J@$zU7Brx!OGv#ZJ61DZ9_(k#HF2QBaO`k7TVli?VW=dnAI2(>N**c(~<+h@%|t z9_d?gl9UVFBjGTPFe$rRKMK>V95kP|WXo}Yk)1KWrFDz_+$*=a*L2Tbo|JtSwB!R9 zQciV`#FR$4mz5jbqtKemDD$JT*TR->rQD)|M_)E7<@sR}n3mI(*{W%dgfisdXU<2X&Cw)VJ%#x(aV9^0`7?}COVU{N%!rb>o#quB#3FeV64Cb-bnZon) z)DsT#EUt1`WiSAWSq1~N#-4k?$yufYFN!VG+yIo7^XE@Z2?H;UE!RPS*D}Y1QfD$D zm{N|34cmA9sDZ(v9b*E5XoLQcfK9C@is7zJr;k12|MnGf*eHdm2FSia&zK5 zOzlRJAdl*_q5|=~B#uJMb&{nb8Q_6$7e-@57gE&29H$3nNKz0|YvIc0Jy%9lFWQi;sDq}E%jrwJSHuOD*J8{8qtRE4nQ&+#{hYO zxskrdNt=azFUjo*`d*ecjdM!t`&?-IvL6Ok7rA>;U{1>?qP3pd4+znWe)>Tq*51eS z6!LQDP)xH}{SeGyCyYF(W?U5F(k(3ks2f_se%mEj)YXKAMRkz07*1TCT&fUXW|-lO z^j$nkvuP=NEos}QAlhl>ke7))4J{;~GslD~q;l&qeO6kG%LI~=Ick?yqY^^Yh0$tb zMnKWAc<%(qWf{Z^wrhI*Lh>$dzF~7t2|fIqptdZ?tYUg$7+URz7AZu)z*=Si>k<)! zeppy+!i35UwA3gPVQ3xbzflR%EpxXS7+9?)VvWVWg>foj zLdcacH^&1LHDh5X|1ha?({Lk_7R)5vZo3n1rzmT}p~yHyBed8rWXHMJ%%NitJ+ik1 zr!4Lx%#u*XWyEuK;W{R&M{XgZgNQ531R{jwYs9(DXyke9Kf0~w0KMh{VR2Xq;JvGC9F%RUB8lr`Ej15P+M`AVEV;Z&Z zvC&mT1Qnw2X`-r=68;%MCVGLqD35C@Q4N)`>rH^F;wr#`7E$ps8fq4a(oCYs2y|!7 zP3)=9b9l-!4XqFZ7Q5<;S=eRXtYpZz`SwP}ST)Nu8YWIO4#Ey6+TbeUfS^?tj>QJW zfqLpVAWW2Z)#t^5@p;G}Ll;{_g$SG?H|sG)saST$H5FPM2%sW`E|xtG@}v;1BRruj zoQg;1@~Nn!%q9cb2);+=%d3#I?kdpz+}f%*mK~FJPBW2A8j72V@ny2P7=Y2l4DttL zSpxM)>RP7*Aj5mJ4?z%^&^eMvXf8JE5_}V zjS$9EuWZd#fMLYKVeG}i!Jt(nKTR}@B|R(I#e_)NNU-qWMHG&@gK(V$Xr>WAnNvvw zfSp7?l8{=PebCBUY+jyBZ8BToPDb#&gJyV_$M@i8E)G8H!pmA1Y&+Nf0%L ztKxrZ+$0g1FgsyLz-eh%6MX_bq6~=Ol@n&&j_gep0pqnh6M+ z0E2T$EFEr5wGS@Z(12dl308-&%zR5TV8cKsg z^WLs3Wkrpd7c`WTnzWh@B$O04re7=}kg(mAv;VsINmp7cm6EQMML?PMMx?k|t6acI zxt^(uv>KGKBL9@~oYm?ymckwd5Go@LFIRMdmJfYbYbr1!aE;Vrp&|s`%1%g`ixkq> zIujU7Jz>W6dswE^JZZnO4fqf34@9gP6%_k2*&taYBaLFl(Hm5`Vof(Jr*WcjoRdHP zs^*WYJ|8_hUNggFue!JsGjFKeN#q~#^jqBbF-#yGZM8u-$X<* zoMbz#j{hKvHOoS3&do1lxil-2QKJ#@({E&tj#Dz05cyM65x-3Xj`(fTp5l75h%{R> zgUknrurxX|n$F!x0goD5{Ff1L=*um{N|8V&OjB`UBn8BYWf{rA4hC!Zk2aN#D^WK{ z;9^M)(jg^CHcQn5X1HUK3>6i#xq>{ZhTG1uRXMEQ2=c8qw~dFOUC)Y|&M)&W0F_i; z^EgMtM^x-zeaDpH1o7fMtJ+#K)j1_+>+`A52x!f6X>lORiRw{O75^bsF|E+#JZZa< z^UQtvW14rzB8nFr{xDL&{`v|SNajlx16Qsz0IKx|IcZ8^Cgh4)1}RE$wJY+kiT#TgoT8`g00uZrI_zFODIz(kJ(WiZD?=|ggy zj%E{8&}b{DZ?1Cw5F;BPKm%>m2f`=yBr1RAzC)wKN5)AWn{k;nX3&toPMF(zsgsO7 zcPs^Me|BMN8ZsYknX(aDbSmS@$6smtR6)X7CXyTubxHxI&}>EnDNza0`ABcc8gYB5 z#v#;ofCOfXU0J8Z?y>N8LW;$*2qz}F;Eby{)2|y#7mzSjw!Z>LTA=5yP#J)=e*1q972<2tT*z>Y<4?&X%2bzRs zj%IsvpqXF>`8%SG-=In4;%F9JLc`A5-KCO#^SzuBfE`DqY(Xd!;@M?js=5Fu5M5A< z%EF$_12|gM8H<}9?yi&!!`##lL zyD;fbv6S=?h!mV*kZXrmw^F5C6-Ney!c1@hG@^7ffgq~k}40hux10QAQYki zNk@}&XUC0B#Q6q14My6E8oOYnfX}p0d|~`aN_RAiZNaRO z=(elH*&PEC1qtvc$uWrryK zE#NL%Q3JbdLWKz<@p*x3-ZIBToM^l}mYvl?A*)&>+9c4_j$yz$kZl>)67qJ$B-2|G>`Dy&hdWjHrf!_lPRxZ2MCH4!DV4>Q~e zy9l9*?2g7j13B<{@(~1T-cW??NH2gIKzL>m5=|1TP3 zA>C0{)HM9roVJ5Cf>)r46he;(TsA@~UTCC&OnQOHQ!07Tq-B6sO=n@X>fc~vP;?(6T@-2^8M_14hDHQl)t6Z+RPX@Zmo81X{7tt9$ zw-Tm_SgcJUU0=b>PXB9Hg3dXy0RS4Y-&8Y|Mo~Z(A>ApPL#Pc`wsQYKQut51JMOWF zntLo0GGD`l?mBblaOQTt40C2_q<5+@MokLD=GIDqu5ha6WtxU$VOlT+n3JLv`vLrD zS4{R_U)YzAl)%C?=bMEIk*n^r{w`@zVUQr%>Wu5pYt#=Xe|9Hrtk9@znT5faDg`2~ z#tGZ!%SD0dyOVSTEn|h`9$ep@Jtx{G#5(fTn2MUFHhb<7{S`uUA0t#Y*MR>p)wb1) z&waQORtj|aSS6$|DE0%Iz%{&aGlR&Vlpx`aETSzMmD}GT5|=g? z9!X0zH1e9}WXLt>TKE(lr!EB-+P=p|OHAaTQUgefFesy2g{Np$lWsMNCq@%bO@~aA zzMtzXCpCE6H3m&RnQH?Fv8loLzHl2?);_@=>f0h|nxwkZ`^dhDVy^?VapL){B zRq>R3mMr-IbYE;hOs~BNl9Z{?NMeX&NS=sNO$fJQc~h0T#HrHksyEfNx2|dKG~44oCJ-eXlURQ zD~h@c{@?>W@v;Ct`DTM}*)<^L;|K8@^gv4BN;R{^IH{i_g36b+&O_HdB~=c|ck`LE z01%9##E%5gP593l9TM9Da!5oQaJ!GIxxoPR&}5gxY4K zidU>SWuq1YHB*#mW3!L0h%Za{v6;1h!vr@~W}Q+n9ItPA=cihfM%$+yM^U|z_sV>H zh9@-oF)OCOQMj(~X9q@j8S4)cGA~wW7;4+D=^}i-pHbF^1C3bI{j#Gv+M;8_q7KZ#Ke{s(wLu?}!funtYCf_2Nt}n zXCq|rtWBZ(WnlmdR}1|Oc!7bcrWyGemAv?w#g z7Q%rGYF`!9@B$fozFjsi(=Tl^X?)TuRTM&huDE?S>i9OUo;F~d{l%WbReS}Ex*y~- zA-HRXmF{xzk@QbMlb;HLCQYAsX@Xf3Swrk-rfJ~XeQs@((EX-|)pTeoepH0{lYmBLVe-Q=A@iAQN8BHn zMqC)g6dG3wEwgobf_%oB$_hkZMXf)j;4%cw_t;4$Q$vH5ujY`dNl*?G<*G`sqp|`~ zQaRAXzd>uEA9RD;9n-9C!#xgNn!$nsW<-QUfYuN5G7ZjEuG_yDatw`p^=0Sx2h z_o|>(vhL3R)Y5tor4fg+xR_vQ@>Q7oSqJ->6EtzX&>DYsq`k5N?x6X_?hYJl6%KqN z=Sl0f_4&*v&D$(19{~jPEJ;MfKxxi(JX;_e5LnyfCNw@PwHu-EW}Fk_+M^C9|C(l^ zTXJXVaL3yHZnxJ&Q$YEVCG)ebU z&y+8Rp=q!J5p!mlalPq6%f-KA-&Fi)wKZl`9@;al?7uF4@=tP3{P32wj(pS6C_;CG zsPneakDLQ&W}3=nb6dNUKSVJ;&`b@WGLBwVnNU7a<6Ze7BuBGG3R*tO))n2)y;uMO zP2yZ=(hcTl7863lIhAww+~<^wPXVQcL0`J*`lTlm{z__wI4h m|2yQu9=&^ay84<+uDa&ht45CM