From 55d2f553dad475b1b566100c60b212dca82cd0db Mon Sep 17 00:00:00 2001 From: Maximilian Held Date: Thu, 11 Nov 2021 13:34:58 +0100 Subject: [PATCH] add excel for download #329 --- DESCRIPTION | 3 ++- R/email.R | 17 +++++++++++++---- inst/mc_individual_results.xlsx | Bin 0 -> 27802 bytes vignettes/report.Rmd | 17 +++++++++++++++++ 4 files changed, 32 insertions(+), 5 deletions(-) create mode 100644 inst/mc_individual_results.xlsx diff --git a/DESCRIPTION b/DESCRIPTION index 8d9c2f5d..09a92ce1 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -85,7 +85,8 @@ Imports: bslib, curl, crlite, - lobstr + lobstr, + downloadthis Suggests: testthat, subugoetheme, diff --git a/R/email.R b/R/email.R index ab411d86..f15b1447 100644 --- a/R/email.R +++ b/R/email.R @@ -407,16 +407,25 @@ md_data_attachment <- function(dois, dois[is_metacheckable(dois)] )), path = fs::file_temp(ext = "xlsx")) { + df <- md_data_attachment_df(dois, df) + writexl::write_xlsx( + x = df, + path = path + ) +} + +#' @describeIn md_data_attachment Generate DF +md_data_attachment_df <- function(dois, + df = cr_compliance_overview(get_cr_md( + dois[is_metacheckable(dois)] + ))) { is_compliance_overview_list(df) df[["pretest"]] <- tibble::tibble( # writexl does not know vctrs records doi = as.character(biblids::as_doi(dois)), tabulate_metacheckable(dois) ) - writexl::write_xlsx( - x = df, - path = path - ) + df } #' Data is available diff --git a/inst/mc_individual_results.xlsx b/inst/mc_individual_results.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..049d3dfb368edd2731cb9e184eda4b75874541ab GIT binary patch literal 27802 zcmZ^}b8u(P);1h_V%xT@Uu$e{v)7`92W2eo)e+jLavC*UT+h|47a8nl{-PTta*(YQXpySkkif=OVY5 z-yCKnHr&{@M}37-hrYW^pTQ(A1`9vJX zRzBHunpo6H`6&xws=4L!aM%9W$I9AU=eG&}li-ThS;5Utvhq)+MK)_&ExYrCYlA{U zGtG}lN@E$khyah}+w4&FlLBgm`BNRWwXP4ovRsMzg8bHOb0p;oxq~UqJ{R0A9q7}! zXldcLza6-lA%P@r8qh``%!?Ep^WH%JjR=0vXW{)f68d03K-k}-yEVhVL2qx>-TCim4vGsrz;iDi|4t>NHSYoj?tF zyk8VsY_fL0H!@z3==89N1avqR!p50Y!q7DaUL%k0C>zsZ?zu~|v6M?0qcWJHP))g5 zOfv?nO-HMh(x2#G4@OSrCMM2K4F4LK{sF5cTgNF&0zLHhMO~qDJ+np=x)Vo|GRv5{0q-sa zOFel)yA;tswTOl0Qo9Py~sub zUpL(p$?lk*ntVg(CdD!7xT{=+;X$j3^N4wKS*UCID3y)HO|g-H4NLcEZX#i4o3x>O z`ruIRW{O;reyLo=u5X<@%<%E;m|Riw$s<~Ow;Q|1fI)Z*Kch}>HSH^T+-_uJP7JF? zojJvUisJ$n6KjP+%WPv!>T$WQntItA`MuUxeXXM*fn$M*PQZ9iJ7e2cI>lHsWLQIU z`7d^th)>J&_`2xcc zT``l#HqnTOa)z49rwx2!P%g+AG5i^jAnW_8QL#gsY@jr&Df)vt>Z zECH~d5g~_Gh7=3tzuM#`)NIi7_JKnVIph~jN15}|xS6OUingo{>T?nA-V7u=qI>(l zY*f5sjbyj)u^cvT;>j0!m(A?MSdz1L%%0xsLddsq;QP34I3_EN{gNz@{|rGl^2#~y zx&MwA5~3G)6$758>C-`9Dj+p$Q^ZTb9JH1UDFeOBD&GtYVAqyVZEKzaxG%L zebIJb({|FC;zi5dKIam-D(i*3=vPDld;qk8SjcLGsrDI?1 zlrZT??r4Z?2K1Jn+s37leIUyKJ`-=(Jk8f!U{>&H_02@l^E2Ol%`-b8$E-jj=` z6wMgpF4EPRSPYd}X%E^eG*jE|sDm2Kx6%bVE?#*aQ`oM(fU@Kb<@tbs6Ob9uOoV2A znCaCqm+4%-Og^vC-`4V3`xzTi=RdcCDroKEEU2Ydyi#WJ8d+nXjS)(fKKd2-E`O{% zmx6DPkS~DzjpR zr;HI-N*`ZgZR(qWdRd$?T(dE3xG9t)<>)Z&)WHy=hcMB5F>UFte$Qk}{<{sDYgie& zZc%u*LNxR4Icaut#J>f0aud8B-TVgRQ62FVlnzLG7 za~NYO106=uWAiCJ7hKWdmZ6UCa7GC>pgK3Kr|zlp%UctLfWC~tCE?6<*cU^zFm4e- z0uH+2@)&ETNFlVYK6hWR{C(}sn;e!I5sN6!P?qaJCe#AEy!3Da4) zeD<2SYmVInI;eS+MywID7eC%ynPq)#FZPmVdB)GZxC$AwT0P^DTKv>Y6D1Z%agU7Q z3f9{5iFBFkPfr_dj%D?l!RFo<%JdzA7OaQ?Ono(J(oQ%98U)cd3AlJnQo8mgfpTAGblGA zCelUMAJ!2VpyQX#t&@gW97C;dGusRINX&B@Z9X(@mVgvhfJ=|jn{T{_3q>_9Zdb(- zs5IRwnSt`1aW1(cCaAS#gh(2&<8grmK?E=|;2=|HNsDw82!+Q0dG^}#p;}iy=T7C4 zE9K-+&GglWMd=oPOzB7E=tVE(v78-4$|d$=f@oow$iEg6zS7(S zVGf1Tn31(^kwn$~BXYD8O6df zzhvcPVjH%s3e0_I^$7eupSf@QYpx|27d(^O41^rQG&~r8M!Wzhj2rd`jz>pM*g>Bs zW(rMDf18_*B3656TDfldQrtIwrJ zH~N&ykz%nQ%Zz?cNbqG+Na&Xc9tDEc`Zr*CM6sd70O2e2v}V#6&_uP{kw~4))l2uO zT&>N9T$u(X6wgXJ+5+P7+{v1PKxE`x2e7&Skp=YXTNa&nP4`h?-m0*30O}NU(}=Jg z9-1%S$jV#Sg&u}fmH0_jW#;ewQSgbjiRk7Q9d7oPx8&d?=V(yOfA5-v`#-z3n!D%) z!aJO9ogPZlX&OME&gFa?WS|y5zLiDJQ(kyc)L1D?9d^x>Ss7JrdKv1x78y0J?NJ`_ zGM;XD&s_pH438%I|5@+_$2_XVJQ_B>o~EN#z?5Z$#fjx>>y%1xhE2>2y5kcTIlwtF z&S_};Z%T_B_9Kyy5O=AyMn?n0)a0utCASvUFyjZz#A+L}?zNJqFh*B&Qt=6_U}_&| z$)PASQeD^Z*9o1FLmgBwLq#wm@WmP7L?I}dNr}5|S{b7Om?uyV(%rs4*_Z|msfS+a zU^51@CX8bdG(J>!%gtNV)Np>i5sG-!Wrp?|Xy5by@nptN`V~d;J47U{sE`r$oP_CL zT+Gt?Jz`+-(09{c}{kAI%MLhjdq-s;!1G^p;?vq`jhId6*a^0Pb+HP6S}rf z|BU3>h)~KZas<8jJna8idghKW1AKvcADl!@|FG~a`$XB7F&<)uc{yVE9OR@ZCv*#^ zzQnhC__y=ub@nu!5GFB_+NvgP0 zutyN})2}{UMtW{?cHTDqNDbG4=6@Cn*Fs9r@zb&$A!@U%Z+SA&*(oTe#%F_9hK6W( znpec8zSA>U^)APbPNIz>NgYuX!i;=WD31F#m3Nfc>86n5O;*}UUhdQLZ0WOaDBJHP_9|E)_5en`x%12;Ua1UOH3#i z#SQ%zLxb0CnCW;?>YJY?sDq0f)c@*a#9* z`8>ihYc`hsF z6tlP&_o8pC08$;Le>kfr`;F<7(B~AeBWjT?;IRrEu?Qw?@sH}ERS3SF3F$x3Q_xAF zK$S#rvGlPH8#^knG+0tw23(t8226;o?bp$8E+++`ea6NxYMd%6D|ln$`*y-NrR<*I zD>}VF8iGqMgArRwID-r7;YU9HOTOXS89GH2|8j>}I)h1fj*cd4{Br_60C~GoRC7@D z^OJ0?soy8Rk`8}_l8@crEM%QXd_JdK>kLUx@_CDYDfXX`j#!Qy9e%|>Qe0xjUT9V} zbjPwF^R%=vxGDeN>(W+iUUB*j{ch+i_1USU+|%k#@3EGXfI$k-v2? z%+^(!$LDIDUL@I4Cik3$BI)!;Mj$l_vwAma&5OdWPw_7Uiw)l?cn+`;hSynjiL8Jt z9KRbJzdKw2E9o1%zR9-)#5RXD9?x*g0B4##@s7=ObTMi>m1s6ao~CXOFso0e47`iH zQWB$_6q8n-p3O;fl81{FOGyq5wOm~lc`YCB#_P+!p#NRr=D1B{Q6m5WIqUqd6)y9? zDqL*?r_FZs&oAE)0)pMG9F2Oi4gHsv9Z4w3E}OQDMOOjWXrzIf2COMk6Tip>Xo{c zYL+eLVTe_Yf7iFH>b{sSQo&~DRG1TnND%kb(Cjo=W@Hl7Bmzr2>QnYLo(y?&fKS~o zk7yNo-ADTMCXUt}7CnB3%rD$YNSDW^1iwU$MDHoR?%cjJjn|@+B(u6G-R;s*ZTb({ zWFHB9-HG3}8Rv>lj!A?ODtC1aFi#4bd`8E93}1dwryKX8aauu0O}tEw_e48lo~#~o zQ0&ywYJMqk^@Z2S73NQqb02AQOGg6|4{kqHKeRTJ`6m4evS#-BIC=B^a7Gm|rz}!0 z+yFn)da^0@omiIsyh^jIW9hKtfJz=c@ zdF&X$64e4@k}b5imHA-RQZg1bHNvxASNkfT;H>$S+o^yxL67`w4ko>HxkTB{A8;}bjJC_(L90p~0}JLH8~LX8GbC?sNdZ_0?a%e7f%v8)`9F<9T(!)H*ZZDp)H!>T42OB?h ze;G$PgCF^*`->0u;XN#yt6ph?1p8gLLHhL&I3N4W*4f^CVMx8YHO3G$fFaS8O% z5uM5)w`3coPtU@#ePc9;WiW2BboK9JoeVQe?e_sC`Ckcskf$K0NIk(iFFKH~^p-tQ zx9|u>{JcaWn{rsh8P{Asiylam$K;X5rFiObFQ=q1ADG+>foF*HVJ-Gtl|Nn)Jy?Wky=`J-as5aV!fcE(=pC z%aZq;Jl+nC*?uxTanStbI1HMlQ$;i#5w0Vg5t&(?@H%G+XAj9phqZqxz-3g7tsw8t z7dBo>gE5mGiDKHPpn+$Y9;Tayr+v6ZE~7PhNl&qC4e&SmQ?QHWZ$hD;&e0OOFC=g5aP1X3$<##1< z2q1<_(QqnQqgf6-MjmvQtRXtn=wLIVn{Z*mE4vnp&>x4=LTzZ6kdw@kkY{RuD0zr3FNyf}^saT-nr!594}kZPJ#4%r zN+L?Q{9)a)G_QVvV3q3Uj?W629mC1DJVx9Jq5EKFT7luTV>kX~ylKUwH1~53w zW?k)30WzadjOtu0!q{b#K>(i&g#jk@M>PkTk_In|4NBu(n;hC$0YdsSD?!>45%F|f znc-N8K_`({5Zx;2)+*zqOF_eGSmYO7#SgD)JFbHX=V-86j`|6?SWPN{YN5A{D8%fo z&&0*l!)H9lb)@OB5}8FCECTgQ*-}6T(@v#K?HQ67Ctj-mw1tyH@n7wso91>-W&r)o zJbkP_H$4~;y}iTZA4z)M37u-mTWS$#Ee2?D9>qYdqA#~ZOQ;hu@(t#>ux5-g<`N8w z`A*n@&0%_o75eoY^uU}7Hzv*Bfs8uPuDM6x1OgHIDQ6>@DhyFxqNy)Wa;NTr3rUb5 zoSD3=Q&Is!eIJA=k4yTmw0iJ+6CwuC25=1wYM#%~&d7ez9~D0x|2jH6oU11~uxVKR z33gCe3;d+SH1h~|Fr(IrPHiQew$P9kfPcHgJ*EG7Kust4?4sEDlgy=oyhi#jlX3}2 z&-fBi>=8b*z(Fp&-DsF`m7a`~jj9Q_dTB(dPOFcp3|m4m^Jpf=r3>n$$5VQtIcuoR zfpbS`Fjt`*FKLL*(CG895xXR>acKDI;xK?wAj}=AC&67|g*U`K1!f%Er2kE=>(Il; zb0I`u^LevCCk<=Gs$y4P;zxJrjz#UBziGHBzAOval8cyVyS|ucT%ItUu0>wA&^vAF zoh6#+NaA#(crl|pG*KzHV$o#o=sbuRnQaT&yI=N87Q|b1EMF+}YHg1aj3<5fD z3zo*qlIX)x%E<%{>zpC6_Im&>qn10XLHuhC!BN#1Z)Eh7*T^k=DEMn9m=n#G1Nmj^(tWqv>XXF}cwlt3Nj_i%pj;~JY z6{3Nw0O>R$;^=IxC`L~7#l2Sz-Suo>Iw)aPR}b4(Eu^ay?Tp0tsP59E&hLXFg^7^Q zGh)O$sflA7shc&`MClH83OD-v*Euq zgCDrJBa^m4FRlx29woQ;Vm@u-q^wcaQPqHeQE}2t@~Eo;`C}F%$2^fN!107lCYXL3 z(4e8|2Avc_SW0AlgJ}t5CXwmFNF?G31u1sBJ`x$WP9(ZViOz%A^(NZMntrRa92OzE zFz4=ClA=)u=TB{jD~4x~zb0X42tOw>E692c!m)J!=S&~fi}&;(ysE@ZY4aAqKlultv~h5UiovykEhcR z^Ie)suIDjP`+W7wLfTTu9Lq%peR0pk)E0$UMA~#9f9BZ9DjAO@BUB|&9tRybw*MS& zjt?_q_KIg_k7Owq(%{L>yQCGC=zU_szXjd%Q}vzZnu&DE3*Fq_kxZc~;*6y_9esy2 z${~N*UjpRBAylafmzkq-N8Km=v|ap!-|K}j0lF9=+|CmxM0G1LkPeBc*EDqlMpIZn zD)^P8oi4~Cs4PU2k63D?65Q^r5*(N3eAckYFIx0$;bDqirE+6JZOfEZJrT-SN0B7y zJ58+StB_sD(VTQtJlRs(SY2wLhTwQUH)!q$W`w+FL71`Fv5(1tQAIn=zB%U1NZ+zb zY>sZCT=Iy0iF@H+7p-@XpO~P+yQ;F0)Y9aiNqwc);gbHBjLNgLl-gVtZ7{p3JK`vZ z0DL0*{!Kt1*1uW@RaKFyvao@_70Q!kFHIa0YFv~xxa08&Rjby@^?e};h`xwOO6%y* zCILaRY^{DGQLU&~v^KKB#{X4{8HT-SC;H^#F(+0G%EXVnRtP?{)yCRU6Fn28vhQ0C zS=&8gJE3oHCfoc5YtT7sbQ;n3`z{GnC8DqJNu^irP{+!RT94BSQ53(39MaV^wTX~A6(Bv9O%)LXv06H%v3%Kf!JS<|k9Zey zB!=!4df+3PP=g*uaUAX7RKezh@}rA8UhmsAigZeTJ|Um|YEQ`Pp!crMaQZqj#VgMk z`f^#A7A?t$BA?NYPJeAlriQf2F+a1DW{B6mcZUP(^m+H)Y`WSE{eJwPu>sJdd82$C-F@&|lJg8pWiE9f|{Z-d=?F`SZYP zsm+$G;+;<&N`Ru=+3bANxs@y7v^ZzyeDM&i?V7aCrA6V75Z(2hAcQ1pY*s*<$$~IL z@HuA`K-*qV4WnSKHdwby@~q^!dIzaP8OULFrzup>#%q<`O2d8qH;{mJQ_`gxNXZVR z0?e8UyAy9i-)K0(xilEjbe^y8dFVnb73g)>ABRuhNs1zP6Y1~xEWoea+HA4$of17A zJ{U{?`6KD8J(22q$(Iss@v@^h?SeS+J0_|3WF(h>z!Cgc!1JEpuUV-sU8u`tNeH`| z;GOfMP4O4C)=R%kp|_b=U0~RNCZq4~v_XhSZCLF+sdO98_J1GLBZyDn1Hg%soue0(`#L7tu^sMP@^Hzh+-RE6@ zxTIG{F|Yp!8*6V15Kt%Hs)(>jn~!o=2z`at>c50A<~ zl4#(odMV)XJQysc!PB%W-qX|{62?8BpB79U_>GN|QO8{@Ue-BS8_aa2ulHX&8+ii! zF@-Eel}X2}85mPnI~z`FIiFu&eY^bV$90yeCM^TFv{i0qO`WB|kaYciEk5 z1_F8N2wC-X&1>c-O~u#~pLL?zGFuALB^|l5H>W`i^CoHgar#mRQWW8tiWztK=0TQO zILCT*ml`Vq?r;K5LD|kdKuk4|k*=EezbilgX z)y$+jb2lO%u)jKGnNsqqL;vCGEoO=ka`tW?LSJ_;$}d0J?TgFm zvO4A6GdSWiFf!7bb3@ zl}qb`If%|}bj)RhzKZ%#i+u*=@N&%wNzyi~xEzoeB_V9IkudE0Wu!Doc6Z&(*b(-FI4?(ZH~y9F4ZS*0b7iZc}F}B z(K~(9 zNnY)j@OlBqo;z2l_<>KBg@tJmkx(964;&HW&xU@aAEiVL1X%VOGrcC(kzdp&7LCDs ztVf1|@NwK+yjRmo!M(obv~OG=Ps;_ku?I+woXp^RLe3qAG>8>#Aa}4zcZ%`Cx~%cS z^bmw-H1Uy0O6IhlT~ljIrMo(X<%>IH%pejIh7$3SD-s*%X@}KCg5W#m3gA9){groA z$CWuSL_h60%cRs835m3XwEEGzbKA|Ej#Jm;Q8J$9R>UQsgAWL@JQT(|PVulEHf z6LD}vS6TGR;NP!xg%OxE>XQCt>@{2IlzQmQ8A8vKcAavX)AzJ}mCO(zN@V;6M0yRM z=zt-KLmUwb5Le>eK$Jv{4nOeEpYolq+!veG2Z;OwtVT=2-AYSt56rh?mBm2>G zw>M$<)F<}t!RA%lufyl;?BUQeBxCGu;P!Yie*ppxZiVTjM<$i&8Kg##DDxvZ5u3s=4ERg9o9u)!qimMlK)!9}CduI6qm(nLSCVOAfM152u zpgLX@St%%rmRx5rPNLkBNzqZxZ3F^I$o395gQ(HS$lM45qM<$AYGT=nqh)$u$Zys< zLr(JyN~AT8pk6nELuLGOeegEk*3ef{u@J`>V4xojDlW5tjx|JQahx z)TW7T*4U3ndp6!^#WC~>5&g{b!Vw)gm4$wP3;D<2Uj|`^vDRy7ivink9-F{9mV7t$ zBqI;-T7<`ax%Bk%TS`9MkuqDbpNeNq(L3mv8cbWv5qvL7%PRcGuN`CrZ^q4 zj-xHc0ukDJpAI(Kb{9Y+kJ{^aF`GQ&TMEUYif((|-9J^cX0Fmdo&GiyRq%MBV9NN$ zRaeMK7mX{i3gx-B^IuCmS>ToDm+dPEtyz}iN&}~Wf?Hy`P^wVQ4EYDY>zYTwe9b?> zbmK<(V_=lxWiZx+Vca`|b;nzQ=(fTzP_hq|Qw&-8ufy3O>7Kn^cyOhtQ1G;RLhjo) zY$Qa?c)AnGi}%BJkpDU^{~ZXz9PP>6tsn@a+j%?*xJ-ctpMu9o#PgVFT-qLs#^Z4w zHYd6?4Od}Ybszwa33mtP5R^0D5H?8hmpMLn zOfI?;F%ji5Karq*P-}R6F8C;X!QlFSV+~0ilNwTBbxJTHKt`g?{f|Fl`PiWTm@ENh z@k|IypA3e+Yr3EK3*V*R z0H0=v7lB$8f_d+RIvnqWW>^5jRK777FD?d0{bdj2I6{y~G;M5PoE`!;-Clf&IN69d zW>p2WZYF^JDm)pVMbK1Dna9Cl6t&W6TEuRfTg9yv9>D#5xvZ#i)>Yqw9XHl>!pIDM zf2s%+rn!KQxY{hD6;Qt5+75GrSlLV!OvKR{oRhD%rHE$5qW~2)v_QRfGo9CI4Huds zbubTuw5p8k29?-8MdpyE&?rj?*SSCn_l9*p*;r}46;jEGJ6qw12`AxUqoIrzwubWZ zNnc>Sb$roYMZ5J(y9eLK<`jz-n;TqA#F128ZZ-o@XuZ`mEoq+y(L~s<(hBnF$4DO8 zw`Z;TfnW-M&nAc-)*4=y%eGEm0I_x4*j`mVQ0fq}J>SkPB-FA+SI++n=3?KT6B~R5 zvZ+)T%i!nvBvcKeIv;GMj<8Tm*IEZaLqYZsrlY{YB@!K>QoZrIllK8#5+KcS#iNNadwF8B(4 zLH_2kV=qn0164AT^T%#7(OwTFtV*(w4MFVTnMJi(5~6w7FYI;lVX{YPhmQQ)Nid)1 zZ`D^iTk}|}6NyCUA2#)*-}Shg64++Ctygx69+c`kuguv+9J1S9#k zK|KitJ*rp>t!3o%Z_kTH%&IiexTqKWlD$dkAZ~$J@xelzGqDwndoaVEHMGmF8cROP z)uDYj^NY1vEMy9O!9hnT8%4MAT(T?tg5aG);vNb*gEEwm?ecK$0Nz`d<5$qad|rgG zrKT-&9=%}OBIbSEHk_5@(-K8v5u_uJxT%NSX3HEoRL3IX3$VfNGRv}SAp?B)Q)4bm z!2<4PQIQ|CDlbqW7x)-we5wVWE$MSx$P81kbOp~qI@`3!1}L*m=D=>^y6Uz9`QVe+ zjOn&H6^`WOjHn?fvITg$b(6fwsT*E=O{y&yVEp=*R^wr=C7o+EDgwViIfnQxOSpj( zfsZfd(S;V<2-t;4U)m*ZDkfK;jgI;0k@t-Wk%Pe3#DC@hrWSFCwwH*PoIpQk)hZ!$3lOo`@6PRf+i zY+d$h9`ap(1fA~|N}E}L3@M-!%06L#?~yK;**UIiHCL)d%|2-Q-KnTX(yJg6r(AMK zzb6?0&Wmb*O(&B%$l9$7jv$o&+|GDi5o`g@JKin8yV=-;QSmFFkp<56s5oe_9GzCS z1?$@#))Nl~j;NZ+7jpBonq^ewMa^_E)LzGs+-We4i-XSV>aYMxd;0az5%-A3qpXN`?@adSoN*BNoeZVg|h0;P7dhiL1bPSn$@yFM{xa(rR zADCcN5DOh}ewkX-$oOV6i2>_~k$aEf#69#u!`z6G9z8w{7ZEF;qJ1E*zFgj@DsQ)_R$fMAz>{vmZr zE+nNe&+xcl$r=S^55KynPs`#I`AAbRUQNLrJ{8A^&S!e^2F~GqL3*8@=1;veQ5bA^ z!8S|+)twfE5PeJ;y`caUwg4eYn#58txH@$*tU$0UC+Kx`>3(E;sHYX5{spygA5{hv z0_tJLpYkC;h39~5FgJ-kJuQd$kL!nfmXKFA>x1!y@0Y5AimCK&$){D9nO8^p`}B z&r1!!GrZcLyTV^!)-uOtuDAKC_&ftMcz66EXWrSGg&og9nc>Xzg<5=xJTLEf;9d5B zJ!!tAbEbGtwWRCQ$-7)?sGQq|oJyHJAfcE{e;#Ikxe02M0#)c;JN7xHr`rOPhy#@I zVy}NIP8CxK4_gc`7|BuU)JE;8bBiFn@N8KI_F;<%7Vajo+F?-S3pqLqY8p6 zG=?h5gP=x>0l{n*E|nX^A-|eZ6F!ndw>#od^0+Pe3)?~ft@P=*=~wv&Zn8&vV&_A! zk_EIvQLa~Ix%YAvn7Q?<-UwDYy3M^d_M8+m5NV9Z-5{CICtN@^=acvn;Ig6$-r|yCNU?me7f|jq6fa&1m1_YENhq)ck_ntxY(PpH5{!KlPqSapEZv5d z_0&k+v@=B#YvMHsx>%4^H8mxDD4s!EMQXzimNI}|3Q=|PBVJbT&-2%<7rV6WgNJV0 z7Q~^W#~iLn$)7mhvHeuloV81CEA-77E4k~yb^Mh^k4uY;vX!X6lYeTk3hYzh^e)ez zg@{z4o}4**Z6XGjEOnDLR4J@cUk-Vv8r7g@nqHO7Lu)TH8*tin5i``T!cuYEWyuC_ zB|EekY@60(CK9)5Dg+|)z@X8u{BLl`{wm_O4NbxCtLBr-1DM&YK8@}r;M+hfBGJ`Q=tSyFGV*$7#?7W&wbjslp?hXfm5rJ+1be& zPTPX$X%nU`kFX+cwkRm<%PM%`A!xd8BjN~zygd0`O9ln6QJo`YxaTY;&y^S$Ga?;5 z#7~_Tyv0vD`*iI*i5N{G*Qt+By>`-WY)?gw71Tr$r4Zu_i{geZtH2)gM;58knRm*F z92t}H{Y54tk+spr78ykl!a?X@$CqkxU=|pM4IwbDIuIvw3sblWC5oFym=#(aw9gJ= zRkgRk!~z6Q{*JHOE4cTTPAwp@S~^>F{WK>Hh3a^nyy>iD)i7Dqszu4R#Bw#cvz5L= zoIJ4S%%l_k&ar#CK|qo5e*m=YK@dnDhBpmD41)W=9nysWX+$A83Bp|DQGcD5WqY75!m zz@MtT!a$H7(U?cIW0zZsgQ@ZyRJxM#O*MMF-N)~8Xi-~TY1STh3@Vf4W9$#5_1#%1#=yfrcD$jw2Cth}3~Qy6&xxAj2Hldnb$2%U!*iUU{Y-x0j;v zC?aavo+eD4gb53JsTBcuz)t%uAHx-5@Evk^6VH!q&9ekJ*ys*dY;+mVyuVaeq>=7C>>swP8O@uw^IFXyQ~|DNw1Mp^h9;r2#n;y9iu;%%^QWQyEt}% zh}p;xJf-$zJ+^n}OTiy>NJB~+A&H=!wGF0Sn_e9GGjN|hj1;LhKXBYhtESOtt*5rf z%lDO9|CmDI7%Y^|rDb^>5BOIohY+1dz% zHIe7S+ayYam^?=kl8bB4#-BKPe0JB^Y5{R;O8FhMjsq=?nx93Gj=O&D)jwOMmA#8b zLR?-wv~Qj}>cyyoNI7|zVt!geRWWp_%HtVWjPD@Hm-zf#IuyJup)X7h(7$lC;PQvA zy!@`6#6t;W(Dt7dDl3Mz0J4%g*rE_9LP~M%#rTpqzDowewxo>TH!~Prv>I{y!Ax8^ zvy)6pfhm-QwZNA8$!U=aprwaho+T=qV0V*Zgbfra9*f>#n4F6}LpYVrZ;+OE3}kxL z!#9@mH$gFlS~M0_R`;J&JfWVBk<`~oDh6-FOpiBwyFX(acy{zjcfE%??~8TQG76~S zLZ1Qm%GHzd3Pxc=8)Ft5Ul#8)I%Mf|=?M_!-+46Cin3}PRHf&%>eJ84$|Q|I+i+T; zcVOC)9p8PORKxPBq5ZQa(gUc@G~4)mG(rh%QDFs{`8lK7yfLNEY&k?n0NEKBjOX?> zsjncS%KW~4Y+8&ylrVc>Yj{aOriaY@v{7xw*d!>qO;*k4mPVxaFe*PKvjO3i|DRpn z4L{VIC{p}4ft$E1^*cTsCMMBqKiQAtPZ6_i3`*pS%7c)9AdW ziPPxM^LaJ4>Zzcu`9R;+^g!Fe<7C+Y6q-^Ok~!GU8W~L|oZ~(Xe)n@X@1Gfk|CzD$ z&kR=hFsH_D(ev%V`_xhu_`0&%7_bW76D5!8THd+Ez)#0c8m!oC!E$^-`7Gg(XXx9N zQZhXv-u81`uXy##k(@=RHZ3MxK)|=h@o6G6b~5>_s=$oZ$@&Oof@7$94i*b9&*lCW zd%~zTY3yRriCVJWF z$nEjhHD%juFY%sVPi>U9%ZPoIlb2=k!?*R_O{aR(k4exjs*@hQOTLLV!_?#AtTG_V-Y*-15ElXZ3k&O}B_=nkpjq@ez-WCWsv}W{BMlZ58eDXFq+A&`kxo zV^1fg_wsp`ZY=2SevW08k$z^*P|mPHAe!05nR@hk*Ia6F7DW;A$fdHH?rl??6OV6< zJqpdGQvE0mSum{43f;emB8-fa3SP6oi9Y(`hdGx-u0>~^m5xuI4a(l}WsgeTSm@$d z3ilby6PG^!+$sY0@Hx~Hf9v8HDG?BRq}qDbIFxrxBh`Bin|QoV81Pfwd*5j~ps!W7 zk-809;q8;mowaymoXS|kwM8a>sQ#m@B{H4zoX`r@i{>XFy5#-*JkA=+XZT1rw@>er z%VL))uGv0$Z+utrfu^M0B|=^6iF`EB#bI$@T=JnsNApE%Gs$!Cx1WBhkHFe5;L{3q zt|)!?gzBB$(Ehc{0=Z|wDRfTYVt><|k^?4*(@d!F{FHa{R0W7J5tLTl?ID~`nwpU> zAxli7wNN==#{#EoZjKdE=TXMiyDzdVnj>#y7ket^P@l+gp@W$*FNn6tV)o|kMgxd3 z0TfJLi28nsfo?jy|7H!{wY2}HFeHbpzRTLc4EAcbt=gY>Q30Wid2PFIP&RhCT>)468ZGBfPba1;QTL)LUrg)4UPtIRSF zVH48j&Jw4gP6oT~c21NhWRtt+7h>G4_0~;OJnzjj$T7$9CqE4S-X?!<2tgiZXqj24 z!MkZ3(bIakVSMg9DAaLq>81^**8F4FIOzD5Yeu7DYkkamx-=X6q~(z6s4v}Avov=M z$n}9C>3#Id@94eX(Ivm5d!C|W_>44s_4@Qo=Mctl&(~RKmyj2n!v$xR*gZvPJLU_2 zcFpDvX)w#1dYWHe@xtolf+Sm94J9qWGJE3Jl~zEYdy$!m1R(-tzKgkT!jYNuG532_>AobkH* z`vfXSHJfl`+)}3B+TtCzo}pNmU7>{UxOoa+kRYaJ( zln_PT<$6&>c@6S`Tn=ygLQG~}B!*v4@TVbrzeM{6VD%O{p4;fJr!?aL&SFSir<(Kz zWZe_thuDSP9^v{B8oBogCmQc_`VAip-^Ux-d}jJ*LY!q3Yd9PcS8{JIVeVo>L_Q&a zaK)9A&}p*al|EcEH$^U1oSO!r;7@1~teVB-(GJ&^Xv0~O)t34?bptMX1d{b0!Qmwj zF#?T~k{<#v(r$qLtb>h`*$pImg$U*10v`ZEs|EyFci1^k;hQy-LnW;!t-=4P>not* zShi?^V8J1{y9IX$?(PJ426uNI+=2&px8N>86WrZ3xVwGseeeI|^6#6qdS=b)+PkVx zovPDS-D@Ahmch7#P&Q0hJbr8hLK!Hegm)$P5#lhlZMDO-?mZ~e<3i9EByKq1NAZow zN-<5yDx6{^?or~fT&pJCt-F`p!K@#n3URz+=Edxurj9$Kh1;RHIA zXm83w3CdMe)EzK|>hsi%sYim1u2^W5z(gyP;m4qH2I-&oIa#8NqJDx_cK};14@O(x zBGS_x>L&H(3(&P#F0wz$er4El7M*@6f{Kkp}R zx%dnOqM=|cDf!I75xpv{GoW&d*NA;H(!&&gfR8^0}g9eD0 zXyU3%=yXHK^}c-;XU5(y}lxV^|@J<~O*6x-=FI+S&)c=VbHD92WY$ zoO0LMZXUGIT?M3S;at_XQ4bAvaCCmIa?3ZMlk+X*>GP30DRZX6hbEBk~Mv@ z8+EjwSi)Xngs#MEvqHUMdyUhFqrT?KUf6xJK`SpcbC$@X&$H4_6vZy+stbKzW&z+s zC0;Bb;gC{G)GT>w%}5imBZT7xON1g&PbNQj3eo>btZOD(Ajxcw>;~>fvZ~I=lo~d! zvz2W?>eZ#OC9{fbc4inN|LUQ#)t)IpH{z%^hAlj&T&Eu~31(lO^AEmyb;pRbO{7W} zuT0VHLxYLosjn4%Dk*}E&vlvt$f;GT;%bssMH2~PU1_%Wk%`}FC|mXT&-fC# zGA1oZA|CSkX^ejCWL+pCj2bs5rVRinJ*3<&%aU|acc@`VNR#|*GHxzsDWC)$^J@Z= zp`RWj2#o>3!vLV}Jkbg(Am%^gum5@_Z}Cl}~jb%W|D`O*O#Oe5|;G zToYRQEIQTO`BAC`(-d%qY!ePN1-%r?M_(S;`M=1 zyw~{TCB0L6lv8-X^8ULt6R;QDoSIUGaZ<5-_#5?fcWeoMd%n;6lbLt4pxy$|E#Yv# zw3=n1432J!X;Mg2GNw zaIGQ@O|ii^bsluKlsK~J?iaR%$hI$n0HOWR&u+}Z9E3JOYUcv*VPYmig7-lY9}+V3 zC9WbqrJS7^~!MBIJc;>;zsBSnTbH=rqr7qr;HRM06$Gf`1K>@IHj>L_eDV3Y$?{ z_r|>-0waM*|7U!tb1OfzwyPfl*F{bfwsACuDeKT{y>1NfidNNXkopzrRgU62^OBq2 z@=E12-0FMJKjfPri<*pHt7M2sN%x)N%ND|Z_O7wlY>_y}vLGGzY>u-tMiE;~5H*lu zjb)1pg2uyzXKdzLu->PT5nB}J!|L|H9Lc;Jh|!naq>A)N62R>qYCqnQ)cTgcA^4HK zK^`;SS`;&Vc}W@TdI@gUtkZ)-BD&6wr6bp@LYvl9D~u$`)5R+*9egh>yl&Rae)O11 zg5E|NPFMfppvuJ5LJUqQ!&%a&dQ4|YnS*$g-G$Lx*o-Ol>7&z&~hXbx? zWm~P z-YCc}!Md@}<;364?m){etZGTniE*3B(821Fl@Ci?>+^dZnl7hr?fWsfZbUebk-#XE z+Nq;Z{W^ooJnHaN!sV@ms!H8w6K7g_gVMiNObnN-47aBne&dAiYFh;xOKvMCY5-Is1g#Q0-nNb4_k!sb(qF zrh!zdhenb3MdgQQ3vcCh8n@HNGmZ1g$;e!Vs_cm-nr`}}9^GNt$okcGn(*gYw(-8C zo^QB|d#rVtT#ThK%ZU|urgGBY7jYr)>2G3tE>(Jf9=drt%P4V;kjR<1z@bq^Y=9fm z)6xQ4qg@-Y)hdR_oP}0v81wh0@nS)*3He(MB-W1tK3p@#kgNI^bW-t zvd%Ht-JI$fvUPWidmS6tLloIkBNVc%dUI8tB{*GNv1cNAX|Vb@k#$FNHX>luRghqh zTm8JP+codFQKHa$PK9iVW8#UaJQ-Zy8zJs=Tjz^JRJLC1I}t)xpQPTIVSAEGk@Fsx z2JqF`TlE&XeH?Ak)3Qii!p7Yc1imk2yL(;u7pkT|@9_t%GoTd}99tyO!cGRFhV(@so#OyNjS}$UUEq5=KUL0aK{3CMU5P;tJIYk2AE& zimv^hV2CoW16!z=gj?LKjC7uS1-n{LkUd@8Kv{d6KLodZxVWOaVYW6u8+V9BF5>D)gxLcH~5$k(c zIIEt9USR3lw>(t@NJ9_@In@kmie@k14Gy^NZR2LRkNPYPK3ujBK~ogvla@q%DP$Dr!yopK`CvT{*cQ;;vD*Ybfak zvLmfoLI-EjPj{1h6!5DE2zpBA@L8WQea$P}Ba z4Ta8Qo^m6@bu~YEBML)-T%5si(RXnPR_%vmpw{^XjT6Jnc)vjWlpQ;RpvJzlqB`2H zvk^B@#5?-#r2hg@*rL$uRuQJXlb0Z?kfz@2fdbFlddI>IL=^6Ys@2(*K7P+i@WqXt z7xz3W{e7+ZV6Y^meg1<_^C>7O)g1^t;(9>w#yiFMk*y5*3(#bj&2EAIZvN7G&!YH` zs?Baiumnh7ViCtqk$Bapc{{C??d6K@vbco{&jcBSphq=-}J#5q_NKfzlRki=n=jCD#kpc>A}B;=@NZ&epTYjOGIWvSnC>W4;mwZ>N%}vZrrQ z@acEeGti2=SPz3>#Elw}tUI@^)$OA6N_=CM#TZCH*{{aOQv4;!caFM}?|}RRYwdZE zze-s6G0c7KSTB-k{7huSV1FnN(~tEpaLL)6^r}B zBNB!dDnjxU!42?a<05Cd6(WP?`~Vu5PF0`YQ0u>z(?Y^8?*<0&xeB`NRIZvU9r5Sm5Iwpy1y8E1 z50%C6$897ES@1JYN_$2b(s&E4`eSti`Pfm54c`YzvlRoL&OYey9fF^5>Hl&DIWWH^qe>V+4d zyl;pQNUPA4Ci-F?URdrxPca0lORx2WP^6xUNU);7u0nHj(d)mxjnr?(D?t zS(rF*SF#*|&rJ-i6NgSr2I!W%R6A~4v<%Yd$O+_;O#~uyZCHTC*g$2vlYbQU2>4ld zS&LjbQNq1f-GET#-vZy#2XkDf+&iGs3zI<(Ug_q=>_-18n$wu}=-ln{e9GZEvmJP~ zH))dF)ZU06p6)^_B?rEb1Ph$xM28l~f|WyqZA^pHxiCZ(UGPew39GlS9_UuD!-vj< z=k@cgnC4@%JeaetaINSsoUr2F`^k;B5n#*J4+ToKxmmjL4#RHUVup?N>A>bC&TLl# z+e^+MvNCFNLZ-~s9JSZ(T&?0jqu{3yHVt|_1sY8NHM#?YnQ+}=<%LlSH$XRF#WVp% zSD($V!NLBlYWGHaG%j%~!Ftoly}z2Yk^U+c0G$U{vCle)&y4}CdvPskTdccwg5&kz z`uY|{$BQ{-39?Uu8rM>6LSrQ)@gQtyzNXqj)ZBS>Wd5o3>c`9)w;@k`=X`hZ8n@3{ z`p)I8qdR_)f%Cd##w%yOCuwME%i?8^Oi0!9<{cBYo_pDHiIpa7cK0(oZ6^hb+*jW$ z`H%`+Phh8&O<4IK2;5>kE^{ck)ha=5&ls#>I`XP5KqYmoPI4rbs z3eP6jg&^v0+gO-l!oevcSIjnXmw>P#C8tR3OgGM;uPe*$(d0Ra<~)E@ycAxQfw$IW zmjONcg+L$t4xhZk&URwO!p+O?RN?c@M1Q5qO&RO^U9nRco9$HKQ+nb%JJeaQXTP8t z%=baNNX^5Jp}JgY#(e=kj~`khA4q?)6F54Mz#@pp0|2Vk7;so7M1fAVU(gXZ9~NacE#3Lp zz1rF|AI169iO_#O9qp;Uj89c|xAe15esVi(<}0LlSy`g}aXGO?P&r-LvC;7~T(FYZ zzkF+PV}7u+=jK?PKU+6wPjh1PaD3I*hPR*d=}8waxN0$Tmf>mbxjyBw{{VJLF4cLq z_R7Zaq}Hy(v31pP*ovvS1K^&bYyor29P3GYc>Lok6rUtZj963Z?Cki4L%INmj+YnWMOzW z6f`^-sOzwPrbS7l&V)p4U+)-0vrHuWiwP4RY8)i46O{pe2&6{;A_sZaRG1rk zP}#yoNajGu?8q#Fi56>u(&+3`v`wi2HwKb0CNN55Y9MyDfGNo@6P5-;n0-bvw+#81 z{6QM0;Kg`lK^PZFm=nn&GLm>`G{ML*!dm1@!<0d$UaMr8{>8BIh`?L{TC6`R7}iRp zG965sbX1+5z7u!g`+2TMl~=^@2V5w{gBhatZUO=8Lm|voM&TV3yfH9^Suj+dXbKu$ z5J!M7w~1eADoc)4p;0uxZCY5gdVBSIgnXdrpG{>q3oBvK@7*JPs_r4lUD>B7>-Z>vYLvy8+{DBSIs)Kh=(d+rDh^Jnwo z=>}Jqs4AZlr@>QC{BhcH1)e#8c({o0=Q_ZrfR`$FY+C5-Z22bPLnl`2o9`29L%C>0tuBc3#(|@p{tp9ACx74fY~Lg1 zdtq6QMHgYfQ%?EgJORmQescGOC-#fkf#E8=ic&)bemnfTa^mg~Tr|_)#`gaFDm3|x zKaTkBiLc|SgpM@^nc6?o%vL$?4>GJ_k(6%ay~*cGwZyBIQ7``_uc&60KRw39ft^2z z*Xyw+zXDl7HlUCMfx@a&9mjS7GOYoW!n!jVXH_BpPAmVezk6JFQU8#Bmxx&WR3{?$ zbL4M(AevcEXEUMUO z6q@OTUCopEhyQe=@ue~d^O@|_M{d{^Z)oN6KUzXGJgw1bK73(>#6o)uAja1W-hG7m zM+vOg5}q9NDb3cjD@+5EYNADkf7H(G&dztg8Kte7-aVWT*tNvtU0S0t3WDzC{~fc>%2L4L_eBw zV6SvD$=sk&ug$KLA-x*fJU%#~-d5rcDpmqZy(6J&(*6+*j%2 zdd|?fcC4ilv30QxKkZc2KJ;9nf3>CcJyDJ=G)r)lHh2H5w(v5}AVb2*jm_(r^`ze8 zZ-8IuQhtc1U5Q<+=fEbcw%Sqi`jm-U64l{ZLL4!t03y*C7#@UoPY|G-O*t7$en21B zL4!Q@P2dg@*XnbB<2mtYsV`hnByjwRBrq1YK@paDhJ~JCeo_lSMz-m=D!Hy{sl2yQ zdIM&^dY?j9LJhwmk;l8uo+&K1)3}VKwN627tG>RDCS&x=lHYZJGDO->3rlQ(UT_VgK1}d~+v6RS+N`N;v;ffPd{aM^k_m;6LAg z3rHWS%S2C#Vzys=6m1XK>_M1EQ?LC=KGxM`&Mt44Huu5f$DHA?wDZq$f5Uu96|-rn z{1x}21!BJ`*eBLS#X98;`pYY^*fZm5BmGiz0fbPK$JSK>@BSwHD}kXgBIMZfJS)y5 zb9Ca+(RV38tAmj&pDF-Ru`P;T--n6%0$~l+20E?psno=b0{j_2WR~iQ^Cx5$6L~ES z-9igV{X9tM49fJV1V16&LeKRLRm_^peClJVlJ_@UbN67$;S~so$gg8HTroUNpiH*9 zmBzho5>6-Xhcu*kh*6pcfZ-X;)bq=BMni7-RU>sPevhnI8RScBbL!3bz*y)1Irm^U zGq!>hy6-AY7TC?1J?X+ucQSN03;R6Ss8cz6#OdJ83G%?JwojwK>^-jMA=R(Y$yCv!cD$26+0kxNKeHe}jIzgVOHfmb>@) zjFZxU1&cnr#&v{*IXHr&#TwWEvXVm92?ns3R~e%)SE=Z|<;Cy<+4|laMlLR+#MH&R z*35wq6UGec8mD(8TeUryUoMRv+n!Zyu1QdcNo@e?cJE=-a)|`)erZ+wUGn z3Gi{&7QqmmZhiZNb2PW0k1jARnV|`V?AXEtfM$VUV!kXO9@HfuHZqLN>s)#Jtu0{K zzVBVF>^pJ}1W3uluzlHc8o`#f)0`R^QXEL)@>7{51Z!*=$L$_42~vz)%vGyI!78Mv;Kt;MK$Rs|csbOlNbJq8dp}auM99ey3%V*fw5UTI#WBU& ze8tUjnrI8qoNV-d3HNidtIVv<7ZY6*0>Y<2}US3WXWe_9rO3 z*D3#E32)c=bHH{rUpT$I>|~6Ai9+1jgm|Drd#{60M%JP)LXiD=EW+f}%9SNqa>EE# zC(r{5=L8{x)C1i9Noe(H%w@H|y`>~^_NYD_(&E6uZiHTklQf#r5XyYuhfH#V@q0-q zuel)%&T&t2Ig&=2UKQKy&O25VEiXY8N2GPs9*!oUd}5hUs3P4usb2Z3+6Dy`X6A`o z4Kra@)xx$w)$-VAkOSKtb$oM{XrG?8e&nDH#SoRRg`@*_4a$eu}V=07?!) zAvWX(%uDC+Lzp6%2tt2e1s?QKuiODel)W z%d2DYeVi#9Z5;(h$*_hNBtH<986cq}s&TC}wTeQ7FeFL#Zy?|hnrOyg1=NkGi4xmv zMjXk4!`oF(DO0pCi@mUk1+piL#gVEDB|qtQ4;3Gb&SK?Oj}A>In4Nth4F1LE-BwyGOi-r@(L3SQ%Hh`x>l(qu6jB^b2YGRGJSqI#;k)Dun=h-b-0~M zTUJ{?oa}9Ds^JN!Y@5`!qE9L+$1^&go*k7=!{5>l$}-`vVY%%_6?(ZQY?7_^`?VsN zG3=4z9L*)QW;N|taLkt8N#)58dt4K<`3WJ1Z^jwMD?>&Z=_`nmIm`{RnCa_V*5Syr z3HpNUSl+y7sdAW{a;&)%rWxxopFA@=q|ynT-YbGI{r+z>E?If``)emq^I ztkZ|%;l_>U;t0-=6O%rV9|F2*;CO8>uS0JYdkC0N`?0)VPl)LwMvT0W$3>Dsi$)fs z7BLe6u_yuJlC;8hvK-(R0@<8P@ILmKNIZ*`??HFNP}u}S5Xybp=V@pLff~LxJIrbg zN)SzGg&;DyWh5O$vzv$A3w$0X_l<*}C6jK*NIcbVDh9)in5|8EuGKQWHTT(-zTCe+ zxe`i?%*?I0ZXo<_#OGxDE0KG;469=BQ~`oSoG&B?Vq&Uecwx&(Y3y; z#X(PG*lT7BK_?m<-hrZCs5}086&g^Y=_y?_9K2;;d`AbZZUEu;9v$=8w>Uk-lpltd z=qTF4-FFQWTRtnG-z{-7oZVN+yFN>`B26+VE>Qh|Qua7EDXz+Du}u4N<||)+W@=J{ z_muL!wF<7hHjHf3JM@TBDNnD^aEq^qsf`=y;AgI3_d|;eKbjDPQQnO?EGgWnar4;B z7SV~v6uP<88%e+lhCftRY|A`B6a|sLkVpAC952erzq}cGo8H{;*{>#zdIti6^ruPn zZEgRysFFC|lL8z4Y`!RmZfpmz7fo29#;Pbt#KXmqBG4F7z zo4fmk{*|lgepw)p?zX8hbBp+$jnMj|Go8-N>M?IP+|S#tsqfudxS+kc&sm97!s1&X z%%4v=FwhjzBtq-``__Pi86N@SkwmhSpM$C$(KGy)+1DgwFCOE7@BHYq8p8v!IH*Q6 z?sdnB=SB$HE23krYVT1DkIIOw6<=)GAmGRVx`^oJWc?z&f*-#{q z4|Fm!2PdQVb%&fBwlvccEZ0b>d);P$TPDa@P&Vp-6ErcQ(}+tuBbBXHn&@{Dmb|CU z!}|;Zltj=Yh-%uL^O{2B@e8oX!Hux>w6Z%Yf_zk`lgYt}BIt|qKs4AIFOXTwHN$(v zPi>t#3KE0C*Y8fPX-OrePDyob+6@rL*&Vd4!T*3n*p@odH0r~p2_(lJJ%|&!T)x9= z?{RWv0^bGb1emKNgF~G7s9l2;nPf)`CEW3k5(?hJ-%fPD;kqV&!2dh#$xA`J V<{SI#ZUi3W^Q+g+e{{RUL8Djtd literal 0 HcmV?d00001 diff --git a/vignettes/report.Rmd b/vignettes/report.Rmd index c26d99d4..6e815a14 100644 --- a/vignettes/report.Rmd +++ b/vignettes/report.Rmd @@ -43,4 +43,21 @@ This is an example report using the `metacheck::doi_examples` data, shipped with +## Individual Results + +`r metacheck::mc_long_docs_string("table.md", lang = "en")` + +```{r, echo = FALSE} +downloadthis::download_file( + path = system.file("mc_individual_results.xlsx", package = "metacheck"), + output_name = "Individual Results as an Excel Spreadsheet", + button_label = "Individual Results as an Excel Spreadsheet", + button_type = "danger", + has_icon = TRUE, + icon = "fa fa-save", + self_contained = FALSE +) +``` + + ## References