From bf2567bc318b5e2cc96141bf24d55dc7ceab7976 Mon Sep 17 00:00:00 2001 From: shug0131 Date: Thu, 14 Mar 2024 12:25:43 +0000 Subject: [PATCH] last check before cran v1 --- DESCRIPTION | 4 +-- README_files/figure-gfm/report_example-1.png | Bin 19453 -> 19449 bytes build_dashboard.R | 5 +++- tests/testthat/test_errors.R | 27 ++++++++++++++++++- 4 files changed, 32 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 444a30f..5a75ae3 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: eudract Type: Package Title: Creates Safety Results Summary in XML to Upload to EudraCT, or ClinicalTrials.gov -Date: 2023-07-14 -Version: 0.10.2 +Date: 2024-03-14 +Version: 1.0.0 Authors@R: c( person("Simon", "Bond", email="simon.bond7@nhs.net", role="cre"), person("Beatrice","Pantaleo", email="bp403@medschl.cam.ac.uk", role="aut")) diff --git a/README_files/figure-gfm/report_example-1.png b/README_files/figure-gfm/report_example-1.png index 14f3c222e223c008cdfe3b41ac471e45f911644c..53345cab7654aebe669f24c18bdd9f727798eddf 100644 GIT binary patch literal 19449 zcmc({cRbho|33cGqJ?&uNhu1Ey_2K}$=(f-nUTGU5=BW8l9iPe8QDq_%FZf#%ibgW zu9wdHbl&Hj&v*UvbGx0X*K<4`kNf?8-LLDqzdYq-&ura9wTVC=Y&|O_p+F$42_q0l z+R4`7|4ffaUBN##-jGtWBoN4ph<}lkn8jWt5cU(!N}N=*eLmD;r@2FanRM*%I!X!I zjS}Q*kDN|9S!mzDsJiRjIbTa74X^t2bej8LGpujs3>pq!F7K?auTOkWp>{gXOC_g0TOF2P){rdIWD0fjxNjba7@C0vVu-FoK+_9B?dGCuryWU_1KMKpMcNzUk$?!O@ z@6*+;$3F>6lw{&dCj0(wAd%JlGfgr|w^ymp*-psVLtJ#!cB)_h4lB{0UVTX6zdeiVhCOVWwsT_)wMwqC<)1!P^>z}Ujq9!b zwBh;lTWgi3p4`7*9(_LeS<>xv*-(+hFU7=n6JtAY;QhC6!2>L=bPF~&#VXa4@~k8lGChs|%zwMIh`Cc=V{yYNHtS(7V5F)_xUb<(awh zE5AM(Zq{|R&mz?_FlmkJq5eECx^GNxZuo}Gq&aRsMYeCO=UVjUOBBT=q=yAnc$_%j z6cb(--dam~mz?&Tw2G9?$ANyjpKZ%CnPFl3d!7!|#*8+mxP3g`-Pb4goX?l?ad7a_ z?Ve-|3UORqT#8wD*jPh9$PXlOZXtwSG*}6ux%}d!0M*!~OP5L>(wi9@zjRJaO#D(_ z?$G7UYkx&eJp4xaQ&xA%KpE?~u}eL>)nmOauR2!7Io@cuTqkCu>rl5IpH50jVm#v` zWIeQZ`iC#$8EvO&B_pFB-qgIC)~z{u^r)|tqLR{SvTgT^eSLj-cz7H|L^(KogG88_ zOTT{o`tIGOVy|5$CMNv+{3rA)UP?yA#1t&ed@C!@wwt_WWyQsC@W_$as3^UkbK_pS z(?e`F-lice@Vg6Nw3?-Hw6&efcUlw|7bj!zAgA55aU(MuTkGpfMbkeTJhtqcs1O_- z`krOkQ|7-oGklbdjqT{s9EaJFXB<~r9Y*tNYHGg5tMv8ulJ7mPyD&BIM!%Bh`0@VF z+iPoUNw-p2b-cf`c@LXB>#!g%2gij#=>xusDk?U0eeFJb8Ya%lm<+{)FmGvo!_H>X z_NlZYZ)Lmb`zRB<;KD-l;=#CAuO6R^QrFPz!%Kz;J7nbMJ|7Ub?{0tRW@>7R^%^>R z*m6Wz{(8sGHUW{kq{B|Br*7Vyb|ZatG)DT^v11#^X&OsCZ}PUEI(4ccN$Xo(-OHF5 zo58xc(fq}Vnwr#vgwJJVud=g)iaLax7M@VP?;1BWG)&UU;c@;s7ah$c{%Lt>k@3I* z8d}4XQhw+;)M$uaqP7I%(Jw+-)Gj$D+b|ItAQH2nXyZxq}`$i*L~|v)X3!O zUO#L#MI&_R*fHa_d?!*0x-I17OzuNXZ~7*B${Uh(L|v90#l#5Q=k@gTtgNQ;9A;$^ zHjf`$4AdN=rlua85+XiRUtQcqiGhL_8kwdy^Ic~`Y^D#jOPi-Tbj%AqA6u)tDMKVA zqLzey`*w?=#uOyYicrx|N`;FTi@L@?fBuYpdHncs>{{B=($f2T*puSpcaW{qWXlW> zXV|}A7n`f3q?DeXUR_;1Jv|*A9X&rk&&|z^1;kPP`dY$MBEpgI(y7lXk87PM;q^n~ zg{xadWmFnQ`$rh;#qWiLgk)xBDzfxU&bvRlckfN*~;we!t5i zOGHFOJbbK#-sPowopq~{;?tu#vJb6BH#*7?2v!@;l<)b33RE*Q{7vl!d22~Y-xuCC z$I-mmXKd~vm#G4w%6y(%{kW4r6s?8`)pvl;$Ogo#a|YM zhyuDdZQhK0jXKnS%b^-K)Vy|$>3{jAnwpwCCe0uI^QHugl$4Y!B|fXmyn02Pgg{~q z{pSYtbay{_`t*09zIE#svecjGVt+tj;B_OT@;^7)&fcC=YfaS#kA5N;x;O6%{6ceF z*A;j4^{u|Qjgg#IpsxA}VrR!;*}7{cSW~B+lO%FvS=PhNIORVE2Y0h;=jy(@9U~XY zskM#4JuM>xS0uP9C#t>KAooCTYY3Tb8A@wpM1;DAhFM#Fh@amH%U+pR!otE!!zVZF7`NbI7^puqG>1p8`?S-f%ceheMefm`L{G*_t!NEa8Gc)>q`U2!y@n{Z-)+5eJA!pJPMb4pyith`)UNGLXjdFP%zW{s~q zJ_nva0?Nq95VRS28I62pWn;54-xs>{^QRBJs4SUp>D4nnG#kmt`dg)eRIJS;2?P_C zBS-Fed0j?4dC0EIMFNV8i_6NIZ_sgBa#@*m!FsSi*K2%z>0-3ZKE506bK_lmj;ZPz z81P;B_yB2bn>Z&Yr}(K;E#JRy*|J4BNz-nu{iNa3lWrUCxVzurqj7OrIV|^rQv7*H zNO@V=x-}=AoP<4!E zqt>9pdGgtID)fOd-MM*T-8k(DfsKV4)jvl3@rH$(dKjopUtgKL^*nL#)EScJ0 z>XZ@<|Le@mm<_1G?&2LyZ}jC}2<_Xuw=qxU%y7PCs-<4-VVh)xDr=ZX!r0kjDuHcd zhG(M`4BHX&T0y>*eHU{k+#fB@j!w=y8a^xPh?U9GuY6G+z^+r^-17eY0TGe>q$D51 zhT6r^TU!T@EFoZKMq0jktAr=?`0X{+EezlbKw`<0K1^Pnsc&c)6dI~?@nUUbW8>GW zA%Zrh>gvtI-!czvFa79E-S;K9q527mg%Dlk=g$c!`^?N|kL}J3y;kv@AJqn6E>hBa zaH4#!?aip9<@;EY(=}@e{bchVU+MQ)Tn^yS+FW(&%-YuS@*gcWZPPO|)>c+DC$7l^ z^wM%%mT+{;O-@es^YgoP>)qhjc)=h};Pk4hDkL5uAt5FvCfrz5R7WqUI`YhqA3tms z=N!*G8YhI^XDT=+U>FF8% z=Ft+bD419M{5VUOhKOfYLARWh|E9v7XU?1%oKPBm>o9Aop%Hv{BMS?Q$kJ5pOv86q zrs+yWDiQt{@1z)%viU&x-`EXjP2Z|pFXK(7&qYrCw3Hx%gH6XeN7Z; z_rJM3x-RTZT5htCLDl}^U2hEogM&#)Nv}}kPkwwFYe)FmwlS-FFk$KPLXuhjyyRy3 z0j&jnDw5>VpYzB%p~-esYyst69%C+i>}}dgV{G2XjyGMso-4xO<%YVOG)XNoUdE|h+VUOb7{1k@?x!{quJzmo|n#mx)z{8Add-EO$fIY zTYG$be9`;&fI-Nmtp4W$SpC{8P8QYbkueMm44|)wPe`EQHmqA5Eszs%?tb9qv^cYC z&z=B(e_*jh&8)`@qGFS&*(QYn!Q)@~P$J1gHqSkHu*FyE;Lc51nx=}1Pc9dztzNGd zIURX8KYuy<<`3ujo;{utHPwvziet99K|w)A4N2a6IU?fXNo z7C2;bVj{v>Nr*>s^-8Ba$fGtO2g=CE7#bM~+IK(LL{A_3`t@s^dnC0((oYk#a%PAZ z(T)G`;RAwKHi*k}K-_hMKqjdf&Mq(@+Kr8a~8`^aJjvD6W<@NhD zKYjW%HDyJ-Q~Loy0M#7JK5{_DUrfoH*ROSngbF!;-G4Dh`#tUtHLhFTFPqU;r=N2i z|HY=Pf-d6T{TIIeMM{YQp6k^{pZ|^8_E1v`S`VobpJA%a)$ICp4o=Qj$;rSiG3v?* zswc_pKrARHs)I->HbA-Fa?jga@7H6+Z{KuBBg6PoHh4Q%x|4jg$~(^BY@67Lewm2#&iPJa{nn zK?tW_S%TV|sp;v4L=BtnPut=Y%cOk6NDd1I_=Ny!5{_-#yZ71S$M1nUA1*ui()M%| zd9dthVx|_bI>N1c?b)44fYLoxFJYC*vqdgr;5mZF@2 zG6#IExRkR8BYh-6160&+8s6KhZA|1aOhSZY7mKGXab{`A&lugWZQ2@>n0WqxZ@;l! zNSfok1wB2zsA$0ps~YFYp&#*g*c9T@JmPPc_Y4l)w64ru*&w6^0^zQiKi^HENUN`B z^frqQ-SJvT2eLe_C0@`qG-PaG5Sw1ylIM_#>l)qvkvlOlQLr>@hTJN%r-qS~oaU|L z`~(1nL!I;~zjJOKvu$j2T(8eKrM@36SZOV)JR%a>HXpyApT!|1O#Z@!3o0so9Ub9z zoN5n-npHbgQ--47xafeqVPs?s zVU-i)dTz>_WxHPIW_3eDL$9DjCR?hJiHU#dRb)8D77>Pt;k6LE?Zf%Fz~j z5zT|!weswh^v;P(85$xk;`8#Hu3o)*(6XKE9eJ7F{NT)(O|bDo_nzhBT8v_%cT6s3eo8~7(Eu1h=|SHK#*muF z_)+Oq;95{#%Og3X2e;!15$}&nuPR2Y{Lone|0Ny3=F}HrqZoaRjV&W3Wgcx5dMh*` zfc(sUrD)AS_t|uQ*qEY91K787r^FX-;6$IN`DhZ(`Z00y@a*2TYacZ=FBjJlLn&$L z&17V_sY2Y7%02*v>vlIu#B|1iU6&SqB+IB&U)0vt{*^@Py*xdudppzeNJoc;G?kT^ zD9HwY{NSgl09J^zK6*4BrTj*gW{>Cj^XJ`e-{zz7DJXDRWIpjPZONLgypL3Jtmq!9 zT)b!r#%dd*Bo{Y#;In5(qC@}Lg?#m2ODIfmbtTx?*bwvJ@f-J?@gW}{9~3Mv>UZ14 zhlYp0$?;osOM%}Kzh^OaG#VYDm6g@YyWlX95Z`jHEs3F(tKhQ&7By=U9;OA+( z%bPcE4wtu`8ESg);6Y(wAziKk!BwOkZ29c?I8tYrN5)!bG}7tW84<`4~QRfg5l@@qpy^}q;5TcMRZhDOTLrF0bgUZ#;v(_iaB?w zKgDa=TUbnV7T-tPy>1OjK)H#5fqc@Xzjh@NdRtLc3~ptt75Ue;!fp*)z>lsj#+{pV z8o#2y@9gSwa&iJ*B{q!7+UL`a-rmY>j$+r!PD@X}IXBjUPG{5Bt-CxW%D5lU39IYq z(C3U2s^~Ql4d&T976dX{O4*p12f+QY=iYJ*u(h>yTv?jk!6XxwB1g~-L`p~QDCBt2!#GgI$?V*v`1I2T#4RH z(xRlTJ<{KgH2(+JM11N$^ec?Qb$u1I(5#YyLe;iN ziY!qnr-%~GWd3|FHPGW-C+ypHPxp`H+kWGcEJQ;~j?HiU_!n%J2hK>$^nb%Sej&cn zD$n-({(WgjN1@;E{C^C|G!+ySPM#zoev&AB?ccL!kIhv7h5s8!W_7e3$=w^_?d|>L z%NHGo;dJmn!wrvCg`BhkO#o#nV4djf<$WSg{Pj=@$ zt44-_T{z@40!8qp9U+@-z2f2qJm{VI9A<{ltlp)xnCLzmF5lnXon}xS@$~6#!=M>& z#CLdjxOjLKIL3yC%vZ0@WmWDwac!tIFPO^b{(X&fL;q%3)7D&Mjq_y8$BymvlmK^! zlMR#rmOxz-o4o~;PvPzLn~B&oJd#8%klUypJrT;$e>a30l4KXYNs;{>#XWIAn&*R_ z#O;Wrqvf74W{Ov4(2 zR&*_i%U~TdsA0N?d$w;+g#acl1&RRFt|S>q!s~5PWLSZi4dC`(2s`lDj_LN0$3;#- zo@vf^%DF4MlaGd+mHj1nB>$&?o6%AFuG$f~f_EN_ilW4TZ9(Ep?CI$&C~Xak^ym)` z3L-)pFt)5(*>#nb=+m8`iI|y~EcHh|%rN=(YkT-Xf+{ONRb*+&FbNI~4b5L(`ANEi zk`jC;vMl?~P25)E$uk437Z?eIHzF%PCvjYks}jiTYNh&S+FM#$rl*KMA0O-kmvjYE zpNR>C)B5)IcGMWCl;(&`cSN?=_`+llaxfaQB%h+-8oR_u<;C&ABWaj6EuDmFN7D1C`1h`!xiGDAcxX= zb1!$Y(|X(ITbPV0uB*EERK+aK%yEeS-0%k!G<*AI!QFFH0~dSl>#KFu%89l-j!2kB z=&pJJ-kLMkDjg4#Hsi5gEZ131HT=o~M7One3k{$A-GYn0sc7x76+rbb4!&7En{v9bMK4@IwKZ(`!& zN;g}ytr8pF^ZsoxubHxn%0(4x8~4h-*;-d3snPk^Hj#sii$=uJ_RN(-w3V?14Bnd?HGqR+iTa5H(uliw4lM+*O zRK2~u>KZhy(s^E`D|Z0R)Ya8L;+&9Sp*c7>iaaP(zE2DPl{j~QR96ROR>i?#5m5Hy zM@ez1OP4y{ns-IZh8SMC()HtqLwn&Z4iso=9vSmfAQAq~axMN%oIcXxlfM*eY7p8Z zWm9!Nb-+(>vdAj1>i+ZR&yPWKNm^rY;EK=x1a_}-HuaPTAcsRz6ZDi&(9|@(a%J+H zSwVV6#$9*!1kEf3j)uS!`c%}^I`#umppYPj{+z0nqobqa3^axwsL3`9!SQkm9~0BZ zwl*Cmzqn!j*^w4>D~86#$5>c6d3a0>3_g{Y2a7mmH(%J2#759fdG>5Cu{N^medzA-5QM67}^H{ zvOxFUnp3BW5X0YdY#vexIxS4$-{ohcR(b+-fbpB1ZH2VYpZ}6>)FAm_Z*^VW)ytP7 zV$T&F0ff5dJ@*4(rqJK!lT#{dw1@puyd*_JlleTISC*a70S1cfnvG&-V>2~0 z>>Rf>T#QRdc;Mrc4+6t;$6*v4T3ezCSSpe!71B zdZt<1Q>laKpr7-aY3mDAmX!%0&uM6ULz_b+ZewC%GD5q%yNmDdY54ke<2u06Z&g)c ze_XZn^XFBy69w+w)k4cGO}xoq7JCqgMlk%X=N#t&mZT_4RG~Drg6( zY}1#H{S&l$(Q)C$2~~Ot*?WWuV)Q_s--bs!*9a!4rd(cHnC5DoJ*`qfbdnIfSFuH3 zXJ_j5S|%d4Sd~iuVxmc~5268+_@OV@e8O84)C;$C3zwBB2`+l$S>Tb!RrB_#9B{NlsQtNk+ zuB&VO54TY_+ScIU;QzcEfgcn(NS)ui^)1UXCO&=@qNk;ivip_dDFJ3SY^CZR8F}&K zi3Aa)p~_y?zgAgUIokasJe5Fh_6T}L(Q&P5%j8qWiR@UKn$r_p9 zuCD+ln%}$$JJ4ndip)1}-lU{dSJZq(e-F-r$^93=j5Pt?>yJ!JA%#li_vq1UmlbDp zzH8UIF<*=Z+13kM%bn6w0uOZp{sUhrD;zz;g}-HN|5n+*$r0R4hYk@%dOkh`Kty69 zD<`J~Ogwe5h(}P>YJa0Kq~zu0rKQWEGvb$krimF*OMuD*r`tShmchrPIkdQOLq08c zw$%X`kkMT;-_fq-iRb^BQ+(3Ls;0U(3J!h zIeDwrd^}!W?kfV}*^?(v6y@a$i7Rii&JhRs5yPoEA5L!Wt(!J=-r$2UEEg(r$Q>LG z$m#5?ENGD^A;iR8R;z#Y>OF}A;qsq)ETCG$&qT%m;ql?UdpE4CAk+ZLr@VO+{11+z zecTp}JPHjpR6gvQr{`IHmeE$tVe?eW99~9(D^GE8F|Dxu6JlI9^O26Wx66Z;_^zO& zfAVd_iQP8CvZmyoGJq*^}SDe?Ku{ zak_k@B?owNBZIyDtMwqWyu3CU&Oy>~6w$Fu@b*40CH09Y!$3z04we?41}=zx^~x(~ z|1UR>JLTXJCrQZ-yT;J*!g+)8Drnv*aqe6hI4gmRcC)>MQssv^;Fg~qlaSw zJIBFcj+$o}L-S8j*S}=by4%Q+8%Rk7`S^rv$6T|!YVh13>p8C1ybREBwgYZIdGe(D zqhBiT#hg+1M_42H1<2_|9Pyaw77zH|EALsDn}fIIblbLHuVO(#EsJWB3dpf$)6O7Ph1&gKXGllxYT%}T5%@NmJHojFY{yL;?AyW!Wlfl6xApC@2JFa z(YM`)A105)qd(_WWaUwssL}1TLJ|*6#QZybPk`!=xn#C3pmz4=kdQ>%4zDv6RvP*l zo3PD%7HbF(icAIWr&v=scYXARt*Wf-+`;Y4rf!iFGC=^RK$QxSHMO;E&Wk1yQ=j(L zymK?rmf~@;SPbp$a@ZxRD9uhJ4Czu*QzPhht~pj%;R+B%G)&@?IEcn3CN?AA&(;b1 zNe<`Y&aqCf&u4C(vv|`Pb9f1e;sxY82*kwN^ZGaXN1#Tsa+1_3KG1qs7not z^8I`F!i}!{#X|AcW>mX)sE$#8^`@@H@C+%U`6uRH>kW<)67D$5@Qr{P zB;{jK>M{6OgoQ&^4QhV0gx8x!t~Trd zMUE!sm!vV<-ySm5Xh#m=H2YTe!F`P+E8W0(fAwzvl_pvR2T3S7si~`mxnFiK&J!p8 z9US}zUHry^zoftW-rh<=%G3)2t1t!f;$OT|e=(9jDlaW%W@Y`2^k7%IsGzVaDc&D~ z#>RHyL~VWj(?9T?u0L{sB~c&kk6*=v;mI}cluBR_l4-ym5V(r?|8#`Aeh=a{8vCGH zze=h7Rjai8McVxX=(ygw5gGgf9gdL8GLd{cey#I^CtN1*(5@PN>YFuA5EC4ekQE zeO4BK?VZ>&CfwO}!SA82q2$1ZJu`FLdZ@8_-g~`D^{gTYYIXIX-s|8)t=bDo06*dG zI4!6&Ess(R8`gt;Ctw!)XvG==e`yq|6ME#Ey|p@f0M9y6&)}bY@j|u2$pxnsUKAu%Gjp6Y>KpM=kQ-=odmJn+EiEikA^J!iyqvw8 z8<T|L{N`T#sAR;;gJhw-5mT1gwuZb@W=@VA%XJu?>is5{EY0q z4s!48`k$L)>b9YFBf=-f#{NlXi9B(!Rs+u4c&`z1h!^O*sKMCn*(pD(iXy6Gz1Zq_w zJOW7F1L^`%s0tYw^~J@fNmtTU;v*tDVccSrd{Fgehu1LViD1ea71^er%ZsD-_V)0B z%j}7eL=OvMeBGK`yDJ*3m7wXGo2O)D+3jKLs)+!K5_MXr`|{;HshlyuU~7&|Wqo~p zS(z7}Z1b;441rk}N<82c&6@m7c(dV0Ofy@VEm&dQxe4C$?R)k#)YnHZy%(st@D9C6 z-_J9^WHXzMMuFT=4c$m7UVs&a;aKtGU^`X4=4Xxz_zNz?HhN){66M}KZ z&*c==#q_u%tgPH8PLyL90CE$g9QXmBl>B;Bnc4a=AYeEfacIH3@PZ`3%N%+5b%Lrs zmoNRww`QUm3xMz)R(062mEx641(uIiZ1zQd90%dUatbh`e)6v zbZ(SmQ=7@jquD~Q7lhD=Iy(ZO*NwI2Ilw@dI6YWbB|ip_zOk|K-ndtca0QsjOsKPZmc=3NpVJLGL|b#&mGs=Z-0ZT$jXKWrda%$dUa_>C z#0FfY{khBjN{~h7_cr@^P3Ps?vP%$ph#k(1)TE4?0 zLi2-oKh|Fz2^(otbo7Sx>zV&tHXtM$j7}i^2WZ=02iU3GbF^;xzn@VHP<$T7Zf*=w z42UnsFRku1%3{4L@VYe~s-Co2SDR65`;AFnv96V9ug z-+MbhevWRrom2VO-#hjCGp-8q6zhCg_PH&1A2g@% z21nmlIE7<%_JKA@;Wb!?${JpE_w)!mEr4(NT2YY{7AAJU_cL|`&Dj>^SaFkgV5*Q2 zu#DS1uVNsDm?8EhJbD}yBw*5zkf%%Y)5kf(9Ej&_R%Yy-`gjd8RtmeAB5#rvSCY&Jd(_jJ}SI{q21wrnRP^R zvI|a0pv=?YU_tvS0~M79w7{^t_HI)Adf}bR%3>Q(;PBAUfddC#2-&^Yyk&v@#&^Oc z7U7_nQ<2oMXLo{;kt&m4qE=3QX{l#P7luFT>+0maWfCu?->=n_v9_KmXD=`|GNRtT z9h~6NA9Kl7)JJtry=y)e=|DNA6_xt2xnOp$yT;d5*tAN4{S`g^i!W(aY@FJ>apMJ{ z@9J`LX3#6q;$ekqE%spu#&G4B!kDaP`pUxH(vtyZVC$1y#`!hXR&;^`uMCj=@K$2pYnC1@#8RGIRy_9s;AHdO#m+ z-@bk4js%TN*?E3lzr%7wF9k}5L!Nr+usNOf6RhW<1II*8tJjD-9A_3LrT$)lAk<`6c;r4DDF zBQ`;_tLP--n^5`CfAjaJg;R zy3pZ4AFG43AaeNwnc>?|3b1Es;YB%j@efA+skhDv0J9c zYJFN8Hx)qVLs7Z}0{+@H9xUA8r>qG+t1{rkn{+b6+DpmkC`=G<}M(~7BEnMXfS z)avQszR@nGuir;ZJ1mx3*;b`MiI6gsu45Iw?%%f)dXbkW%suF@qD`FEC@*Jp$5co5 z+qYaiJoR6{GWQPuRE`rWM-fWDT)YWo`ZVLi5)hVs7;X6`*QUdxe|O~_fk&a$jp&DX z=SI4I&8>$IAIdOcurpA^$zE2r0*SQEaq_&4%`C);@~fQUpJ13plY%h@pbWGj00$u; zNFP7GY-E&U+{C$c5{&7$Z{J2ixuA$_rJz6)V88q`E1_#C81&z0rOWaO?qj}E5s{Io zm!M?2y1FnZU~0;yWawbo`*|K(qk)cAp*@Sk7;xtNL^=DH&!2&G4*zKPPRu2R!XX77 z6B~}WjJp^EO#O85%s9E3sVS2?>?SvHYSFjUEke0DAI!tb#1tKQI(BDV?p79oT!-1D z@Ni-ovt2(%`ZUGM2Xl( zMdd@yD=R1Wkg{`RL{?ZQOj_em4 z0Rj5Dx?yuyK^_t3JgkS{p>lt;m6}I>7#3Y1iMaUqNaq$vI!JKbpW|Wse>RH{bbkcW zMyuYu(811bxHV5B>-4-QGb&)NMUPi=Lpq##r|<8+X&EIZIs+y>&UhP?D@iTYvvuH~Y2g2NEAY4h%d?28pQdxc9ljS&uLKJo>{`j%Z{HU0 z+?SU(cH0C+FzEQD_puiu(YR+CH+8}aY1=*jBe{Uhuhg_HKQUu_PvYms#yRkK@Ey)h zPs0_Vp6{529umnnFK-Fn@q*$1Qvv`O|$4WMu$Xyj-B$9cnsIdwrwZ1(}s^+#DaYM_z_Jqet^0f zk!E0eM=(k|H4VL~6oJzpt*ja>Tu3ox4_Gvs(0%MGT|%Noxz{j1r+o=JG0;|-jxl3M zBMWmy8>dqz2Jroe-wRMtp%@2jT=oW2WOLv_kakQ~E-x1KJ`lF8dT}9AQW$0x%x%>r zg8~o5t{|EenJh6&1r)ohEqDd>10y>PrFMcvFxle@!{1FM%_{w zYzTE;DE;{H8oDniE_ef#?>?PCH&9n;xecFKh_ZiYVMcO7XW#PHJaXa-D~vWsl>81e z#_8;dqQ(_uSP^tE%*T(9dGof;VVLa1i4zzAgOw*NRd|OumWdbk<@K9)6J;1Yw^4mU zpukPT!+lB^x>SMUucMP(BVyk9Va8?*6lxRR5E7~k8I^eFA(WELjErTd>X;W2#SBm=A{O&eEFbIgi_Xi){9IaEnTipe zpPQ2>srNQHbE~K$K|S3N(h!hLBeY>O588G;yLvVvMisTSUp#vj%NaSLd<{4Y{a1)vM&`?3k#=XTp^>gj&Q7Q*ewT_kKUuR@!=h<_At*NSlvwa5H$ux0$e?zkig*KBPhWAHM(|vD_eN@i( zf|GRGQKSuG0w3QTLWLTh>6;9BowP}BnS2KAR+g9CDSM8d6>PSC!ffVNM!VcazjDLe zd>_U$#rCUaSwyKGQ=X@Dbaea~cG7L9j%7@&F(^_!lv)mMZkU4<^R1UqUhz^8E3B=p zF$oEMsw^b;M!X_%nHw8b!Sun&0o+OiGG5ZNdMggTTB1$Q`BPUMyC}m#ADxS0&zn+! z>Gb7UKLODOtSv~>IQFKsuGd<=m8C@kuaVjIKO{0zSepxi0wE0k=ip7kp-z0ONl)PV zF{m8Py`*pXksp8T03#zPXD%UQ$zt@UC@-oj<^-|GBvU>0S{EMuKfcl7A74)KfAz&2 z{}12g@&D6D!gSiN_7P`g4R)=e3o8)&xOVC&7PCQJ#Ph;Wt7KBNhtHn%cXV*T0}7l5 z7ctuxwpEQ;@PwYT^D@FSM~QK3HQXBb8UaGr3Q%+ZC66)-OUu&-wt3SUYR3z!`4ODR z*3d1m`^%4NeS3-E8?h{6$SiEt!EJSd_?%{ z0xC=2$^{)Axii<@DQlXWS$1whITTm%kZ4g~-|s;=RwWnbJ(+aP5r9uz{5@nsY&~{3 zS|%{{+Ls`F@dTwf2G!6MAsNH5kJ0~)4EUmg1HMPlw7q+Ga@AGuPq}^PPRz=2Vixh| z&!0$2s5c9Xi}4{LY+Q7)Z7EkgLPO~px?#J9r6$Ls=Nzmk7 zs4&QjC;`DdCI^VPf@1ISc3?mEM;Lv>7KXYkXGJ#UgsW8Mu&bxVBB!E3CgwC)^?vm9 zoc@PplZ*l72}1z@7DQvsxhTx{MP5_M)$S1?I<%2NknkW-v**usVloo9ji?tpvt*ze z52+cG1bkp|fT7U;0nIv?nGpJ^)(MHtg0|YakMpII1Go|_B!CrWQ6cA3&G75vWs z(-ZpT(mczP{zvv%6)+;`h$Ix`2UzxLZEgMp^7_ z+U|RKp+AhSf&En#uY-R5S#a=0*8j{ULZ_sMxPX+4uHnMstUG0~^u=6lJt8h81eAjb zU^@5XRiral@>jeiiYZiGj5!=W9FtUF>YBgFVXTTCf}SO>WO`puj}jCHZS5q3raT85 z3k%NB%H-JCF!hnPg37+hxJ%?7k>R|;!t*nY)k9hl{4E1z%OJ8X`JO}7KdOBDa@fn4 z-6+Pu$QbQ_g(B7(sC;p?|WbgHU47o@}DfB#L`%)1G z?1|09Oppj%VDl3_ie0GKIAbpr29Wy^ov6EDtnvL6Hn=a?sD~m82AHgB(a;Q72(Kr8 z9}%$ri4*alD9)YRe!sXygG)@u-PObS-0%zg0P8kpU;)^WG4_Yx#n+htG(5)~(?2H> zTB?UIUS3ji=EzPKUTfzWAFFGmdGUhdh_2{!aFHw*@6mxvLr$(zbZI~igfQaIol-}q z4gJ@aeVp9@Y0zs~86@^og1_hH<7<5Pt^>t;e0*HXiT_E(Y@}*DIt~z&a1VDN%c5P2 zi^CjHi-v$$XwfhAt?=Mr>b$9hU|PVFCsyF=(Ma4H5GN4!G@UH)Fn}fMJq8r3qLC+) zk}8Ud+=#zhl`$k&6~_PFmq`7e7M>*+hnxF}9<}42+7{?^&K|TS?A(U=t_+dj{m>^`iPJw!{{C1=qlWcaQ3vUM3T7f?f(y!gWQk+ literal 19453 zcmdt~c{tVk8$Ay1N>MVDMq?tRqGZY(6-fw1Bo#8x^QHT2m}JfS(#Hx z1j70#0%2Vj*?RnDdPGJWKQ^1oT(%+*C`*X{tt&H2)FBY|5zd}EsbU}YtKH!Wjou3B z7&{5|Df!K(C^vANjz0O$F>0FZ(&;p%AI2u2 z{N#oG*BA6D9E?%=UwtkrrtMq*eEs^(6{G$YH(xWK@?)mCTf11wRC2slWU^X{O)DaV z{WyJy+!SROoh@bu}^a?+yz51Wio;*ai| zg1NO)l9H|q`9xS+SbR&nzTwM-w8o0Z>{&U&to8&#z zUe`XQT&I6$+uG&*{kk*@o%h;hXj80xb8>RBHQR*l%LRhy(F%;=kBrx^O-xKe{MPs1 zA`YMB)vH(Kya<`a2OV*LyCiRu5-)u1s~TB`7j13%iC-mNyTr)5TN|2Ewe)Zmq-@{T z5!|m_xUlUDGr{EOUtjv~BTSBuf6I3`{^t=)E1w*!si`3j^}EA3U%)w8*&9M6Q50wX zcRu&2Ub-~X|CuE|hTyobSgP}5MRnhgpT`+C63*2L-)AgidwsM*-br1|kHur_oF&Vb zTWMb3d+t0A`m?%|{yIt$xf!D9?Aj>mzd? zc{iR&Zp~Yqmz(QHe`2EiAxlH57bSz^d~fipSFbRb+|*<*U%ouG|H8$KJDE=%-X$$9 z-P+tdHox@aht3OESy`Xt9+fcYEi) zPB}q7{Df8fty?GcW}b$GoY1d}vg)e|7q;``H0XTm?d@H8X}fo9ZfR>;6@nWC~=hv1Iq12R=k*R?%y}iA1 zr1dO|v!ixaR&*yUbrfhrY(}X9x64;l$4Cu3*0Tw#sH(1xdl~jwdwY78Vm%69zHCS1 zY;Qj|_%%87*|VvsDfuwL@pik;%j)Vufq|DVU%sfSY9$!Pt`I>jX)kj1{Q2s@L#iKr z>6#iEPLX}fvoljsc@h)D!pwT)NOgI6e|L#j`~7H_p5Y1|o^-Xgf|*9SX>YqPz zS|`ommnI|fhj$I#ylrM;@+vV=-^fT?D1Z^i8U0c5m~`u&y5U`7i7Cn&uF~~w!~BeB05w~Ehk7wBkfv+TOBntC-nBxIng>s_y9cvu)2 zv#YD?wr$(GyStAZIdXs35%mJc>E*@QvIl#m_`dh_NRd@kRVnkf#!Y1{>qQyr!Ej%A@=~InQ0Rl;Pz?`sLPC`S;TMPR;L0 z8Nvcq-KptA1Xzu2|n(sJ0hRL^3-vwj;0;?-{uJ|0v%t2-MLFY zkK{B>nio^K9~4}$_K|0wOG`^*k@iE_v_~NH2zd64meF7D=FLmW%8wsCk__*cIe%XB zt@(9L&2Wi*U6wf%6ci^Xomr@2k{Q0Y1JXhY!C@N-{7uZYywlb5~TB zb$c((zG1qAp*ZI84TQz=c=?905^L*azmbUN>>kbEzRl0g$;2s%MJkYa`}lBjaF|SYNk^1sUkS;`$$Na{BxG zKYfz>9ink1^o;x^Y)^?-Z;6Pa{jYKTkECsR>Cz>m#+Sr|ww6ljt~IA!zj^bfob+d9 z#30G&fB_D*s;a7Up?N*!#7&2T5;FhgCjOq2){=7f)hXlKXKjh;_|m1DrlzLEVcjRO z0jb#iV&U?P#siJq>WYfZ-wK?vjlaFOCVPS0=6+FDRyLsPqo7rKQ*iYbmS%V=BQVEF3yO?asgFFJ$oFFd^sdTjS=mTf}jGs)OumiMiMQ z_+ahc*DkrVtn4^(od0EtxVcj^GoSo9MZ4+g!-9f7{)sShe*H4m(9rmE2Eu}acM}t` zxz8Hnc&adl0KQ?<)}zQHns?_rOh$+}yth8(L0#X{QfW;_AgE^6nlCLaj+kd` z{edqD%Do{WA!Y^BL6+6uzkg5HE|ZTC`S$VS$IebSWMX7aMt)^ZjpDj7>{3M_j_F-MV$_^XJbRZ%pG1xvso5 zNAhbK0FXUHFKFJiFg-+^le%b<&bGECB!GdTA>k7zMBhvxOf{xxYGB2wt1p!9)(R7K zvMsqwVbqjzz@shK<`6S;cU`oUuC6YkiwZL{tAKz2qDy{$+m|no9iK`5&X)4wLKiPy z)HO27!@hiR)7CaSFK@9{e3hP>+I*`2!dm{f?pMTX_9`vAK#>#OdV;?4g$ozt*~x~G7S)B zSv+)fbv?bj@^W(a?%8u#tI&CMWx0Xv&L#>#mmYIL42M6HIGcx{uyAl-;AWEB3k!~v zUNLWZuj%S$>3`nO6)fzsFqNM#lCI`F(sn{vSooGioskPBU4lJ)?itYA!_ZI-X(L^p z%Zrkw;_I$(HMO)nQ;(A6JamYGfg!0kTFMKfrc|X;shV<@>~evl&CQ$fckXNmuDTd@ zBJItagk6UZANG*!#{A<#80qQT3RI;jI#1-xXC%?&HLWMO?^0yCG#7h=B3x$7@NArt zVfWAKP|cQr+CF6|2g!1zwRvZ;tWVwMDuyF1Swl!p$c9;IX)!2vK1c zmY$j6*6rRp%L~(1KR*p5-aLPv!oTeJ@#D!!NeD38?w1Y^eR{@sh>tHTE9+}XNlX=Y zk6UUXUA0ftt{owa1PSSK@s}&Sku*gf18VM!LeIJi3JN+M`WTp)n53o4KF3Jg8MJO= zIm61vwy?N}g@ze=c_k+!<{9Sv?%lfxJP#i}M1C0<81VG;hlWs&rM5o*8^4xe&UT$94Al zyIZ<)THMsSWt~+KFxc7Ik2936*0mdr-7$)vkn37`J_SS;oEA9RHx<0k+NH*`Ch^ICU=Q@chD1Dxb4j|G9lLO!~#nWwKg8eNJYyUi^#9*t1W- zj(`ErhRk!WF#0DbCC=CIH|%qL7fg3iV1s+#UJ?7WpIhSNa;r$W)f zoU={K7ZvAlT@FcPU?A{`ha_`wm9Mw=g$JR0BAR!pd29w748Fu8D5hS1{WDn0^`Q(a zgQ(@1js9iW5jmEAUes($wlOGBSf?(ST%Kxb{4t){Iu81%xqA#R9l;O?MMi7 zhQ+wN4#okFXLCYv!({TA|>s zjq8gMsidT&80hI&fbc$i_)ufar&kl^FSbx#Q!|39r$J{9$GbWHy%eV{@uHd?8^Z{c z1^1vZW*AG`OSraE#CX%5=sQ%Q#m6w9ze$UIeSLjR6-m`mi)$sdX+z=#sk>X(3i}!t zDrD`akDfgFU`-}L_YdwsBIV`FUkE(JG$%oVq zAsllaFQr)eutGS9*e=7NHDv9QD- zbz50kz0moVq3aRQbk)hE)Mw|36DJ;=Atk(XpPRG)J&gsNzv%`5K5${%SnV$gn6};X z^*!Jb8yoB49BGb-ccuX6zHiHV6a;}4sy z!rGj_HF#TRZPNVONt1sQDXQW9D~&f1VlG1VV_hRzUnVTVCQ>&Pwl#k#cc+%TcjK2| z?KXnC;E5BTzwVHKbu6VQ@_ExQus0YMr6lXBpd;(nty@@VpLdfvkf(fLn0y^UO=>>U z>?X@VZ9o^_`0T9K8`JgxW~mg-yqV!QojeSbOH_eWl+J#Hem440xq+gDeiZEc9#=d$ zx1EM2X=ACT>91eE5I;z(hf#BQpQ`_?KHx(otbSnEePOyonc7d?3SF3i?QFiQA(z!6 zmRbqYzZ#a;qYBH;=J!7J{B^fYeSO@y<)x+d>(@Kh%Pf|>PPHS~j8!tA%DY|FJ2+rt ztJC2|Bcl1?M*3Z|KtY@QXzNlh-AVC&&wC45h(JdfB#U~0>Gky!v)bE#XK16mp?nZO zMa#ox0P}17$jopa%2iY)P7ShBk7aLl&vtUr^QK9gWV|0OTJ0#Qc&DJX=+>E!y(j437Y z^6>Cr8NYoyS1{Wl>@;Is+e+N|-rfVw%07GO>FFahE-NUQb-klpJ#I2!FGZnoQXxwF z+j+g!LZGEHXU+)GMcC@UZ8No8*w@BO~74T`S+r3ZiKgPrJs6t2O%xcljt+kgOS!{qUvGP}%Kz$f{qN2Alz z$5H*D*aBPPvj-D#`}S=eo)8tz-pP4fiTVf^q5n`JhzBjV<-h?B$I8}Lr!Vp6<)n+% zF&-^#;n~t-U}f>q^|zu53nNOpMI0tPINxMssAuYL1K3Y7HZ-K&zWsf-`T7kTTAMyq zR&Jr90!4TH=ux#o=lPZ8#iT8?ru$NDM@1M@!2eH%twPqdR+9gHBfV@0mVs*4f@N|*mv>|{sGFGYYwav^kGc&_RpiJxE zy>q929yYg=4}tA(MG0pRHY~*tzR~vDTJHV(_lt;x)%LAUr@G-{uU}{0u|*+LEIcr9 zCu)*AyD12Dq|P(n^uVkU<6WKY?anNtrqcVnQ?C{{qO^>Pidy{`Jz~WFjC|hN_4MhD zS*WyJKo%V_dV4Fsr2tFFMaS6}o8bfA~_X$h9Wygi6j`y7J_9Cqu)*_nzcK zgM%dN*9BLZ=<6%`U2lAOIVmX#n1Yd!F>?xW-hG$8aIy61(|c)Yb8~V|pE>ifv@|Xu zVfU_GoT{M6a8r`eV>#!2_Z-`Q?AYhd&d!R8ig)j>^;QP{ahgTcRbUCcsF+5&ySFhi za&7m1qP>UD@JV5z*xgY=9n+OU=gSs3Gz&u6?G<2!dO^k37Tj_Uws&-NU0t5-Df3TA zKTo(8f^c29G*RWUtOAgEQBv~ujeL?RAAkRZ!UwMygzVUb!}mXwsfiTVQdO09;btPZ zxBn$J6lar&o3!wnnYE1AhXn>^=~O&QEm~0zrK(y_xaRW*Z_ymo1;8a_wP9ZV*;;8} zHDE{qU}I!Gbd@+166F6XO#F?>GS1rss;J$zuZH1Y;mhA(7*qiMKbe!Z#0xQZx9)vU z%+jBT=|3knmi6C{V2O?5&nS9>$X%`RH{ceHJMu&RB6tA9=!C2}h$~x=C*;Av9staI z3_m3;Z+Ua`(*X$yyTIUJVId(y6T3f@ETg{!5KGJ-kmg_f&@1(oCE@kqZB zBsn=b^a0{1bP)%5-<$srtmB^`jc{W3?%)p}P7%NQn=L$W;J{{2$v+45ii*mPzfn;{ zwEG`Gq@<*TqH_&Fttn8OH*dz^+$4_Ynyl1@xMt4n*!brq{supP)87J257=viJ!fIT z|E;VhRj)eqA_TVhGmDFBv2HhTDVB}$NvLw_3|g256wo&YnwDb z{7FRNQqnXcx`16Mj9#Rq_}#lFqo7davY4&HshOd(nfa6nh^gbpCzDeP@n>5rtNSSJ zOpkDI^b;keiQ+q?(5{3HPci?Eys`qxRj}%_&YGNEAaa135EW`IR6J>)Us+iRut3m$6DkVM7LU2UxIU84xBx{v(MM0s~kM_bI zUVTM1wLM-Xo40OtUYbj9yedeLaJ#e0W{~iu^A1AcULGAHy;B=@qGx#c{7xYuq3x0l zyS7W-rDTvj0`X`s9i6!ITwP;h5a%{B5=u(SzS_vz>S_uqs;0Vow}Db_-CD=&QPn%s zQAJXBzJZjBT|kT9X8)ITf<*9u^=)yB?;eO5{$*Iet#2(@m}8TY29QKqJer%EGr3tk zo&*OglLP-bE=&z{72gS@i>;}T6tuX3giK3&q03w_Gd}m0o&%(t8< zTusZ!kd={9%dw0Ln!Ufu=5)s|;<=fj;lj$|s6YLQ45VszcXv^znJWd3AdaR>sKnbc zbjjC-@5eu|>FOkt92h}IM@JWz0!5C7Ij+P$zv)Gu59RkQCYV2uI3px* z+s@9e=?n2iC+cX8bcv(m_`i!#CQ-*9LqkO7QSzR|K7B12vft=dQ%5H@A)(KYL0E-$ zc6{8x#Kfh?S0GVK*wEvQ%#XU=S*ro1buS|C`TIAm$Ukgw+APiX_!z?m6Kp{FNU>#H zyuMX}QqmNJW`WWB4VayqnN|Q#=t^g z`rlrFQw|e{jhrVc*s(BB7i_W~sQzf`wmhVz`cmyW5Nvb}^f^9N#ds^0IWg(|4@IDl z#$?GenCUN-YE}Jot0UjGZmRrVC2dwOPPWYdA=kwrSj@sP1qvdVDWkkE&v0b7sn4i* zi#_hf&*(By&?YWR?6Cv!i(|F@PCmIqxP~DX9{GV!O;s_2YLJh8_vE zZFN7%z-ljfujNf{P?0u>>G$!Iep{e;g94P3J_%B{7aGQ|UoXSk2UhbWOy;RPWY~P0 z*DYmU7l}1V8jzIjtG07!kWCHtv%UlR+N>Ueb>|T zh*sg1^siuWXzA#*?7KZtF(dRYO?^=SRmu}$3{L0@*X##xnj7hYTwGj7k1Db~PBPI$ zcB5gF(>FHGcU^|OU;zr}}%&#do(((xIrC0>8P3+0G9;ip@xPADsYnP6t#jSbBhkj9IpW4N3TS z%*eUbD()iObk^{geLe`aL#inc_8fbjlvIIixh?SSMZlO`Io0h;2;8lm)9oD{5$cIA zU#b+gI_v5l$a*Ol_@UPl(|(a(wUE2O+xskZ<`&zfr6qve_a!Cs&MR803*uTDO=(*Q z?k<0$Z8Xo08R~uH+%oT6__>$kxuoG5d z3;is@!g+vxidJ1;vtJ|Jf|wu{y7u;f0~^35|Bhc&!zVJjD#qEpwH16JBwQk zApNp!ht+9E7oQ($B7zO~Gi#hq-}mns*Go429hW?Th)cv~YSX+Ya47FuvBd}fs^Gb| z^;QL2unYfzM8w65Oj@(oII}gn4a#3D64;;WTwiZ*>A%xQITw>J>FVjNF?DNn8zm&G z+kJ-o#;>^x@YzY=vMB~ z)6-i!`CALLtf!CFD)m2oRvE=$p0TA@pPp1_Ya%F>3OdGwZD#;b7Q7Bmo@CmMUPaE|u;I?x$81D| zk6qCq;y476J-;2 z0MVKB2UGDCg(b*Aj$QW=?M;l0ktr=Ld6=Ol#m2?yLMZyp9A4C@cRhs7B6gB)^9r~t z6rBKLK9B4=UF@o#@p%LwT7zTg1|>T(GJ>?}5di&_=zJ5hM%a3Z5IfwGRe2sR8|hQ0 zfJUJ9YH$W}UC!{Jo`A1{=pMq3PE70{>n;Iv2hI*!@Bxo(`~YtL;1;R2D7A^QzP zCw^>ZW(7|mBGOh}U5y$T$Ag(jHRZoGk&5#2eICEs^8`3KE5QeU{Ky9HPfd*}pdv`o z8|iaxIaao|wh#!)dcHO^T*1S_lTp)R>YG#Rnw~#1gS8_2NG> zhT|f;gJku2glY;2ZoA~vl*)##$$3PY24X%#o|sVoA2}w{aqyw9?|FF9E;4g-k0QHz zP!AqC*}#nvcf*k8@*NX6v4xvbeHMohjw1dfIgZ|E#Jfl%P}IMmExo_4#4 zkv>cDV3(3EE0>}G+^C;ZKU6<_R*DEgin@@gjZ+P#{Enp}>@9qka z(v1qx&~2WIcW%_{Yw*y$Q4$^p&YxRtcJkTk3i+%S*Jyl|WqpL)(De1IFP(rq`66sn z!yoS+VJiE|Jx@M7PSF2`dT4q&Yxb;?rsgXLH6<-AHw1lv(X4>xs3~!)*cY4??Rl|3 zep*=2#H^bZh24mXQKWyk;CI<(m%$@U<9z8-p{{BX6#+f6ilbru4O5E!WljdnBC>k&TV3v%v;mHZ$V{4<3aMZPGZp zQ%MVR8SCjk#pR+ATAk3pcdG3&XSK9l&kj)uvv&sp)%KAIun>)UJ%X#@yZXb0+Qxo)p z!DIZxk!NFawq;Reg9J@aOynq~5sgaK9_E|-nyd;h9Eu9);Sl(VCqO{*Sr{%lA2n0V z59H{wUYKSHn+T(6KRtMnocunNNl10|_~?!F=6CNT#ywkr%wF(HiZ(-K@*{>UPK zvR664@`$N_fv7cz^?xv|5jiVhc%t(5TQKDk6T3RDX3{^jCdT4j1QDAE64A|ndCV>U z63f;|shqB^uFOo{|2lJPOAB$viE^r%E@WMLO0NNq1=uLK)ow_f*8O$o0V(DhZiDVq^8!Em)BkC z1F{EK3YWOUKwNMp%|)tq__2Tk;C}*nr7aXBpJU$rKJHwwq@<+KrJA3b~4($@AeM;_1#R%JD{r?!%VkBE+gx8}?o z95SS4^Brw%Vb7kSz~$WT{nYQYFZjLSpdc=_G&lly81BCSJBiFax3I9q^ZnKK&rc32 zx3#qiUCya}U~e4+-*M#16nnJ|+%_i<%=I-kY(thu$%{lCdcunBOS-j>+Tr-^OXS@7 z@2n4pTTcEw&sjVh_?i;V-{Z`uc6Ypk!ZTwv1anu&)2IECnZwI)7@&T7dR(stG&HX0 zB2XxD8jcVZsyVwjT7=63uTC^!%auKU5f$YwJ7$(YzUfQ)l4|E3A~7lv+_j^CpI1Nt zpH$b-n6wv(*B*ERu(#so2i=&dZPKM21GXeHFkLUXAF>VN`}Nf?gZ@G!lqXgmtX zlt)0JWyMb{9&k}s78a;3_zVpV8O5AAsL3+T3$l~prvMK7R9&5S)c4%|kZUOqe*yS?|%%YF3DyACi9jkHm+J>D@TP1HNXu+b*=MukcVL8?Rc{2^0VijU`1kCx3G0IX> z?=Y)b>FL*5U-$v+7obt0VFF+PaQ#Ws;58~EN;Oiaxr9hp^+M+pSxeJRTEw_rX_VDg z^2{#5b{KYX9)}5?7il>;^Zw#10XAc*{k}C#^l6Rn`!`WUZVJ_}?z;c;P5kBxa z43{yv#Rj3h1;o><{7a-xYF6)rnoEj{i^0@7&5dpwK$NZUG!qOD1w%T>Nw7uI&wx<9AzG z0t>`YbTN)NY6~AVGu2A!>oZ{SRd-#OI%tzPlmTUT6(m=KrLpm^2YZh{_4QKH&=AHK z0bJl!zufyVAop7d?fS-QMmCRp*g8@R7Y3WO+zRZ+Zw&I=?l>}=_Om@n(+Ks)&=B38 zJu+m_l*3`NxEQ^x6)hmNnzI}eepKxzDtZemt59qcNTCQhkNrBF`N@V1qj6b(ZS}Du1%WtYiP)6 zsPV|3%ly(lY7R~qj+JMRsQzt0LV!|H`k|8mUXzX-t1^s4Ztk;zs0PKw4(;tR#|h1! zV7zxo!Dttwc0gDg{`Cv7nRR;wM#lD6bMZ9~&W2544@*~6K1&&%g z`0!;k6NQi~UX)(9x;*M;2eXQovZ-8+#{DSw3bmHhQm8dKBDB1^ zTF_Ea0iF()Uv#G^ddf|wwX_>hvIz*x!nT~5l|?~L4v$-)&C=ScqE6#4>1Sk}OHmp~ zpBWY1wC0ThIQW~C_+KFAA8#az($bEWmb{vtnu06?o^^3*K>3K*I55^sEl)ybcD5g* zXfA+ZjLFc@5EX+^>>M9j9$@QOp^kR5M+cIiEX+Oy`T6i1@EX@QHh%0jhchlA+V49< zM}0l~0w7cdwy0U%fmHd!To5MV#By43n;9KT5u?es5ML0QJMDXX z0S~}%=%2WoW7TKco_lfl1@Img%g2@$XbL73j}8EC!f|s><9d4^GFXRmjl0c@{u3Dg*LQ;m^Uv?*|T{<+ejI`(NKCBiH7&twU5Q#g4 z2vYz%a@;gCh50!--x?cd zU}gaUKKZj6>pKT_G;CmOS}RLSgxKNMH`2bea4ZGBkyTKL6tdyeOg~vPf$a{P@}XeV z?R)m_br~<+&0qqpo{Sj`4DGYweufUITG35zi^BpF`DGsuG3laT3KK@;3SOYc3)X{6 zs;XejAc>}^XUXce)-VNDiY@*+eoG?CdGalC8(6gEu@b6=R16Xj1xZ$$0;S%Au9I}I z0U@XYH=w0p0?Nr|lJ!KzR?8*p`SaT^B*J~c`~Cz|Bv0mm@zT*@^)Dj^5~Qb=#>O*b z1Ns`^$iP<=&3(VWfs~TiI&||U8?(-*r^gZ$BCqCJ54^nmTIF^{Wu+yW#&BllQ!|mm zCkC)gzF=}&8t+`05pY>vb!fbSVYRRrC%UAZ3P_eorxo`Ob|)|tr0*me9gvTz zL7{#6WDGX0A;hZJ?(O#nj$r&ID*8Y#kJ-aXztpA~uqwJKP~kI^hKVR2VBZk>-& za(Ij&Zip;{1mq*h=noZs2J&lmYNr;Z-rdz=0>2Vtu{cast1HXvZ@sInRbYDzp7eaU z5Fc0?1S?>{yXZ&264v3_%lx6KN#MwlS7^)tzNo4)`uQmYpN2pLRt5I$&uOnvFccIl zM~FJPq7?x#7S1j3E)_zIoy7hmxA`iqL|sskbaX~Qeznu6{0Y4qIMIy6hC_PSz(tyna zUK0n1G^ke^7PZ(OpAX?Vz{QmkqnSvOH(x3|^CnQLdS=iYnL~z%|#XPcv z7erD9%?@{kDp~9=uL_1e?7HQOT*kR74S)}Nd-skVd-m+%5W5U}7TA((lUCv|>Yx}= znMa9oUQP}RJW&h8*D<#hXNuOrp`km%wlCC^o`mjSws}p-5 z$wd?Y*G#*1Qb2g)LOO;_x%VFII;a)kmnE*a%~v@CO`FrY5iwOf8yZwfSqxj)=dkgx zLm33kCD>G*`yFASln%%xIvcfF~b@G`#^RKUJ)3Nd=95b z&U0YCENyLx;1{(a!mXHL0|!@d=#wWZ7cO9Lfv!{pH+l6cBZz8U-P7T@!8Qwtu{wHs zG?D;Jd<_@QjxBeae>~{eztiWeErJ6i^jtvL`}eB=AV1tVh8~KeYcC!i$FZ(rY_5|g z#ID365X7g6St>I#*45X?XQ5AgHOZkBnO2#+;e*y;)a|GZc79=QO z2FSu%D-*jY?0!7wVZxh@dfhc3M& zqoDAGuAR19S@{bjdF+^Nk}$ercn5lVCfhVQIQ&j}0vSJG67MJ}VS(`l@*Kn}AL$69 z8I~vH7s?$&mJ4E)NMUaCy}MCz!8i-P66Gc_V8KYx+KNs03$ZCXE6c{*d=B^Y4NXr! z%D0u0C+y;73fwU$;tZ1~F-1-i2kw%a=!PgS;B18G1SNfx!hMs%LW!FwXipsh&%zbl z8fQXm5}j|Jnx0O&zrYD=BK%&HkPO?RU8|%%~630>6 z_OjdnZI4mKh{)K z_lS%Lw&H`cpskJ&$#SI!b9<98;jdu+% zVDdpL8Y)XzrAud90=1&Pb2#DRiAWo3L8)j3_#8wubY}Ep_@e^&Zo30}tq`FL6JaS_ zE6RBgtQfJND{?KEs6HZl?i_J10$XNrzY?dfkr|5;<<1|IG&dhJN-da~tQCi7R2wRg z8XbMI*PhJ-x_}-^V`O-u&ljjc^_4oG!^97H(_}dX1#|>v63f)KrlvQ`3?hio==fau zEX}k{5=9g`z6MaULbN!*!XkBSjFXFNW_o(~!fwKn7qk)+lVPjQW-KxA(#t?0l~q-4 z3j+y7OTFBvh*W5m7byjf9fPZ9X)<#4S6`p>fizQk;Vtx(dT=y>SS*Crg}edh#B}{R z?t`jm+mr%1W@(vGdACwJ1Q<(Kw-@|K0s#9>By%(`!65>L7dAyO4@B5atZ;yez3$#6 z`a3&2wLZ(}`N?{snXV0cuB=QC)^1cD;QqIHp8{69oT20065Pm5sTa?_jzFHZ%9t++ z@(ZlUXjj*@>(|Fyj8f5&d7;;X+Hn1mxaZIJuMzr&7(us{$;hP3#SA9Nsi~2nq34b$ zGdVYeMS+Q;U=$&CAafq07q=(rd+o@Ey<#YR}L3yQK$$7+Sps#=Q`0+)U zL2|zys7ocDTaJwg<&e)=hq`=UiQIRE{^cyz2?c?dcM6#wee0}z53i0>s($j0QHN=i zoB5Ojn}IZTV6V1fPO;lk4-*I&C|uNJBxrcteZQ2m^Nxa?96hgoz;~mO9f2_jAjVjY z2rCGal~zpvm~`~?#*kn1^ma2aXeukmw3S-{S1Lq^c>DW<-4o#F2T3#MG+L1GG?#m^ z^Q`Ui5A&bpE0exb?yi!YfrVr5$>A!+lI>r*gpsYNsfjPtp&~r98Rhu$%+*qmrC7>s zis*ScVd+8JZ+%yV)5gxOGsi07My?n^zwv8~oY6vU_XDG`I;PXo(x@x-?VBI?02(3~ zrLXirZPyg7%#2^9ulYlD{x{n4w=DgKne#D{+zO?5eAHZN!j!6C1u<{2N+CY@o_#HFg* z1mic*9H?GYq;{58A#%23T_<}V0eHe1m2x-wmgQAEMWZTS{?{261V1Kz<2^1XD`2<* z4uTu)bMwtbu8sZTc%Fx1YI4sU(jWu^a96o`d6;rJbcTF=aS=~}*zWEm~ ziN&{_D4nC(&fGlh&Ye3ltiTL^*P5|NAOR7Z=eKTE$#a;U>Zl;9{2NI~s3j3i0QZS4 zVdzQvpB|PM#9-km8U6V27qDPRmSoJ8+{F3^&mr&#_&+ropOGHcA5oGlhbwgB`dbJO zGOS7;HoUtbGgjAWv*?lUgY!Aq+rz!ZA=}|H+YVIwzrDZ^E#n$drNN8@x2}_;Bf#1% z>PL9+#kF_tSozx|kwV(r+uc^?`~3J5HfkPpE55xEK@Om1VX<=+$;KEdRZ`~W&7UZD zF2Z{C^XD!a8Y!}*e>yy~a=w>xzHtENMKy;9R|EzHxuQw~DsRWrV5TR84W*@mgPuHj zsqtn6P62>8fO$aIgkH}L{XAe=9iIdSQtai4b#Xuu0jY7#LRpL+!P(JHg+MA=UJlgl zCEX;OHi@||sp*2EO+I~pmqkvSAO9#Pt=A~jeIKJSWDZs$&VpAKrFTMnJf0Hr>;=*F z1QHe$4zYO<&C=-iICSV7>vkA^xq|6vXkzyG9lH8*;_CmwA;laUW6Nuu^!l~c<;x)w z`w~-A`^*IqzoL@`2-drxb<~0Mi_XYU%85nu5*n2v^2 z{6-)i38F;)yUCfuMuoUQ>i=7DOW-QdaW5pp^9~##X6=Sr6dZg=)^?-~4X~AclZVjm z`3OgyoOd=1De2bNKd+$RYHXY75UkHw_=V@KxZ@OuSIM_LyVU2TJN{-qh5G_VJYvV= zKz$sXTv+)RcJAQLek??s)V~^^VJkI;T{KvWQGyANHd@vcxLK84+Bd0v;|BB(sD5m_ z?qkGqkb=Ry{fmPBx$Yk9f3k6v2Q*v44ua8wod9I13m#zrSeW!44{+)I@k1uA9>pvP z2?^%&-+Cu=-{f&+N!b|uqhq?gl~01{w(=BV&}P)glGuh$Nr|4s9b_a>Kd`^qJbrgW z6Dw6HH~@IR^sTsphx+>1cWhBsR^I7}u8{s8KN$u-5em++4gr%1nMcHQir46Cy0j{k*66xQbg7N>&U))#CQYrCJ5CUP- zyhdlwA@6HQhDWh`_n?trE0n{#$cj?8N!^h~-a!!jzxcD_UUOQ>NUaW-mI#Eir{zzj JNM5`B{{Z0ryh{K8 diff --git a/build_dashboard.R b/build_dashboard.R index e7b8156..d591b32 100644 --- a/build_dashboard.R +++ b/build_dashboard.R @@ -2,7 +2,7 @@ source("ct_user_details.R") rcmdcheck::rcmdcheck() devtools::load_all() -devtools::build_vignettes(clean=FALSE) +?devtools::build_vignettes(clean=FALSE) devtools::clean_vignettes() devtools::check() @@ -22,6 +22,9 @@ devtools::build("../eudract_0.10.2.tar.gz", binary=TRUE) #devtools::build( binary=TRUE) # modify news.md, cran-comments.md README.rmd +devtools::build_readme() +spelling::spell_check_package() + devtools::check_win_release() rcmdcheck::rcmdcheck() devtools::check_win_devel() diff --git a/tests/testthat/test_errors.R b/tests/testthat/test_errors.R index a4bd1ad..18c820d 100644 --- a/tests/testthat/test_errors.R +++ b/tests/testthat/test_errors.R @@ -255,4 +255,29 @@ test_that("invalid ct inputs",{ ) ,"safety data is invalid") -}) \ No newline at end of file +}) + + + +## SOC=Product Issue +# For this SoC, if we use the default MedDRA version =22, then uploading to EUdraACT comes with +# and error " EUTCT ID [100000167503] with version [22] is non current or has never been previously used." + +# So the xlst conversion step detects this SoC and changes the version to 3, which EUdract likes + +if(FALSE){ +df <- data.frame( + subjid=1:2, term="bad drug", + soc=10077536, + serious=FALSE, related=FALSE,fatal=FALSE, + group=c("Experimental","Control") +) +safety_stats <- safety_summary(df, exposed=c("Experimental"=60,"Control"=67)) +simple_safety_xml(safety_stats, file = "simple.xml") +eudract_convert(input="simple.xml", + output="eudract.xml") +} +# upload this version (to the test site) to check it works Ok +# manually edit line 42 of eudract.xml +# to 22 to reproduce the error on upload. +