From 25da02896de9a0f3c1493c50737f454e50cb559c Mon Sep 17 00:00:00 2001 From: spegg Date: Tue, 16 Apr 2019 10:55:33 +0100 Subject: [PATCH] Custom palette --- app.R | 16 +++++++++++----- data/Sub_littoral_mud_BA_release.xlsx | Bin 19445 -> 19434 bytes 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/app.R b/app.R index bd2c904..eba0f2d 100644 --- a/app.R +++ b/app.R @@ -203,6 +203,9 @@ server <- function(input, output, session) { print("Loading data") dataStorage <- "data/" + + palette <- c("firebrick", "coral", "rosybrown", "tan", "salmon", "olivedrab", "seagreen", "aquamarine", "darkcyan", "dodgerblue", "steelblue", "royalblue") + models <- NULL pressures <- NULL @@ -500,8 +503,7 @@ server <- function(input, output, session) { nodeSpacing <- ifelse(.selections$bbnNames, 600, 150) - palette <- brewer.pal(nrow(model$legend), "Set3") - + nodes <- data.frame( id = rownames(nodes), label = labels, @@ -539,6 +541,7 @@ server <- function(input, output, session) { edgeNet <- edges } + legendDF <- data.frame( id = 1:nrow(model$legend), @@ -573,10 +576,13 @@ server <- function(input, output, session) { genPlot <- function(boxPlot, title, paletteLength) { if (nrow(boxPlot) > 0) { - print(paste('Palette length', paletteLength)) + #print(paste('Palette length', paletteLength)) - palette <- brewer.pal(paletteLength, "Set3") - names(palette) <- 1:paletteLength + #palette <- brewer.pal(paletteLength, "Set3") + + #palette <- c("red", "sienna3", "plum2", "rosybrown4", "sandybrown", "yellow", "seashell3", "palegreen", "springgreen4", "steelblue", "azure") + + names(palette) <- 1:length(palette) #print(paste("Box plot, colours", nrow(boxPlot), length(colours))) #cat(colours) diff --git a/data/Sub_littoral_mud_BA_release.xlsx b/data/Sub_littoral_mud_BA_release.xlsx index 156e55087451c9922a5c0f59b9db7a05286cd6e0..a00c17310d8ef8b8425be690f80df2caa5050c70 100644 GIT binary patch delta 10324 zcmZvibzD?i_wWblZbZ64O1eWNB!}+q?i>UTiiAiH-AK1|cXvxDpftjOv>@?<-se8| zx$p1%app7Uti9ISYp>bsJLjykB)IQMaF{9z@CXDT6ciLttWr!BCN~`X{U=lsjtNjB z6~ysht=u`5v}-`~GaU*>fIi|w(0(lkx9Fc}y%fPrB3DG;bM3Fky;Z;HaMt_md|_re z?#k_|_FQ~r9!ZN>R#=!^F=QPso6VpYHsC|H3HjNBqD z3@@v-${=!Zo1*B2jQlGP`~0)z3RD}ha@-502Mrl{zPbNKRb+wEGUpDrwL4DQ@vS}b z_7%lQfZkMBmHKOo_v9f(NzIePozj8ogcha#&CwEss`b4zMQZhF&un5bU#0-3;&#D- z7Zl<0i=;X3_*I2hHe|x2n&su;=`Pj0B19yp>{VVYmKH)wQUWvl38RJOKcALp(&BZX z94O$>YHc;nF`_V0^nwi`sc|lVRULKE!ClP2K+`uQG2z|b?6-BLqM_p zs%U7O{y{60Qpcn>}^9+c!G4kGfxA6qT1KR-ex-Udtznu@oxE_V&V+^lJk)s0N_noiSL9 zzLb+|1eePIVz8oMWAD4u?yoAXDVO;=r;6;p%=m3m(U`L5kjw%=w>jLNck7tg>TN^Do)@gEI({3`l{Wy@fz*J>~D!u1Pqe(ikI8ufC)mKC&bE_5~tBkQB$S7Va8G?h`WgpF?g{OQU=NsQOmVlvEO6%sq^n zE4gSHsun-Ei|bX6bUFhivWbZ%lc|w&&e>f~^}pX>PBk3o*&(C>;sNuLWL)DGr0sB- zik&RsKSON*z_9arE%jx(pH&hKEp;g}-OClkEe0zi7xQj4-g6s{22uA~@+XxDJrfIP0hhD?sE!0M(LcFFA z9&hPi(WcFaHd0zO_Z4FC*41k$lzg<*bYpqB)JH&c{Nx?srxqe*&B5zjjhrDTcBn`L zc<#kZ!kQ&{DA{8-vBARRtf{=V$XZ5o*AaqT7e-d7s2`ORz!q=mGm4Wr0>fQzWd8JV z_8n_b>E{Lq%Y4IO`7l?^Ap1N!X-m+8qjrBae~t$z$#4kyGz7NAJ?ogz!*#Sukiq!m z=#^)h!F7zk3iomSco8Q;WX`LZ^)JH5$>6{in-?UJFNDZ}fn^)~mj(jJ;`K(51W}%A3W|6oojuk)b&2XDTk`$@Zy!Yl2+h3e)&L|t zUB66=CpeZb3x9i9(ZCQbc=B>PylLs3t9N`0!m!J!x{G7h@DOe~s|({&ugNzwXMD9^ z1Wi$I+flB2MY|zILSK`X>Fq*zEj`CDjr%P%b$(Rs0H)DtU9I~h2Zi6OPrs|F%2o@1 z^ET5J^fy+x0P#Hu)3?at@-U7KC|ET}2# za@BpQ9qq{?;`so zDVr)0Zuo3meA`gvVN5)IpK5qEGGdq|)=rHKm40xhAmwK0=*h8UYdJ%eu z4wnw`io4{ND2=fEFt?D$2i%DVNt@0`vF{mE%*)7JIybt<5}1K!qRI?{>@j3Vc-+ZD zjZ86bau!}y6ARXD<>6d93yQwdQcOn$m2WfD%%nI!l$za>KH z?W=DVZ<$%!j|fbx!{jmC>6g~ov{n_kD=98TiNP}~T<71%Mg-__Bx=@B(%HV0em!O& z-lMnbTScI>+-{)-+ye~YC&OtV$JP-5THFd=NLPuJCMo4l*S=ltZ206u@O2QPGsc^J z_duWb+;fc@HVu6QjA(_+{%P{6DAoS#Ug>;TYUw%Q%$RW9uCCRTprdZfRBbeNNU>xY zNB&iM1$3tlczw6q>uDtLtRD44ry7B0h_}^6ifRqyeI^93lzr`coRjHMye|MuGr;EN z1-Yyz_Y-B4G$Xq_adfa3%$iVhE4mImHJ+fi2PX@G#j-;Q_o? z$dS0Wa9TlZWW@S5AA`GC98|^Yk2)9n{TB*u78n3{^E6_IbywuiJo}+Um>6u;lMIzM zX=mnXSP_m(p^hujj(i;Ti~0_xzgT$fo%U00oDP!M7cM(Zwuu~O%R9U);@`i{F>DPc z`uX@~;SsRYvT)d>@#v1+BdFu)8!?YA;hm5GZ3O>k@4sf~KO??!#64|ee{=LisFD_0 zULtu3h?hwd77R1AVb*hPbq+piLL~6bjccTOmi|;qo9buP4hq?h9)a8n*hgy%kTg@K z;@~}Aq#WC-Df%=E!|^EG_5I-T=^D;mxFWEmJ>`qd`6r3~rtcAL1${;GG4=FB`p0j^ z$f?W2_~Ha;Uof*J9+sF{*SFM@7jNpRV3SsT2ZWYjGRX^1#j6L%YA`uKPY4iDILIfv z*_u=y;o?jShsPDNB;F3bvlAj?BrKXyq{}YRZk;TTpS=OW>(d`yku4Wjry3X}AvjU_ z$EoA#DRe7*fZF91=i58Vx~auk#xNBq1`^E-waU$;N$P(bNiHmg#U^H{s0J9NOel-9 zXjO=bzj(!vA-vN{;q!Xo5Zed4Jn19U$`B`YKy$y&srDuM)*WOvPhjg;o2&k>@U{a% z(*=)#5diLCZ<)mlmt#c$flRSM|NqtkjYLNV453Q`L?MS4+Kr9LrH0QRkq%BOA_9P- zP{R1W1}p>qgKOVHgkv+~Ns$_Va3s4#ZTKB7aCS z`ZQEDn7-75oPGkkO}t(2F7-UV6$R=^T!{K==f(tb*w81wRcU)Jy2_=+)cTqZ*l`5j zo86gm3~KAwqn`vcTce6s%hed_{D@vWp<1ig*~%9(fLN=B%Xg8;@5ac+C1s)bPZ~xm&>cdO^(3O1bQ(xiR^( z_JS-y0SXG%t)Q)qK0op!6ico62uBLQmvSgH&@Mku?ONEZ60+@0zgkd9bhtx}bz=UC zu(rmATncr)b`T5mIhBgZ&x#QMzs+2vw|Ta z1f0>wr{))Ik)Me^Ip9;Qeb|SOPO^G=+ud?KsW9Bz-#X@D+&`&HmIM!bTB^1O9D|k` z3$GPtmS>nFAgLO4Cr9d@^`H?Cq;JuuDwe^@Mbud;n+BJO1*-}g^+K#lB}l3T-jsE^_&`c)c4Jl^A^1$h8U*yd#eTPCO{Z z`G*wuq>%Q5`wR@F_qj3$d=Y|x8qj+|Wj&)C|#D@O~~NX&W)sVQk{>5IMzp!Nrw7_d{EzY1(K+z}+R`*I?9Z7d18TZMk+p97PGbUcwXw%aA;&n`jdkQe*OwK1Ts z7~pleaZ*jSe)%h7*!RwVv zZHOs2FTjNu3y140tu5G@i2X7JH>=fjs- zBd}2{r&RtmbCLNdx5U2ol|;nbcdcc-%Mexr-{vwx*QOX7hVFdp`qcH=>cE9KFRSi6 z&x*;$$!g?YWV~4mk=>}ZHwo*)`hsF!u!Y4<;t2dtlKy_duI6N1mERDysTvV`k=8)2 zuYI2TQAs4FL$cd}Z(TNDDBFLFr#nv_>+|i%{f2!BML&~s~06RQ!M9Rd}US)|~d+nda?;srX)~_KhiI}~y zwX_v&2ZU83HjBu3Hc72%Um&9CWaakrJ@0y%zFoe^GBBM*03zbj5oHW>swyW1aF!9* zluV}LYgxgsP27frd^p;wJk>usF;{_oMyCt4br`3@Q27eYgxIL~aFD~$d!bT~m3|bu zc&8avTY6dRTdf5qKKGzP!od&w$2`0C)r3aonY_oW&sMfXa>6{MkZAB@g9l|csN8TN zK$xGDM36-j{l&PWVZcm{Hg@;Pa5ZkE@EjY>dRQ&E9!@uG-<+~}k>SVSduD7+v6463 zbCCMowi+c@OZ9JkP${~0&gpy_(?}lh2PkbIt5kiNXJeNUty`5Vc5F10P0VOrL-<{q z$Z{O6*h-1nr83=I?N2=Ar0`C@qCzDpfQW`PHfS*6435I|NQ6@LIi082lgxhigU|X2 zw@OA|Vyk-jt5~Vy){OkBN=Br1J`?-HTToZy3Wga-QPAAWvwynTDDS>wKsRZya6HDA zeQ80(g{vFpAcaNqI5u?fB|*%4UI9ocN{5_N&Y%I!H13lyMX5hVr8lUL0bIllvq;4Q zLpo^l7HP(EBjcL-!!V>6XwYLL2PHOWj&Ux-9{EDH3-6Mj&hi*}3f}wv0d8xc1^~G3=#EJu54}+J@sw zrg9pb)Nyb4Ig5!c(TyUMCc-n3fOXHW<0#lt8mR4t5AwC|IW#>dJL+_;vou-AQe?EN ziT-+8C3`Uk#!dh)0beehZMz~9$rrVL5r8orrfYZnC~7}5W4*GZJkUKSxUo1(GT-xu zpJNYHirs!-N_TD^?ZT<2n*2QZuh5r1& z$FSCj_*Ym`=ca5FL;4`|^2_|j=Y3?wq)GDohE9gMra=`25yfh)2`17FI94~`pq53V%|Tw zJUah8c5?iUTgm!pWc8QLkI@-c#kF5Ke5n}7B1Vj990ARgx3|GJ1H@R>B4PXz@x9jp zKQpX*j1%wlTIqHh9Do6c7!K;%en8{MNl(j>fd1i6u|b)k*8^q~d~z2O?0hqYu3oZ` zk55TqxtuAAR_p#a{XNV*EvJcOLtdm6O$lYuuPC-P^#hjrfV z6@=85y_D3z5J?vDB0I#?EPH@y5PT`WllN^)lGt714QXb@D)nHI>(^IjPMIU&h>=y@+cu`>)K&>HS<$tS zoX$Njx$o@nJ}3y0+t$nahzzOL^LWIrW)eq`! zB?SdSK|sXRJ|>uIYVXwVqm-t)xkWr)bg4o?Yg8E(cH(;;$dkOeU8BT85=qa<3}k9C zTuu*SFrnY38~XqVnK`Os=fr=`HYeG}P((U2DYczg{PB93xt1n|W1r$@&H`quPf=Ch ziI>7sV!a{^2X@AYm!eEPM{A$ZMlKecTa6Lhjsg|TG9)#H;VBK~ewq=kQBU3? zI!D^Ns_i)8iE8s==A6(Mf97N@{k! z$65YJt;xfav&4FD&<8d>_5Es=L^5|8(pq9xG}U^Z=RT{k8CyBwK3e>h4+p7N)gn_t zyAFEr7#EHqj+hvz>Hd`C^_+}~9S1vXm5yz!(BEE6(}vx)E|r-l$ths#6lsi*Gy9T& z2l)?|T-zpX)nq!$)<8E3bIPrlIARaBw)T-;6LM1hz(Dv5UaobMI!`hYGg-!Mcb(cx z%ueOh-F9=V#+_sQ*hfs@O`nrVTU|OGykJoV=H#0%E>9|Gh(#ZFsSrrq_G|R*jKR}P z!;kPdF};D4R;i6cw3-}-TYGdA_){in;|Kj&Bz;Fu5MSQs!S7(|Cc22?LHM}U*Bjwl zRD!i`fsM~asBR6DHiDH7G*70JMm{L;$7z!1@jpYN@vq_3OnH8;FsbV;g%O)O%)TmO z061(fPmep-+0RSvwNRw`p_G#BD$Of)`r9`YVGlV8symbgOVHe8TBfApC8+q6l?L? z6(gzMQv|N$Z;A@@E1wy#^(Pf9Kj&8}b-=kKb#mM+z$AwQ9!Lb^9&rBh&wTYjv9x@? z%=KJz=eu7N#CCo%Ygn03)``|Ej0}eKdCP8RNCSppc#fDM7I_Mr8AO<^oSIAFI+;EQ zze@h{;HK0j#ikseX3Vu=r@B>K`>UUMGljA3{v=Z$Dfma_Qrzr)=}79&=Y;L{k8 zJaVRjxa%gWA)yite)jU}-0iK2C@3Y2Rf>-$WRQAi80WrrPwx)Pu2w{3vq=8IiT_L( z3I?RF&b1M42>%e{Ly*3Z?4E?!?ZnF#s?+!j)2k`>@E$U$L-f}1Jf?8(ap~_!b_6d8 zodd9pLC9@+PA>JHj`9$1p~xmQ^ z^Z=dM1T96soavn@9L~Q;jxmGcJ|a^nqw?iA|MCA1GO^8Sl{>$b>HJjo_l;uJ^_+FH z_)uVwF#{Za4$CX*wpHAm_t-)3kb1yJPAPC?s?fc_U||MUn34N)4N4`Wn>o@FA9oKl z=YlSbnBUZ87M4y@_qNxTNlFY>%YK^b34wYiGpV9H?dX;2l1=_AihsPQof(^4S&f(C z4;uW-#65um_laAW;S_QXvtnv~@(1+7sQ-dFmVCM)N{?o>96Pa($VNaQS(f(xufSnT5Ix9;|ssBaA|H(z$!ota4 z=LAB2>c-T6c=BLR|9_;x>a|5=$TQ=FO7gMep>`9psTm61| zl{xJWTSGYpn_~1QC*rD8m2&LzMN2g-^ESqK4p2I0hv*4~;posVYJnf8oY!5Yefe{# zyKac5e2O)#I;1y8jdyx{lv*Pbdx(j8Z4jdj5i$Z>%IWGurDHr`@#v=n6V-Sb55XfK zo@M1QG?Z>^hHA8rTB_^n^Dm#1ZT8U#mL=pg9vfB);}a$>sDG7*7)v5B@P?dwd}AtO z{HHrxnWWBjq?y~(?%*=0qz*xy$W!Jfou|_#_)ZNUR9ua`T%OFJiaYR~pKQL+V~-mv z(8KSze!4&zz&Da5e&eZloYnF6RVJpG`f*a%wgqMH-R)>rlxmEY@Q6TUe8?t;&ejy!fmInjt*I0KE)UOTc&ocMvgNxtciqesTpp z98J&3E!KU<9ZOkR!B|%Kx^Y#g8+!-2emhF)5*`O}hh22UYo7LKWaRqdH4{S4u3o`< zlM5Y%2~_~u9Un$_5WKiE6$awluSm46_#rLgbWe4hzJ9_G^AX;m85=$U8mz+DZ|Vs4 z{cQB$z_p%qh#<|S)Owbv(1Sg%c1(EF-L__GH(FfOjnkyyw|3eDDCq~fg9+j}=>9Xf z`9~^3k0L@@CX`&SXmBG!yPkau-KD|_boL%&qnpQHWk6wZw--jH(fDZ6#CZb}C6^<5 zLakyAdLzSV>>IU>e(TE#;BC9(kQWv;?=GOPiiH*+s=mEt>22P#3^EwD{J~)1(amWg z3?_M>DoeNiZ5%^#r^VfanhfY5^J2m?)Zjq@d#nn3SNfk&v9ukdKANav+waqxup$&9 zh|_%k#tclLhIHa)@1Dq;?`5y&p;D%#ajjibXS&+XJLQ&us+F7Ls(q#n>!~>_xx=1L{eV8JyK}91dFqt^AhLx z3I(-E#1YJrx}CR1z&iRwgGvwIXJR^I`wr|QzY(#o{wXauh@5(GTNmd;KaZV6TK%)k)REFKSnFv?)J8D>#rMnzo{+c1 z{9m%M)K^M%l8=~)GJFXY(!LS)#I9p&yh)mL6RIs*i6)+?RNe8Md^n<-B9+^Hpj>- z(y9I()V8rDJk)ICSRS)o_VlN^;}$~J`M;tj@N6}+hj|`O7M+4EGC_$A+)+nTfv&XTbPFD_`&M54W)J6IGi|#b>w&R`XH`Pc@T9b z`>%PZ_S5O=T9E%e`A??yxs!W^SjVHQwo%xBQHo6YAi3h17l3Dr?kD{0!>RJ&R!)v=yvFUbFegsCvn3{tm}` zQ_FAmXVKB8qNzoqAD(qj0Jh%@p&<$iXCE+_G;+C zaSYX&a!m7FEcluvJ^O4V*Z++e#gTkqEq*oyDU;zUie*KeauVP7HF|lr^vmGj=+X)w zHfav}Dp2wpidW?a@_tCzMrtL`;tUJWlvDRRwZdX7DvMq?F}{id$Zs@C znvMhy+`&JTym(pQbsZ82#OC?$k|!ZS_q$1_#^wd^r(5T{BnQy_+}4E7=7%&MJ}1el zo%fTua{Hx``HlushYxW-y$%Hnw*x#ymXoAEBJOGAGrpDPM14NOtS*!lv%M+OO8r_g zhg(&Hgkb{|r8rYs#bcmFMB!-J`Qg!HA6i%=4}P@_Pr4f8yb9W5NbvbaNp=47tfh1k zYH?|-+Q$QudXK^Z#q8`lQyZa|Zq=g}*0y~0HW*xTIe~aQLc=sN9d#)69*-$`MpLRa zd^lWGm*O&f4>cISz`Uj^R%QL~BHGz0GE-G0^Y=96sCIwOq9hR^ydd&{4`7|=dUo@< zWivgmEjh9~Ik@dx9Hs#2k;Mkb%bPUHon$JGszVzyS%YXE{m9>Yt~$tjGJs!sHxK3CVjh1-u?Sf9*9 zk>O_|D~k-;4`!QnZ#KxG(QpU>YX1B*5;mLQ3mQ__p4EOFQz`i3L4+*5>X#Ar^3bIq zXz_6U#5j%&BjN@zuyjx`^|jzh|i-qVC^b!{)MMX$6bE(0Wr7o z4=jUPJP8+Hik84>um0CXX`7N>;8gK`o5;9i1zi0T-tN6sLOt!W=1Q&i*U{@^1_w5R4#Y?%z^o=t0~cmumlLPx)I^gBYZ>;VV_0`5a{->iW4-$t^U9+{Xw zxv3>9jdhP?;Qw|uK#OI0s2(o;^Mxewy_)|X-;kiD1caQw+Z|LC;2sfx{%%nN|MOwr z|Bg~ee;5VTk;DD1{-4nJzk*@}_ktv>|JDo|b12S12Z3xgK%oB}ph)ps^TuDAgIf5_ z=Dp38F`RC%|{ErL(eXl_Idw%5#q;RFsAq55`5!nZk{|EP086E%t delta 10307 zcmZvibzEFK_pfo+;_mM5THI|YUfiL0@xdL6YjJniBE{X^o#O6LxU}b-_sIS2KlaRL z@0GQZZ!#;-Bsok1y-5N^RFVaUKnH<=fdR4CjI2gv0|kHkjC&7C4RpZcLhw5Kpnn~0 zVP>uSwG?d_XF1Yvbitv|W!cOU>(Zf%!on}U4fxUSLpz5JG+vt&9Ro;g6F&a=#+8?i zexz?*?R2LxHzCMUSHjYo95hg8+(ih%C#NQ#b!^LNf*4Vd=*2-8-50YHJ@5&q&44q4VE#&t>qoyd*?qow}-Dpvfj+fh> zHrl#67v)9TCF`V^vn`L1lT3p#dn|~3sKXEvueTN3;_6)Og)3lQ+eBz6 zJurrjuw<5_BK=t@oiv0A1CJFWMhpMpHag&_Z@9}oJrQO&Pks=Ec#2!W_Y3k`N1hPrK-@@`AGO)IZkx6S`)OLuZtW4<&nSQG(j z;}zEP5rs}(SR(|q9*`hC=gs?3XK>2w#0fSunOk`F9uCOh3one*)=c0KKEM#A40YO+ z6-@)3#2urDiyy{S+k_sTF(|HRl9MFGt4acO$~V#`4n^!Jdkjy&(Kt`@{nV8^!)Kwq zuoWesFo6%=>+QlSlb0z7z+wffr^>EC$pnr#lu(={ zJjNGD1Z;>f1JFnu2NcUQFv*VmwRKc4I>i!+st4fq2Z0`vZMlX`yp2JK)|`-z(A&Ew zNP5N!x1K>W7aG=gHSYS|4D1xc{QE>{%Y%648wyv_$@B+!!_5@iH)c!TXZ(|F@Ai~0 z3Ui`o^JnK={O6z{FjFe3mLHPKgYU7v*pIuA;rrPc)$?`g=JO0{zY2^)=qWDBBe>i< zm)!$#)HDx06%V?0)UhdLR`RVge3qSPW9VcgHLAI4cvk(N z3<|V850zA{Wb5;hcFmr|CS$dnvJ< zH;fgrKtyJHOmDAvTqY~{q?vyM9MzrQ7U~Af%G@m^Br$&Z!ir9dt{7*|As6#&m^Xm(rIN`{z5I2rBp$xioBgolP52%S_VwmJEex z$6rl0K7XFeJBK{IVd<%F`{gdO85-jusB#{XsBV8b{QGDu1LyOVmE9mb6D(JpSieTT zQ-|Hm`HqTXX0-#@ZC>K*1k<^x7&`JRl#(nojA*lilp!Pt$P5k$$R8;g`p=vkrw>mK zM0~ZQI`rNBW#Xu>_3GBppUB2Fx=hPNijdL97W)L87Q@i%t=g@4cEK zHr*tqkp4|M`}SeXy6-0QF@sU1UTcIZ7-}7D)c3`%Hkh$WKP5#Lwsy4Er1G;U;K+kF zVitz@<;FPnD<*jxC4xU7w1ji*>Sx&WI59N!I^jJQ{2DgI;+~IdB-?D0n)#IvjRLyD z@{ui_ILSb_WA$d8ee@OrK+OUIroXqd9egWrxUK?S=TaqD!$9UnP?u`bvBT$eaKTxR zn~Ct9m`Fagu`SPT1*+<#ps@&9q$b=86Q6RUxBt+N?k_?j@$IyG|9lk@EO? z*I=3vE|z6ZrK!_S4-7*bf9okvOHdlxdt89 z9xpv79YK!oAUECFoT|{g5PVu;eJW@hsVp6Bbp87nR8YF+LXnr{x2jszp)u&7^g98R zJ%XhNnx*eVkIiRy=TP3kjTy7h{P*Fs``}0|-#eu@ve)%Q){p4+1%b{-nl}2C0E~D) zW@qixcdLWhdx2|P8f2fo+}O{91-h%!+l%ONtAF<=d)% z<)7G)$eCa-5uny$+72uZi_|<_s>rKY@_TG3*3^~!)`mgpGIV#$(tnJJ?vn=x29_*g zzL}^)?F%zAjTaVM2%q>e5Ne4_K!s5>t4gkUJMHU+uOYbknVgiPrg0#2H-nK+Aes0RTXJM(GzYDDvPxN8$ zs(U=F^vjoteCZ!hxK$o{#J4{L)58h@gbM1ze zZHi4csXM#CU%BRz(FBhl0tCby`LA5_cdDTS$~taIVFun^(V^43bATKBL8uvhMt2u# z(NV6*h)Pa}dzVX1G8tR-?QmZ4&=-=qYe2m6ZZU#guT`kE(KsJHHipHdc&D9+?o5Ug-tG5UXkF}E>m7F`spnX{GddRilYs7pZDlvNnddsAr@?sHz0rpg zruKqN9`0j8{xRs$&M#Mh9oPByGsMK8u(Wyn70->FI^dgN>B4(|hFMDNN(Z;h@hf`bRl7H833lwaE}L`v@kvxcfK8RR>XimaVAQq|JMQr2`e zqDl*p1t@l|6K1_w%s+nKF?8mWe#3F*~rS&gHgY@mV89ZH;B^S~26e z+a+$OPQmEAp619b;5*~CX4#VvHxTxm`v=W%>AK0~mR-{4XU)?q($yE7^03iPANe}1 zYBAh~ux7;9J+B>LZr)=WmXHkikn!ATM1fa1Zqz)YbXv69yV$5lvYST|N%?^o`n)+R zF79D_GzWTEX-cmIJ)yj%0JU8b$=svhnbhdixA*gu^T<3Fq6)@(Q!mjvK%t#FSe}GH z{5A6GTFM##*Kz!a3}+m=(u50d6qqwP(t>-VmOIS8RNPm@aafg`qM*o8AjifxtMP8s+O?z_ z5Ancqptvu_V!yaA!9t=Cw{mi#LSi7BX&QzH0e7^hlxNTGyQDOq+Wsp(?e*dN{HWq6 zzSU_6E6m7(_LdS~&>nN?AM8|J%uT{Zx>?mGxCR3}SmrD6>}!y?uRt*Q^Y%Ss>6h!J_xftikuH@%G0b6D^#yz(fkz5S^`v7M??%O%PDj)ov9&N!w5P`8u+eeQ+*QX{BVYq^bf@5j`mkahW-Tv(vC0|u3dKI*SvE2boU@^eI40W$=*_h}O5 zCl-v(l2zbWTEEa|KgC9#wMxsHgFRWppxjz*oGa4$yo7Pqeh3+tiHrek)I%BZFYqGv zbstkaS@X7hCj?1^ncAZ$l52%^UmWVjOd;v(W*3jx6H`Yv)^-Y6&2PR4{m%SHYubvN z;8*-Is~_E=J=B{IqM17SGY}E6_>dBB3NTG@qpU)1$?H$W*U=;S>N||_y3)2)JF8aN z(pD?Dj!YF|X;4juz;ed1p`ZgZYE4|sv`x2Q8GQDI5r`>K;6o65K)1jyezkkC*(vc% z=`?lxFn`oS6!jnkL5z|VJ|=QNWQX(;XbH@EVlGU_qx^`HdJX0AY!z8YET8wDq)yS=!b}L6PcIvi*MzlRa>$DM$SJY@D~K2p zDOODIfFyc!t+No&t@6BM5MqHrGwm6C3Kb_rP7IS2FUEgBe23%`6>`TKQDKd)>r<>Y zH7iz#lNb~!T1?=8#163os#}Ps7$}c6S)2#fU|z+81Qpk5D0f_4j!^?B4kE9c9GEdl z4eU(i-@!~6nm_BxE_F4;ofIeA6yZ7l@&^2myYkq(q1ojXO0#5J8|nf)D~ zmYLND_p_x0(Z~kjJTg|4ls5^1zcdUVc)vpix4#G%xAwF?j4o3ONlFmoJ0SMf0#u$5 z9kE}%AuMU;=yCRXr$QZq`F{u@pglI}k>rT}Le=~~-~V*&5ViL0Yp%u^$zK|$xg3>K zHu?bn^j`fH{0X*eg(bqOGg8jlD+%z^Hf)|j--3lhU$oAdMKL#nvYbRLXRItAn~ z??+ot6HQbG`~EDw*>jKNHZguXopMa8Eb5*F?+}^TiDL zda=!g@4WKiW4Bql%GK*M-|YHpe(VFON;`10nQ)3QLCSLJnTGN~GjEqa&2F~2--urU zk8qI14{rCtlKli%BlBk>3YX=y<+&s4hii< zy3B>NON!N?L7|SSBrkl^n=u(l^P3;ro_5v+*43vYuk(f}==qP&&6W)oR)YH(RO{AQ z-~umLzmP>c@3kuz<_%ZaL6H9ZfAlxAkjH&OhX(38ZgFD31ZmJq$!~afCl2=IOVrNY0OzLw_lxEAC-d{J zX?nS>r)n5Fe0Z(b@W#%EbM~@oR?lmaozTWEh=OaXJ zFa6p489>=~7&~5mJ;pxg?Oj8(FhV#06b*2F4Oz&N$Wxb2bSMNE{LEq1N@)CTCn40A zFqfEbmo7UlC{58|1afrR2(g2*()3-kC{niP)pww4>Q@n5!LuF|p$i*tg%oJTFZ^3a zUq5NB^5b7gU0>cCy~d0EK)`E9j8fK%5V=muqk16?@)U}IHz12)<3aaI<_`-)BR~Sq ziI-9FCLeTnj*~A6RrpH{u%~mbc{6IuRz+W_o|Ew;mW04^prVx|(RNh{}F zlEb+ni?CE4vLHbFW-+zm4u_e`E7cPi0~0W4kTU4h^K9D%XM++PCDFgBi^7~;imJ1) zllC#}2)0%B%F&VtU0@N0?$`8FqVWRN&6sVSt8`!{Yc9=5KBD8-NCeLH(<|NrgVH=d z({?hhSi6=THyk?>Ju~!Cdk5P;@C^geDX4eKruMI5IGNC0ml>s3DU_Y03(0J5Z*_5< zlhh{jUG8pwuFn2kEq+Yq!l2MqQQDYmx9$hm43)KS_{)nR} zNyR10jd#`2W!-f)hIFga$s0T(E-&!V%&o3C6&=zDM{*(x=>Ot^)cg-&kX_Y0|Ucjk%9rvP?D?IYdVb%pF2sC|-x$5YD7Z1C(n5AlGrrbShX5!Q(I(r4#0 zadQra6jC`pF(V3c2ymXl%^=QWw)J|qW`8Qu7yu1C7!CK8%CwdPP)7fJ=QKxv`hKUV zW|#{ZYuT-_?n?V)>1N`wBA7C>t3<+mngh*leTm`ly#pSqYJMz*V^#XES*=k?+iI$D z4x*kCuH39vpL)ydV^cU1QEUg%x6izU=LkDfdqFANBsD3jQUKh7w zwk*Xxc-%#{z&3fCJ6Zljjd@;zyt&4}neSfZmNP1dIlssy=ud{yDrA^>ybZ+FC;>!j zm59W@(M1o+?@1R(`tj)6UTa-Kq4cNxG%cRkOMtd^v&DN!;Wt8g)8aRSyjAaLp^Dj~WS<{6v?OwPkK93wNEh?sZ zOS;NLamyjtq`^fixvc{QaIr%0u0wKDX2_XNkLGr3AxgZ$YJ73w3yTbuuYH|fH4Qm-e59F35)LHKvh zN=L|aHB(`MOlr6Sxc^f>Z#p-oT>#e?P>k^h+5M?KX-D7^u;k`s0A?Ze?>8Kl{7yO% zZ{V9ZEj`(ujt=0CEPm!7-~}Z>{l%3CF{-%*QP{gAmllQKIrI1^vyyRKuZM^LPe&)X zbvb{G|4GDQ2^%`B6ymvLp}Ws$X8TX(E5i_)DN^1+Mo`E^O%YUcdS7?}1k5xEg$WqDx)zM9lhUb^j2` zq7XUT>j@?7NbuhwfSyYSH0J9WemRAIg5+PFFs+~{@^p)iE&%y&(K21!;o3eaW_MHF z{4LsVe*AdmgyOz#Ma}CykN5|&8vco;mASguT(@TgQ_N#TNV~Sjol(%eoR`OC16M#3 zx;i;RH}AElguKmh@-hE`9s9BAzQi7^jJ-`<|vOoa?Bz7$+{>=D=6x9-C4jRF^vk`N^7<1qg8 z^E^7w4L6{fJCIrf_=^4MWhL;zP4P)T4l43w+lo-!w1$au+^iSsT%*dUFNMElIzni^ zi#MQmotiRln$hJ$|vHNA0J*kBmC-kHTo>_o^R|~+Vf~w)%_n{ zSut}EhUPyG)j3!6Ho0YNojkn0*Z2ed79Uq624F!zR7L*()hhB@FT(HezjiEZg=r%Y ze}5V0a(a)Um!wMnb`GR;nfb)W|_ViNNzD06f-B(^&v$;;-z{QMB&JUKQG*ENGju}iE zBPYQ}hLC;6I1y;~{L^6}Tgpj!l9+qa>uja%BGSL?dWZ^!f0?x!3y&cUu&*Sg&Hx_< zsVs#vGF;A}F&Dp7j+pCjXj8J)ky<|b_~P8-Lp5iDfkNgKy<7FyOxM>MPRlqG7BuxjD_fHhQ}5s8m(Mbqo7m8Jkl z!K4V0Rq{BPd%8N6>j1dPg8#%+W>r03FSo2fcN%oam9X;iTAH`mwOL4WzHT{+{q@k_ zl7TmS9(X@>B|lR&$_W)J#mr!|-5m7OgbQ;%h(MSH^2bdiuKMD2be+T=_FX9c(;m-l5GN<~*uCVnUt8CkpXf_wW7yvR0V@7@Aa@9N=% zmI11po-)j);PX5@qMx7V;{o0`EONP~1|2rm2&c}u#+5UswJw>NkOJMUAbpS0vx$iG z6`&TSOlq_0Ql+DuZ#>n5PDYgXUg%I*tz7Tq6rmaVDMEKj?J(x&AinPO%`rQ(G5dmL zi>b64IR8-GKh-vf zg6)4GkJM;^Hc#^>)JErM#L=0T;;h z)r8t=$b;?LrF^5bi+TbLb3`u=&a_k#51_}mzAc;RCO%j5nc{`GEg$l7>fSxk{o~$h zKA+?5L=2Q`$1~WFnu6x8I@GI639s4RCyTl-wOT)Xh>~k1ZdjH@aIB_UY2rETrUE!D z#%N0U|9um*7~=t!S}hz85smHjkIJC9%(G-^Y2zRZWZ0L_9lwursqcD-FH3kuqLv+Z zl!sgamR0L|4qB#vOcek(@X{k^GKff$<~6VksuH;pEsI)o0AD zwVK(thQDuFLik?GZt^hmfGA{P+zQ8SGtRwEPLKpYL=Of`Wh5Xs%>&cB2GYMoas^ef zl`(u|;Hz8No;~Cc9%mt|i74lf*yD*p%@re)r;#fpjX1~fl+Bt!qpk;=DLs4t*;y+3 zkxFXyP>RYMQDNe7cT!M<2pOGHxEn2t5RY0H6V9ZfS@A=_;TA@=+}DS|o19WcbVhMz zifWK#UqTOH=#`Add+|!dqxAfFIz!*bs#E2KXI-w#<$$p>AgI#Fe`nsOgIsad8v zy_U36mLFf@0w8^&5^Y!2Jyig+>?P@WT{Pnye2vpT&xZOz`G8QLBw*+i7h{Snoa9?l zG)3a9#{jNV#@j8T0p!}&7!G`kIpxuggGc~1z8UWCEaJcnr`jSv%HqCop2BL&BxAlh zLtK27@M~a!ZCCMXaPW0(KTdbM04|2V9(@tzsTN<8&lYGNatoKl~? zefE^KM0>t2sS@~!Ye9_S;$+QHVf^Qzt2=eLKJ;9%j3P|9;X9v1K!KAW$#|)ot1MWs zs98=CyW9XOeo6tCkwsG(J^$j6k2oabxx|va1*NgSId{H-Z5BG?CEUrNvx%&)U_B3q zsCO8?Ia5?{9RxZsMOehDd%`Jd$2w(jY|7eZ65BXd6qLf;DPBCn+X~hCphD0*8Q!G$ z+?j)L!|vsj^N{VdmOO3LdsqMea2X|yPN>ZXJ|+R4*4Ko%a11ilqiD8VWvY3J0N zgUW)*G?&@b;8T+!_?SeikSpHw$1|&LRh>nr&?2exuj1S!B%`LxC}D#n|v>E&qa=!1NL! z{UsuHz_(W0Wt(*&;Vp{-#tRl&`VEN2&CHJ}-k`sFWiON4-xd@EWE1Q^y%HB8P7bu} zW=07(^MWIDsLyBbWf4&~rxAc$^4E4}3#(I5yAG~L8e9HgLo(RhNMQQlVs`K1(!kxB zEO*YJsUCs80hs6`(z;x0i$|n+CsUb^NT}ryB-XGM)e%Y36#}Ia11ng+6N1eZPw5On zrJ7)qnNAX+V3@e=8)U!?m*Jm^?+VPjig{Txsx&R{w_Kd>5!q1BQd`=Q7|+s=sTfz?qGRtKzJ0Bge*gQ-g1Dti`6&np2=Gmjw=)ZHf1e|(ZIX!o zV{FPwi6gzin8M%Z8{#sg*ol5U`sX$z_M4l(ucf#PDJtS$Hvd@n1Npa&4t(4vcwBlV zSx_)^kpCTEQ}`z>{=0xU`da~vx1~bJxMXRB-`+t+t&6kaK|n0jK>p)hmGHOmqBQDn zlsu8f1LLKQQ>4YE`)|NZ?x$?Nx8dOYwxRmApZbq$Fiug1@OMl9`C~@>hXn|TNL+*r z{_hZ_GI+e~Z;1QR!Nl5;iSgI{zoA@rC!R#!v@Qh)0YUqh8|_$G(%+H(IY3eWWwIJ4 vB1`<+=AYe$@-LgPI3HP}-!@~9_&Q2&p|0Oj(7!`9#I?&(LP<*fD)|2ZiEszB