From 126193ec6aa7e84d1aa859a2b8257192522c42ec Mon Sep 17 00:00:00 2001 From: Andreas Gammelgaard Damsbo Date: Mon, 25 Nov 2024 09:09:26 +0100 Subject: [PATCH] getting to shinyapps --- DESCRIPTION | 2 ++ inst/apps/data_analysis/server.R | 3 --- inst/apps/data_analysis/ui.R | 7 ++++--- inst/apps/data_analysis/www/report_format.pdf | Bin 24997 -> 0 bytes 4 files changed, 6 insertions(+), 6 deletions(-) delete mode 100644 inst/apps/data_analysis/www/report_format.pdf diff --git a/DESCRIPTION b/DESCRIPTION index 487366f..45aaa35 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -29,5 +29,7 @@ Suggests: styler, devtools, rhub +Remotes: + agdamsbo/webResearch URL: https://github.com/agdamsbo/webResearch BugReports: https://github.com/agdamsbo/webResearch/issues diff --git a/inst/apps/data_analysis/server.R b/inst/apps/data_analysis/server.R index f7252a5..41a4782 100644 --- a/inst/apps/data_analysis/server.R +++ b/inst/apps/data_analysis/server.R @@ -19,9 +19,6 @@ library(quarto) library(here) library(broom) library(broom.helpers) -if (!requireNamespace("REDCapCAST")) { - devtools::install_github("agdamsbo/REDCapCAST", quiet = TRUE, upgrade = "never") -} library(REDCapCAST) if (!requireNamespace("webResearch")) { devtools::install_github("agdamsbo/webResearch", quiet = TRUE, upgrade = "never") diff --git a/inst/apps/data_analysis/ui.R b/inst/apps/data_analysis/ui.R index 6ce36b6..9d892d5 100644 --- a/inst/apps/data_analysis/ui.R +++ b/inst/apps/data_analysis/ui.R @@ -170,9 +170,10 @@ ui <- bslib::page( selected = NULL, choices = list( "Word" = "docx", - "LibreOffice" = "odt", - "PDF" = "pdf", - "All the above" = "all" + "LibreOffice" = "odt" + # , + # "PDF" = "pdf", + # "All the above" = "all" ) ), diff --git a/inst/apps/data_analysis/www/report_format.pdf b/inst/apps/data_analysis/www/report_format.pdf deleted file mode 100644 index 73dad5ef08228ebeb43010eacbb3e4876c3db70b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 24997 zcmb5VQ;=xQ)+JiDZQHhO+qUi6W!tuG+qKKKZ5#LdBW^^W6MeelbUtOitc=K!bF4AP zoJp!6B1X$d#|lMyba(v*#mGv)KwxiV1;xWdFJ@`uV(LUMW@G4LDq?DEZ(>R>V`^va zVnM*k$-&15h zr%eAm&e!NKl|tHjI5pv zPH#G7l#BA3=V3@Oaz;J5-Hbjx_Fv9F6KQrwNVRu*EE|c0qXa z@uq#Bu|u#) zeN5NqMH?1*=M|)fOKAD^o7Xs4S@EcM4j5B10YVq`Ea@lN@#{C@d()XpgW`E( zE992Se$J&u3dq}fu9QZGZ>Ud2ikzBc6Ks#E)vuAdQ)j|}F<^G!{wa2f*o`1iKNbB8 zr-2psW^g!9i)LlJ4VAm$V#7AOvs|bL*KpF{4qO07D%aof{KIarQ{x zrm{&pt)+R%BMjY8jej6LUvZW%kK+DLTCXC0oV~{39M?&uOH=_L^|dk-jSH^o9qOD$ zJ>0*DW<7?;_GyJ*+}rD$d2A@NvH>}j5KEkQiaP#CA7oC!Hv=ys) zoIj4;b@};X&iCk`ifLu-6ff_bWGlYj#iRO~aI;e8_nM!`(r4SFL}HKWQXzh0aUH5! zFHZA8VZK$x*Ym1caO>+>$Yjv=aVef+<5o;4-DT|ZjljOx!Ae1Ri`la9(#&en)pnB>0E1 zKR8r$P)3kbOtwI&g*lTbeW&SsT>DE7%Q5n?9QTi+`%I6ji0E3QjNJEWF7t<@m9=4$8brVU z+%8S_C>3r_K=>k|LysKF?TVg%-zOBq^B*86Q#+IYKj8nF{SQMhG5uFm!NB;hR8gZY zZNJF?(|fCa1~0N0v;<7ygi#N-R-<7z1n0JK)rjY{v5Q|3MocZ011gHWmP&eY_?m!1 zyAzBS`O|zC`jf)ZyRgXq@%?jqnHKc+6)r@Lsk(IFfTZPJF%X^uMp`54=<)NOpA7wJ za9$ZFg;|9HQc}HsTg}Q6Y4&@0r|ZMJ)d+|cG5?I6ZftMV%p!G2SC5(G$T^hG#I|?o z95p}XeRysqZ`w+=Gv$K+D1~>JViPg;#@8dSw&uUYvbb8-2|c^7i@TfGNb6kLB(u%< z@QkHwF9c@a{U(hhAwWWpSR5zV4JAO1m|4Jo5auxnkhi?lF7Dz(lN{VCIDyRnVHgk`m+0U5+w!yOVqIUELXA=IT!>`VrN2M zff~73O0g=_pk{{5X51_?BF9xNa6UV8SZtuuSmQgH`@{z@t*+cz?ju=zB2iH>)B}zK zT%94+S2*7Z^wJk~>eK*S{echEi?NjSVnnSl@G?Wz4g2B(o8264=EqsbV6E7RF(*1& zripOJ!@!H~HN_}=p@_Qn1HKr;J|BZS(z@nsP|;RYKqFB^`N7LOHQ;;NuubG9dkF4Z zHE^-8K606Jahs;_?5Oye-GJJYZy3$Xh7xdR42&Lq?P`0iv}$doAw`_6q2Ros#Gxy4 zx-X~(y`3z2W?&s9{Z$RyBnqN zF5sFazwIOUGI1fOhyF}60DHp8ALmugcL6G8l(mH=0u+a>UPslbngj6E0zw5oiCc*> zK~VQ1D7>ue+w#2@#hRK5UfB0`p3a4FvG5Y)+T$Q}R}wvBx|3a2pYyvLX&GKK?QEUt z_IpYDgG#{6D31N@MQ_RoXwbFv6E#8p?Ace@#}4YNOdkfeoC{fPjj+t#`fIMV6g5eR zhTFJRTsm8G^>0R*=SPy)cP`P*$X3eFRTq+$QU#GtQr1q@-si`cTUp~4mgsrRkA-qc z#o7IUiZc0M0H6c$?*96~=al*lSU5>l2hb1>kOsH|GebLm zhz3vpAV}`VS3N<5beu z>tzxvN4E9CMSaB-7r8vhRna?X>HK9jiIET&d0|;E29RZx)EFTaTx72-?Xa(`Z|QXL z7AL+N4CXKJUMEXK1FLqYzTu<$sL-L1giH@S6ArBXxtF!ZIfD3V%w=hNnCQ@IZ{(x55ng^)|zE-iNkt4W5`@UQgJ8;U*R@Ck7U~ zIgoQ*Jf;TZUPkv|#Eq zg3?p8`~?Gz%Ps`i{ULD!dJlk`+aXFASIJYYayM~SFkhzenWGFV*IJQ~;@#99LWqc2 zP?o4*X(+{>8A{_KqX}R?xKreWAsYvjM|S$L%%RUD&jnIYW@B^B9(i}+ohU0vb`k=b zcS&kB@HP13;>p9?UO634f^drfPK%6V8l|)jhmemIW@AJLCT#2&o>{CthrJ=4`q~H$ z9WBGyiWZ4A`d4O$HCx$wek@B4cB9+cY>OI2vtrWm@e`mD#mIB#H(C^U!RV7#Iq)*} zNdg<0Baus9>!VzG+kLM4{XI zw8tg|`C*0Ru_$K?yOd@7tE$x~c&+5+r~X2s4SrqY3EASo^NL0s>9^jETL8Y4 zvDe;!8uQjY0KVrO)<#zmzZJkOh%YL#>q82=AmvZm+l;YAKi_ zBUOHHQnM(4PGx=uoMD?K9gb$o}SiY@ZhwT-#p-3qtd&P>e>#-YS6ftPyl&BUEAa2F|6ky?0VP8u%-#UaQKZl!^fV ztR7XFgB~%Bo)o4WH^3+^c6UAt=GKA=SnsuR%$|9L;u$BjE=MUQ+^#k$p6;4s54Md@0q;*eNHZ1(FR;jUY3|e9(kj0nAc2el z@BdB(tp61iFtafHD;4N2=voIcpn&ap`-{?Xi`^HgY9kaZb3t9RnQ?nrCmEA3VHEb9 z_2r$wc4-LgOU_J8q-9+{_Sk@(_+7-NvD9}a2r2LKvXHx#XcOb|8x-ybrMy43D#d2u zQa|gp3~#kPd^)vv9>>ngXqXnV}Hlhf$IhwRM zH%?_Wd8}4b0JBBN5at|p6C*T>fPz33s^)r#HlkJuZwULJg%^$WXte_2D4tOkx-eoh zTbPx+J=e~;>=!TO&zx5`$)m&6vpoB<#D}+brLuDByB{F*XXW940EX?qQCln=oc{() z^1NLU1A^%8I~2d0sw!a6wOAxkNpV7MRitO^IwD+}i9o&x!yJDfLYFd!O8~v;(`t-wUp*Qu6-t^9{ z{?5bp_w1^!H(jO(|JB#|hw2l29)8wv6!h7ooWmCuW{#VRh^GMJGtv?#_dqfcgtn(*E)MpWYIBGvUI(AYf7Js==o^N9h{`>{Q*ID@oao~QT)i8h+#CrTek3l%(##| zf*w;Y{ZJHYqE2zC2O`ln3_a#dH3DVH8D_RAHiWqvggGTIQ}L0}_?-w(-at!gX8VeX znL~{tdpny_QZh_VtB0ddIX9PWiSdz9i7|=&ec}RRRBnNIYAh$=l5&NlS;bjG#y|@x zGdQPXXdtqAIkzYI_=x1ni@tc$-OeQkBwQlrjhZ6{Rz|F)Pie<5-si){>mfpDoG`|% zCDP@nzdwIxYnEKduD;J66wZIRE$si*ZDIVkG+sAp+b&Q5A>`IGvd3l-L(|WVm5~IE zlvHt3!WSTTK5<+~t^4j8+MBG00+Ixu+j)jzYHHCZDa#Duk$zJZ6!u^tePf}=do6M} zqc-N=gy5nSD}AfU>hDfg*=HkvGHt~BeS99Dn|;@JgS9mA_j*EYoVKNT*{uwf;v(q$ z?rg3|f3|((sc$|TdzxIeS}umG*!`zL-hrvEySZ1+j_*dMjdAV4aWdMC?ETp%c8dwv zzPIGT5y@m#XXcHsW&-VWN_PssUWA6}VTy;zh5spHSq}ZOyk(igJ74Ih9|^K}1u-ZT zP&Q~jg1OANG9iTLK321+9>^pDBve6#k-`VgIZZ_wVH68-38EJ(d3eGsk}eGc(J-lR~2Y|FHGQ?l+3( z6~@S~BQT;?j<7|WqV|W)^9Ceqs0IGVbs1*?JT%3Z(=8`^M~9o1Nyr(Q*>8CPou!d2 zIhN?5gF0&iv@W+{2cC7O7gO=CtG?u4x!07hN-v|AlVfwfw2HAXk`qk2#s@~ZCGX&q-K>UId zaAOEKFj86VgCk%Q%WJ4Y@J64zU3DcHINiCynVD)gHtVwht8>Cn$58h(!+0%@?5Qgb zp}3-@VhTZtn^h{)+H_J)XS0_m%HS)H!e-tczg&7T#_xub+-=g`om$&_IG`}_*G`RK zr<(HuZL+w?iva;u#6MR^V)8q*_3O}!htk8nIRfO*5Lw!bq{Ue^Jw-y-gygO{qo{Gm z?T8$jqw|csL=_JRtSYwQnfYkHA61q3Z}iRy-)dlPxwnzSdiUi~Zh3a^S2}OJ+a&Li z)DkhXO`66K^q zQHe?QRzX(B>L(}55X_39WmIE2pK8`>(FQ4ouh>`-Z@Jh|1Jy47^8i5t1W6JA5lF(5 zw1pwW(2a@!Y8xe3q9RhW(&_rSfyX&kWE)4j%$I7*d((Qu{?y3JO;~O^`_u3^Hnqk5 z>KC{Bnodnbf+R$OG_l%;l2yn~8?9A87@vce?wO$e2v3MP#0)YU>0t-;Tc4gsIN)r0 zV9hkK#^$3X3s*(zbuJ7-xWUKkVDAlZlf+BZEqj?X4JpGijz>z75S};<@wxxf7u1+m zhONYEy~yg-G^2xoi-`JsBqeNDpqN&{>O8NgC?5=dGwVQ2)b2`YsRL9pG zF{wt9(Q=`~$G3BIJfj8cW@Ng-amy-bXR2nk#PW#@w#@)=EQ1A0&YJC%E;gFw)LaZB zIwJvd5KGy_%^`u3sos9zLR~LbyWa15Qk8zJHj?3%!5I^bIIWhk?5t51F-c+v6JfA~ z%nUgW8Bv4;QI>`%mpm1jI-GTw>wwgVxFKattQbj4Nc;#vtWZEE9Ecl_1TUMYTQXdC zIIeJ2-pw1dZ>{Mk zn3}YuV-xVKwyWR!bMD{XS-D0us=r-Lap$CQA6Rkq8ot_?h_P3c9Y009j7~p+ z`R}6$N7^Fjg0NXYlbZ%*P6z{J-TN8AB-)t3q)S<-v=uU78Jbqp24iC7Qy&X@Cmicu z7`V<2kig~&(6C$}j%A>@a>q_6v80rvz_My!nH8aiZk2iuMAs z3znw7&wq*%9Jzg3t-u@C(+>)Vm(0)B&sN0sy?Q^!#&o%zzp7gd*((ctyIz;t*S1}I zAMuuRBQp!RN{yvs?NMX!qclR)4@QRm?%mhI>+t3^Zco#t$&=#q28O=-4i(-Sz-@(c z9?a`tDEjqYj;%>g!T+tVHpGq5CjSJkAzAAS?Le44;AC!CiZnOI4NCdqOBWP+!NUn4 zy}JDq@&XpH&j6wPHK-0x^`5|;&(f-^g{EEpa|B|~7Sl$A^Xi2(n6>Y!=6HPl6B^*h zRy46f%#a;Eg=&gOwWyt*Bi2-uoEz2K=Y#nTOA^*;1Bx5Cz$JJd*p!b4ut*h>w9v30^K&CVgs(a^La+q#^^Y6Lp8bPO1`sW@`454~OP2PDwR- z{*oBUde|GtfXXhx_Li`l7a_Iofsg<`e;>DNL%lgaO406Ax4B<{olr*#(A5J_3s>N{ zg%8o57N~U(WRG5X$WX%ZJX_-%HzTcOOJSHjC;D@X1A8%5)Y~!ldXqnkGrMVyT7T9isT$~CMD~TZ zTNeKCa7+2RjmVpe&rQ)|F5XA*e!bBX7L*7asuRrMD6rRKlW8&@Ebv~3dH7ejFX&v` zfU7R-Jn~JyYF4`pLKhHxG`@TppW+A`FKbeINn zH0mz#wD4ZpWBv|G0|L4aGY|u;3OiX^5hV=r=^9;qF2)})AlD-`A#M~(&5xvbrM}+* z4(Vgq#Q=4`2p(VU;51+V!|-ujv0Wb&k^`KSxjj(jiz#AhFSvk~pp*a%KP@x!LJ|Di zys-uq*X;h#C)7!J!i*QLw^@yWPeg*?T!LYWXO>D{$#z`ZLc?%Kgy`^# z1A^3=DLEp4h|B8e(HMV)!CSX$UN9wFpXSfoOJeye8IP;-l=EHvgU?LDAR5_pU5#u7 zbi`xHGOqG-kE;8Xav$R_f$`(FJH4%E%Y@d@QkiMT!b@zmQRL30aLp4YL`}eZwGWH@ z-QC|jQ3itKrL#=Mj7GZjL}T+Hy%c3_E=6`=NxSoOePOHCXRAo(#iL`AeCuMV`2P^U#^*i}DY^i6~g30TG zC5&d1nS{-x{8k2=4z!%Beb-IAxB02=8EUg3J)bH8Gkyv1ZQ*22YCO4($f7xH^YgY# zTGyrMM$}m|ObiaE%JntK=EolE1p|7WW>r2(Ga|l02ECbqa2q(28t1 z8dm-_!Mf3(d7(`Uv6GSCk}eIH8PaQw2Q?lYX!5#1KbpL3*1lA>gzhK=K{-9VY{HpK z9tgPkT@y*J(_@$G->Y9hFYdavnk`v71M@Kvgc;AdxMk;kiQm1UczFWzvC6$C^x7hR zel_W{`|4C(PV;nRd0QEAQzO+qR*W-MTF3_^RdOXi_1CwA_*hh#$Y(r_!{HB=+o)Yt z8fzRcCY}M?R&61+^t4htGWP83o;B57llzT}s>d%24;#xjR;@0xoM8@d?Y}58m(|9G zh;?aRSo3yqQg|FWJF|<89fOET9$XGv-58m>1LSRiwVT&O8J3A0K{iy0+w3f`ORqWG z>e`o19o9N6c4;zhO$CA&kj8Cew4X!%06u$wB>zEYG5;@}^?xq+GBN+FI<+=1*h4^2 zGm+6a=x^T(M*=`y0?zmkpZ*so>Hk&2v2rr~d)3GjQbl=n<0XQTvpoI9DSFxYimxH4 zhB#7reg&{vP1IHq$H4?5NC*f7qFiDSA@K?X>4ecR-oZf#!Mwb%rAD}BMXefj!%DiQ zWVv<69)D}=_J@2!?{oXb?^6Hr7x=P&V}1Q|`}T=vHZ~lCBOW0_L=W&U&~gJ|B_$s+ za7uzCBO&C?e8?BYkLMYrhrnHRxH`<9c+@*On32Eyz2a=Zchg<3Vq&nk#siOFILvH& z-tQMS|NJB9KL6;!d!jdhXRnM041vfn!hxm{$UV=z^p`LRswdyJge#kD#NMd}wtyPVgb~BL(YOMy7WP?qjQHK_F zv>3IXY86VsWO;l#L4F5~E|GP=O*9s$xWhV^enzauN}F1u{_& zaWE&=Z8~`p%g)WLtWLYpdu0S*)c3AV@58iY1Z6}dgliy?P6h@NZc)Y)`Rb3gK?fHh z8%ZdF9t>loM}S8HhIlkN8B!92{a{$Slnk*MQXOLNu+0Ii5glV(y8Ig=bcE=z_ArtW zC87WgaVoMs@-0HZFcnd_hHN$A3ev!^nGrOiR50RxaAG)7VMNU^8&POD=|MOMQHlgI zW1&(50>b{W^joJebNpNck4P(^FnBR+J6-8W#(_UvG{#%gu=+tVm~@r|_@@ys>P|&p^LJ-N`}^0QL4U5 zl9I6#xueAy(cCaJYA?Ie(5hqftZ^y{{2HXNfE z@(F7T1rriuwIPrKqFUDWgJ7lmSS-tp7==!pJCve$XVwu@{nt`r9kJWG`W8Je{((aD zt}6<1de1RmHVaZr3P~BI!DW8|AIQ1)3Z`id?3YR#r=#r!=8#f|Yg%g?8*5pSZcN}; zbE~6Y{7 zt-_YqUHK{k z@RYn|mxVWSKeT(VK7Jen;*sfGPwtBo#nBS{nd5VYqxM$4J?hD!_=r~*Chta=i?GR2 zL9rKRbP|#MLX1+km4Jug@B-8W6z!eUg-xROo{h9%fb8b9Wv!F4YG^kAy z^=gFLcv?40;==~%qvPzdoCov=qaWcLoJGS4E#056VD!4C^Fo9*Fy+wE4{EQC#hMS0 zYp&3qiW3$-3elWPH)Jct9tbSXUn4MkuU@nO%6wL}_I}LB*>AD&0)bgpv8$_cO?FJ% z<>7>e&wL_!865J%h$68NA%37SG5sdVO^Xin5*^>A6ti|ZI!)3ZRHc->cZ@9_eK_#R z!aX|CA`D((0q$Y(8###~7_(qIo&(DoP+NP)Bnr49Jo+HXhT!#2!rvjj(T=_uS41$2 zXU_$_qxX;H`w)#ZBgTpm{<}7T_Ad1}-2YBsav3?7F$FC@IE7D!e>xy+`6_N0rM+$p zy_e3gf$L-o&41xIH*ZOJQSY1{y)lvo(b7)A+!u5FEB8aV!jXHF*oLDqV-Tl4dSIB| z$&Lnl#Q88FepPEypDQ^3ar@1VL)8Ak*mZ;T) zo26tyo~V8v5Z5ARrK$nhG`EcJXbf7h9{Zt@Sr#k^aw^)NnlTs>bMenf6Wo%7k}a#+ znFqoXFJ5Gcvi{)g0V02#uo24<22tg@sYNi3xx{>OAh#;)l>hqunFTbpwA+0mmr41f z6>siBDo%T@DoqqQd%VOZNPDP1*m{o*{5VjNv1>KE$FvSMt4`#@yPGpZsZM zr9&zxQ|hyi`%+U?2dL2K@!#-wllJw-?}Ip0>QD*iLvpi>T4AC9 zV3$wd&^jc+)7r5OhA`L0+xZ;X1>~eZG9t4yT#zL>WC{h3+Q#DA(2}znr3L;mvV}#- z)vn5Gs>;iO0}l^wT($%Q**0Dw;VqjB;zJ9aQ;6@Vi~u(LraX`ba=)oKxixRA|m z4IH^Mpqiv@(4-|1Eo?ayS7)+o;dk`<)k3ucQ<{;$D%k-my`)W)JO<6o?h}pkN*l?t zwrz~5bVWb0m8g)E4w(ndeXis{CgficMka$pp*Zx2+fR?gjrdTeQ=N_9o{NDu7MNlf zc#-#FexCw4Vl;;#wOot?6YMLE9|B4EN)it?HD)rqZJ z(yDAvQIGsVThBL%Hp>kkJy`kW^ioz3TF87hXIK=lu~jQgO1oPu3t>__%cOTR zDxu1DIpY-!0I=O{qjiMozxWV%gF?StK0a=$U)8SwpRHF1&Ziz|&Lm8qMKNQoIv4ab zRltnoZ~{lB+S2%Y_a|+3TGM!!oPajcd9YcI8T(YksUYC>#W*|y?HnX?I(rno|Srqm~O$#jLR zpPwoOc%ZY9*n-wl!M>WGda5U7w5-PbrYZ6IgjBQ(+(L#C={!NoJ4cY4@Q zX*!)vtI>sX_|TV4-mf~#fm39pLM`HYitPqY1504?Icf{#zDUK;#hoEdc-*=_#U2mp z5M337C1IQNLN(7ye430j%P4rM(y(yzuEW!X$tC6VY|P?Qg#^S)PJvT-nw zKxW%*;Qgg#A#0*)Qqnar@D&O%UCA7)n-LLvu=5{vl1VfJgEp(ht3~o}c-eon%9vO;g$~NNk{@ zvVtKp;@R^`h5Y?C8B7YlOG#rUhoKO9NzerICyUS*L{j%1UahU8#?D=vR`|UyV`%06 z*2nB!X3O3E?RNQ_q;vI8($LNVNfRfjGC}S)z9Fi==D|4AkO-LfFSHe{3CS;Z<&_|t%>Lx+>4l&f-C^D+A)B&2I(E z&#iU&=_|(Sz4FDdul;im0eT~iAFB%U#qt~$y~#RnyWq$RJ=wjlUt2NDkd36#ok+^l zxLx|O(Wkb=vi}{~*h7nnAQ=m4>7$GPY@4nHfwjjlM@ z+B}RrUeWAe(sNC}>hS?r`fIyuglIK0#?0DzDe^>%Z{2D;r}L36d)}K|?BE^9QPB6D z5D%LC5TOS%R$Li@e=|f+WNBfHL1MnY)IG(mBmE&Ff4-23kj?8WKcN{H8$d>HsD3#r zq)K&z@|3-p_OS%t3;I<6FL|_E)7Ix<0t)QSH=<`iN5}(3JB=T(M%_+&p$QS2YIDU} zyYa~@{NnW85bs!jLTC{xczWtk#Xg<3 znt~|#^ObT0QD!G0!59Qx(m!sGs`rXntN-OMnl(RDK_%-~g$rhE7)>S{xtQw3T;T9V z&J0+aiK9RifkwIE7}h4v^wcvv*u{%^y8!F9R_s9)#{<&dx(CBTbMpS5HIz?s@7{)!0Y zU?F(C>Q06DY^@01KdIccx8&FnhRnK{MdjAa4!$$m=K(E?UJu|bS|JO@8S_>r`=;3> z^>ycqF}BC+sg?+VJfZSQ5q(5!jG@`R-5ee`bN>YV{i7u)AXOVch9qd8Z(t$9k?3>L?z>uBpOi#6jb_>XZa z3HOi*%UtK+RH2ZzUoY(4y02J7&s?T;QP)S;aX3tO&))6|&^PwG`f<_f46M}SUvWQ+ z0aow#j2Cu2ps&Io^&hLP7|@==%^o9^IWl)rHS+T22*`#mWh-6QWmo|UuMe6@mt0H*GbXCR1~1T=ky5ciz*`l#%MI zN0YJ;Ve_0bm{ZblzT(~t$Ja3{sw(=U)-5<_SFiLM_8?R+)h#x&qMzY&88v_2DqeH@ ztK5Xn1CP~8CwQw*`4)D%t$go>V(dPUy9)j&5x{`XEr_LW@kr`s0Qf{Jd(Lv@uC;He z^zL{++)?~(Ah%R}Ii9~hdR|?bBZ^-v@6E8%_YQx+3!N-!X)0!bQwPP)Ov(Y<<`}}q zx|r3^Cez?mc?(E6*ROfYi_&$D<#4DS&3USRQ1II+eVJT_y zNFgwW5(y5gr~_&9HK(e3*jU{BNtqf_KDFcPK^5>K47-Kqq~SP`m(1RzPs3-)h5z|( z?N6|uZ3>`hH+biX&!Lp47;^`CSLYWF`U6Au$eVYCiZv2w$5?lRJYns~77>;yh0AG^ z$O2{`za-&Y1vQ(7=Dh}8JH!MgDk**lnb>~E_{RFhRug1c6J{t)X+b`}#&zU)(5U@T zu-DmD>pXMYDb$rukkK`lrOVw}e$EBB-8w!$F1g!%(BvAc1+PQWSY!_83NRUDVYM*A zr6IUoLTyMPEvT#HDfN9b>2#C)ux$zC5Z&*D6NVjs+E@qRYKn)n-4hnt)Qk46)lMl2 zxk4^t2X72yG^=J_kNN!3TJ{@dhvmp<=V7E!ik1v zbM^tJV^d2b0lXR%$Aw|Mi~;F0xx-oGk3gm{pjMqe9qDquBI}Z{AQeBgKfNXDc^wp_ zKFF;aP&0hY$(==jxq_mk(&O;>eNqgbR)DB~$g4!dKUT;h`b$pV$;$~lKUmk?6&Fi0 z_>09wH{Xq>OIt(PHytS$*IDnf*sD_Uq)=vELt~laT8Pnz~wQ z`>iTU=}9)hCPbgDub%w(7u^j`wvl$FmXMfj9NTDSZw2*AhSh#m*7+q%+_Wnd>x0E)zTG#-?=&Tfxp;0~c#xJaNUtZ} zLx`-=ZXTvaAW*=7G)dhSe7)+r$9%j3ND0T6C3zMi z@?C`dG2{8F#Z|nJj^*cLZ)_!;i)eB&Zmw8;qh79-es8h6ul^F6o!}%=EIpA)ufz_% zj|K?=e|KKectM~570~Y}fzgIHbR=rBH#wdA1HvQtH^V+;H^JC+P_ejNEnmbC&Y&YHLiDLaH-yGBfYJhD=gI+t^d-kXV&Ee#1M}bZ6gU& zHlNJbqMdoztZ@z0OWt(cq8-~%n2y!oSvYc zHiV0`S<&INs6n+39`W(ll(!(Gx^%AJmp#}G)r`x{;a=z?Pjxp5JZphe!OhVRf$-Ap z)>#6kZ#s!OM|N!cUEqwd>9+lN#O7)f`9sevL(=#NNC`-xG}%g`B9+v4!W*2bc0&89 z-Sf5Uyx-&!%RF`rpTo7XAoTX0-SYx>zL-{P|KWc;#;o}xW-$fo5zu&!w`Kh0% zCd^E_#3Ll2))Y~a3DGnGvWUS0Az947Yvr@;QrW4SqUuWOy|e9LGh@Qz zflH<#^RtP%sXYD8UDr)Ykfz`=cHJeUdG%rK`T=VtgEkp-T zkg93JwnNQ2mv`2gqR(1m*ZJWW7|Q?|>pz(9|5g7N^S_zw|M>dx3=D1EA0E4(A>KbU z4u<_8Ko(zM016%u*8gFPf9Y)bfA#lSm>K_V>lh744P^DzT!ciy5fx11%jlell}=U1 zRjU>#D%UnDjkZZFG)PDjM1=qf?Zm8LS+sRv$h|**AZ`wN(^5BNZAYwXu3x{^YEpL! z(tc+71uOaduU~y6b0u@R-ETNgc~84fvmqGN)ny0}JZQ9gwNO#ZvsoO!tUS}@5X;?a zKOBTR*aNty=P|}0I5MEwWyWFMMTxgVz_)a}dgccThz{{3p2$KW7xbL{XXn-r-^X~y&L zC?HZPhfMk$Uz%{m=+q>HRH$}ZOk>Dr*n0$vp;ak~Prli==n%p$jSHJ_nTG4oE{6U! z#eb{0PkAp-)>>~2H|S6zPK&{(PqI96(rj15=CvLKsiB)vE`iHJn7o~rQQ+Au&e-#@ z>zPMbVC}8B{awUE`Xb-FTd?ttG~r@veEJ^H-(6m+BXI{Ptu^&2!Suk^gpRmTd0!9d`+cNP!^ zMil2+FSpPFUGKpA*B6KS3<_sz^pG04@$v~q$t6Mr)N=IdddW@LN(d_`uKd+!bJfN$wtrO=AzZ%Tp2+#1mlZkDTEK;tpmw%zI9FwJ1nt_9 zE=Ffi_TePig7%xEgN68U>pWIbSF2C9!$X8B@UrmoU(KVfDbu9&ky&C}P1OAg|&t$?N}BDTF%@j5CYPpBK0% zGj_uT#=R5HcJN(0=m<}6D0^y^ro9V<4Q=&sX{EjSlL~i0p$>$qBoXZyKI{y{Hez44 zf69SXfKGWg>#W4au+6`DANrTb*6{B~9mU%1IlaPUw{>bLmO2&tVr0z&tse?vCuen| z;t)wPur(xP(4CUO40YiwTh2s9F&z8wI5nntysIk$$tWLp3w9eB7r13zx@(Yx$a}*(cIii|*6{-}h7$wb$e@1n6!9470UyWoZ z6W}JP0cd=$^B1Cw56RUB#7@%Sa(H0U+?IORkSL6~Fjj0RK2s4GvEkNaJ*B}K+tS3qDR;~8jB+i$^Ycr<_{EycQ4fO0Co&hQ?9uGu`ZE$uK&eQ>PQd1oB zmU1?Q7o<;dKXx)896!`EE+3dA;{9I>ie4`d{hA!jXynKIC00C)=S_=3OXDRoU4RzO zsRsR_VHWHe)})x!DAq8`Rv-Uu%gSEUF|*W(O|aW zGK|=XPTO5^-U(3^h{Z!Vz^7|0`kE-Zh=_>TT_JW?dz5R2tfa>Z9c#0O3`-&8-y2fM zZU7Cr;lYYFXB(iijh97T!mA4}*$oV>Hn;t!mLZGaS+y;Z)%$6$`tULUiq=Rt9MDi; zm@d>;rW00%J8KFvMf|hSUx%wTLTf?^%HpJjL*(V+R*Kfj()#Me6Ujh%sl;QK1|W}% z%=oBa=8`K4J7PVs#@1V=KgA|kx>vCXlm_Q2WrsayHBb#L?<5ulT5^EGkIshf_n_4% zn8S1Z&xn$pI9zCC^;?_OdsoPIAH0TXV5O3pIFc}hd*}UFqZC&6_%$C2W|Xlyhz-&$ zAhzXUHFqRB`tJ9ypGkA&Ok4v%Fy7@v2DIjTa@`mvmy3%zP&Kbe%VHlnc(Mhk7F?Op zK#By}k){31`hJ(~^>Op4I1n>MZb8{XU|xr^m>GE-(;|YX4$tpHsG_I{DkQ2N{gnE^ zKfDs<@dRAtYA8Kfxpop>g|RS_#?W#>ubwxE)t9VP3iELwjUESo8v!ZPKgRw@H4D)tmb zQ#xAbW)Re$-#Jm2!OOc0l2Zfdw!e%0pjYBB&lkNe#(zeI)jk5>;9Ni#)6GXtn4n+p z-+7+!cqWGM8Pb>cZn<$sR1aWNyDwcxso8?P0Xa$Yz^nJ83z2Ro?32Ug28Vy!k3m7h zYo7J*UCn=2`xR!tNCD6WlgjT>wBMFagS;f{H-yvNDD265kF4Iie~+(tq0qawiRogMEV^U*a6s+vUT7J`OgbVB)i++HqHc>0!Eq&zI+ zB!F)FQ%*rW>qQ`}_oU7}RT`nv`uV*j?az1#yP4Bt2F$U&5F1ani*e;1%^y#~rfwK_ z19qEVGVSMPOO3Nzw~uVCJJ*e|^Ui02RhtC_%f?>&X03>?5bjcGAMoCdW$51;tu!=X-TlbFgx?|wM4g8j`%&@+2~=N2 zQATo**FCfrlq_Z*BTf2?21*fUoIf=T@yk|-`{$`btr-p(p5@UMjm%DJb*N@DlhOtR zl-2zcIzBVsJU!U_z%t8AUBoGLXme14C$%V-}ytS9KV(aK6XJ} zf+PEQo!b!|jFpYCq~+XQn)30mfI@On^Tn&XR-vB!N>?*8+Vn(;%`@S(#1H7+pCpJ> z*i8KaZizN7y%eNNN#-SJ<n(iP|KXRdvUD>Q1jC16=oNY>A7qbL9b ztDEgO+D$d{vs2)4Fnkt9``SCv3Xl}SmTr_}B%%5aryarDmrBm3W#5$SG$h4)5j&7? zykR`tRgVpqm>ao~l`L;x0XqRX<*1$1R=&rhd27)Ntjk1BNz?49jt5`@I8I}V_v!*` zDHfkBfxX~t)L9nx+%t@TNJ^EBylFz9p&g8S7M zN7sPC^r{$1P>LsLr@t*Axm%{GqdB=%)?rs4Rob&a6^M8H1PoHsa-|>!hv-icEYtQ+FmX|GXT+Ntk@*`Z+ z6$ba=$ucL6#n!oUu-P^Yx_i`KNn7d$C|HT+aION@P0QPhc`k{ggN5{1e ze^AZI^C9n;q2_cqm;1$do1vo{*zsfC!60KpgvfLY0k_(ejb~bFe2vBP$4?13h|ObD z>9wE=wXq8Pc@>R9jM!tz9m52wcyY;~^jFxMSOApk&aT!;^ar+a#ex*$z3Q_c2w!aM z<*DcQZN)N`QM5>pFhp48`S*m&mdG{IAyQYly_CqiSIHpkN-oKzDBexe-p$(oUYb;^w$)Z%pZcan9?pZUT zLdc1H3@iND|IsNu!pOXixf#X^W^NWZfDi7vJ)|l!$iK~ouvV- zFwQyURGi{>UVYB7YDTr;xPS@jSPhZ1B|R&pNo!8co02cP6~$k9hx<6y4MZBOo}06D z>kcRJ9->AA5&ercrBOaES($JsE)^&pfE@1$z_GU^!ir0j%1^zQ3MvfCYet?N*NvWNLNlTaF`sWrbsBdeGBub#fM&+Z>>0o zJxZq3tL!(W(|)eB6PG6+fb6Zr%E=m~@aSX_H@7jI4Q3p89J1QAhUT)h@7RKg)P+Jk zJeh9e2m;MLROTGY5}mZo8&L!`HSN-7ZQu2_GDXx*z3z-#3lt*tDL^W%%Z@km;~qcP zt_3!9myK_e54Tkr7E_7BzTd?{*}0Gd*kd9=M`T9^@nw0_&&Q_5OQs0pNMIBt1V}z| zhWv0BU_l|quu_2dLrg|^8vq<`uU&khrE9X?G3G1Whg4C7SosOLrsx@d`aGcZabo-+9O1T=vsQmvZ}xSBZEp5CYkk#qO{b!Ec)w^qx4NL%v$ zx3pz4Fj;S&j3!m)gJ^)mFjAHK{CArqS~rWXrOqO9Lmv{R0ztKy1me6Zm9SJm!I%P1o@ zl-{PS-cuBgb4co1dA2xvuZFJ-nPJo%3cX^I!R9We?WPfvcorC|k(a4+wo83aH<6q{ zMLB=XN+Tt(jJnL1ArIA8>3 zgCdqsZgXy}HnJy~j&L6wo2IP}G?j+Wlx`MWMZ{fzH*GSSqyQ1+cF+9bTE(3vu2fG( z5ykpl(*Q1!up|(~>bfyXxgEVJu@Dq-I3++)|9yNsj|e9vBOlk9yIhJsE@%?xxW|)I z_I`NkgP)~efBZ^$TuIi5Y_!e3_4SwxUSZk99P!-L_S@L8iz(C>H0WzV3rg@!L}n`a zz&{u_7-#`|&Dxl(C&A97gN-t1Z$Veg_!SzqqGY8YjXLB&4w{y&pi-B6R!*gTfasky z@Yprn=9or1);hMcOM5H)jtFdewsbFlBMwo8p>P#Yqs+$jbw*~Xrvpg&M`E<4_HkKu z&dVDKeo8-YTG`;?V$20^_M1P=e9x4y;>t{5<2sl4q10_~!RL$P1w8+jGBxHm=15V^ z~>G8XVD6R{9x2Le8?UI}h)1BPECVCm9o89%pCVYGcY6_A?0a^8VT;bGzylaNA8Qkm zpFo8g7lMyoS+w8IM0fSiW`yq2io>v*lbNI2 z{&YVl4tQ*73JBQYV47WPx%O*3lxAivyGCCL3oHS#(%2Itea!QZ?C=BYL9Gmmgi;O0wbrR`lqBl;(qOF=KhWpQk^=I<_ub+VodF4lb&MPI z)!U|YrZX}KoWNDwvZy}|+W+LWCykBsx+!u09-*gvbAne2I~45eiPe5Z@r#5_nU)tr z*$wji3&Fs>w{;A}tv8E4cpcw1;-?qOmh)qc9$B>`Z}4h<gjMsXw+gx*54cJt-OsJ=|);Q_X2bCYIf$aF?xr(TiK{ zsd>Oc>YV%z)@vM|W{C?Bf!bIEZ0#3lEn`vV9{J~y!4Jv39xnL#)*}2R`0dqQ1hef?qau)>&13hF>a>G*UJ5D;|4KtC#G9i7>Tbs z$<@V9bt5n5ZK+mtDr%d32oQP|1~5-=9X{=#u6}bS!uKReg7?}my@Mwdsp?dHzzdhn zmil(!W4G`#@0mOkmDZqH9vp)X!83_bsbBO*Hxf7L7LhLZX8eZ#Wnlo$*xk=MwLO83HSZ{ZCuqepS!bvV5ow45Xn6y9x^xlp`)I)CSJ zS>i8=bRq4ExQ$Q=t}nwn%R@)L&W6m%-3GckG)l%gw=BPx5uSH2_xAxL^@k$DkwOv z>lywWiwteI*o3}jk@e&+4`vf)oLw%4PU`Aa<)5I&ZQe2043O*R7N1Nv41RrOQpg3` z1SqL8F#l?7JvS><(Dugh{J=fnJ!BIiR8TF$YXhJfe-dP9I$N<`FJ@iSTx+QO(q0iu zFpY6AT7AmOYOl44zFth@x&1KoW*tW%zzChyYc{Gk{6J~k6-Bvz@nVKYIfZI1srhQ! z^~vZx7j@1Zq<65_yT?i{7hMI%X6 zVWLB5HwdXBO^-9}S?D0rLKwMy3-ZYaC*u%|>W-au@3k9*3?D*vx+M35XuhN z%5SB;p@H*FE44ic%V%8j!Y0V`@V-s3WI%nVeg*LE4q&HzCC^4;BR;~{msDoNcVHUG zn0oV9gTt@yb4wFD0s3Z&)=1AcXQoP{@AqwYnC*ww=Qn!`?-)#eWdHSEtN?Y8U_QrF zBAep`@D1XeBh?Z@9hc6@F?*Y{qv*agnY3}Rky>+-u%%d{Rdy@&?-Wz(nxrdm2dqZg2~6>dM2oRRprWOSWj` z#ikz+WIZDw@Q&_kufF&!vHc_H%d3;DvUX%CD691OK9{Mo-5{kLc2|Er?_^Zb*cFxF63#Z$)*ng^f>vE>|< zL~cvW*jiL#1WT>6golYGe3jvSA2sbDSUgF`RZnPdFMU-ysnp1T9fOF1a*S9SgEE^h zsQZYgwDySf*g!9^*l^8$(RFyRmbbUTMxBI&5iPLlecJ(n~47V|%XXFmWuqTYU@Z#x^#P-vyBL8Jez;DraOF4Kj} zHK$0-^LzRt9(*w-HRKnmfW*FHxNkM6`Sf(Cv)SVZh-J37&(!%J=NCPr`oy^XFC5uS zq8xDJ$H!Q5cq_D$!3Z)8#97obH!8Z3^I8$|sVPk?MJ#g39m!lDoW%?(+emif;bY?M z#R^U|x2*E5VjQs%+;b#6%}CzyI*;H1mB5IW_NlgrVXnlz)bO0~Q${gTdha>Zg(>9u zN$FBwm^f+c+ODpq^k{{6IQj77u;d*x#bZy3uo-LgB_CZnkho>;?D*rzm0I)9`CMtT zsC`ir@?qYrF3z?)dw0o3mK6`++%|l^|Fz<_`8{DaWzy(iQJNKU{Zrea4YxLZITmgI zupHrf`ijFnXtt;I*0u_py)MJSMYML=XQ(2?^g4A!^#Blc5EL1GP-{nEdKXyZOBU2! zUU&XW=TnQb^DX@A>pQG%&FLRAkxM8~N$ZW1~QZpN2$tKl2T;iC5`WDIFw*0eqPA{QfD2@Wh0~+6pLdf zp@z^f3=ixqF5LoigqOxX&Ad2~-9S5H+8i;3%qWPQ?nnlOk!D1!25PihO!2E0SxGVx zoY#kI-epGmjM;5_#jl5&dL;vVj)e(`w@MWp;g*UC^~$EE!B+^%MbFGyNQPR*#6;4GprG6zh40$7B|e|1_11RO_qSC%uw?q|Vu@$Bw-ODe4WDWp{wq12h^D(_3J8CcTl2fKKYVo!ui zQe<#Es4$+clGg|*GWa0dUMEjJ!^%yYIA7W&M{jx}QUw8Hz=+TnRx+Xb#!|To9K)66 zPt{yYtJ@s^xR!q`zBj2HIGxpYTR@MV0tQkytQQpU^{-VNiMc+teaWKLHSo>|GBC-y zqdle2-R+YW&RKrhz!;4=J3Q`~^=cIFhYgR762C3)DI61-i~9jrl~VE8rCqQz*uu?F zlK!OhTYZj4*OyA$#Zvxv#zu*=^zsYRh+DZ=g7gpN;+A^SH%b`A2iY26KyF9wVS{dx zh-#dbP3YRA~Cpt=_J=x&pw;avAGqgqe|V;=4!NX1ktN1Xed z>e~b0hIQ5xs|vn3*jq6FAgM~@)8NE=R@Ca>_pxZ-i2>qTrZ4- z8!XLRTq<7gqa6ykI-^bJ4;K#F)apMv0;?hGQQloEZ*etej@$qU*!b0IUT^{5pW0DZ zC`@dg^~xc3@zvDGAXj1fV2Ia0VT}!cm4NgIt5%)Q?$T)`emiDlf^MC}k8N`@0S#Nj za`iTUh+OW3eeQ2Ck?QzEi3#GC=U2U-X_VUEz9wKc+9oz9PZi}9S0T{vcIs(;yK!qQ zLSi{j(7hl*z0~MXubb3QIHtu@jBVb*^z-=C z9Lgiv2=Bn2x6x$4Ce!A4?pW68<=OXwJzSUIzPGbKxvj8WBc<&}6mN*BgtmG!4%C!A z?$>CCJ-4~oJv}TCB%Bkc7a^8Yp@R!2Fw0z0+|G-WFo%ttbthKUAL^F36@l>#~9-jTQ4B2gB=&otEU(I32}{C!LHt5u-mn{epznfn zDnhg{Y#45hyCp2QG+z-cOv5b#>;??!dEGlWqu7WfbUE%En_sYjZ9e*Hvq(wbs#}CC zKH?5xs2!HB4-%h8xin1ereXSZv$ihy)#fynZiA*`dgljbOFk^<5`_c`yxg81ug1+f z(%f$~t>yppKl z7;7z^uzBymOWh>MDI2rf*f=xokuAs+&zfTH4kWg+LhapvX@+}bdE@zkR4Wk+qB|dc zeQPDqUc#2ZN>jGEEwCcFpQ9aTkpu`4+Pwea@=|*8O*mLen57aSM_|?{7TH#vtEQ#3 zOJRnKlS>aV@Jiri+0jTj8S3d&hq7b^e@C$1ckZzzdFQ4R-qE}5KOTOL{qXXK_cC$X zeALfNI0uCvhTOTb^Z~6`N;EX)1t(i?J_dJxNj*Fk7%H)a`VDJ3Z8Z^h6$SeSUQD3$ z8zOEKEbccrx%RS4RQx~4%-%jlc|Byoe=(3aqk5>-o*C81-)M@UDn&;PnD_(}D3zBx zYpO^JHn&TmxJzL>gP3B+soiX9{d7gG>tXI!*SEiZEt1-s9xS>2f>pT1S{LZVW7N6# z%H~tNgLXIiz~k))Kh`w~hyD?Bvxj4bAQd?hbg?N6T4vv`oBz7x9oQbrEoTXyfxkv@ zwV>J>d{YA-2j|@4ENp~ zsns#7i_N6W7n)U$^M(ZdQ|kY(GKdfO{|ONPPX_5}SVI8vQieiY))o+MK5n2Drxh5; z&&3I{;s@~ofxJ8*em-6>m|x_7|HBxd;o{;WYkFDhv2ej6#O*@+uPI_%hp11Dfi+Om!4k4Mgyc;$a94Fc>IwdN8MM812YR zD)~)BOcwcTV_BLR3Ktw)hV`16&1|hu&DO~GLcJ8X+c-+|rd$fi;a}N*cOXx1As_;y zic3;Ne}sBi(~3Gvz*aY48M?wquSDQl6`>Q1N@BK{6It*<=~lwn$tCgZlf@`VU16EV zBSVzk>m8=E`TPot_Q>k1A?xXtwS q;(kGoAcXwJ+NUQ${MX~~@HBV#^mVs}pmK79d3jJ77^GEYQ2z_4@Qtzn