From 798ffa9d2f7cb52e945863482b82cc76b74c23ec Mon Sep 17 00:00:00 2001 From: catalamarti Date: Thu, 3 Oct 2024 18:29:45 +0100 Subject: [PATCH] merge main --- R/sysdata.rda | Bin 8379 -> 13869 bytes data-raw/internalData.R | 8 +++----- tests/testthat/_snaps/appStatic.md | 3 ++- 3 files changed, 5 insertions(+), 6 deletions(-) diff --git a/R/sysdata.rda b/R/sysdata.rda index 7cc2f03517946818674f001c550eb3696f8f5d08..ea2d488bbab23cda8400bab2d89a156ec5b588a9 100644 GIT binary patch literal 13869 zcmV+|HqyyLT4*^jL0KkKSwrm?3;_65|NsC0|NsC0|NsC0|NsC0|NsC0|NsC0|Ns5} z@Bjbp|Nr1Z-t@0!tLXc!^WO`)<@TYTo*f&Q$OqGE(^|=f-rrAGrfYo%3EsfuNL_DN zT+nGjK*$PYQscpP`=CAc1bgSlUp@}*YP;R&08`>G->YVz2(=@sZ@%G&v#&bXeRaX_i(OyJAv|q zl0s;j0MMFYGGLl%lMqiPm;?-(001&*G8ltR8mFcs(rKnjZJ^Pi9+dK)PfB`vYGlHn zpp*4a(qSf^5(Cl(CYk^M4K%_@5CH>5f-)vdr;>V`N{`bN^*pKU%BQkwZ7>x-LZ78Q zL&VB{k&)?7CW+~(;-1h`W~9@`srn%esp!=5X+5bnpa28ZdXG>58UO=9kQx9=Vvvwz zDtjt=o=r`t)6_Aj$jv9D^e3t6Jfq1PF#)wbLFobI03N1*06jox0MkGNN260FntFf$ zXda`~0000RPyomwDkQ0=qH212r>W%t)6~Qmo}eG801W^DX_F9W8UPIdH1!5R0gwOy zX`!Zppay_60000Q13&--Ng#kt0H&UrnwusmQ?9 zQfhv}3O!Tyl|8BIN2KypF000Jn z8USpld%;l;|5enYhtB+pPy!HFECFgEP!K*pDTEcJRft9?gQ8)?9(OyQ*abYxJrE~U zqJio_{%0UbXalXYVg+K_ZO%?5o$clDluL22X3pC?ncd0#3_(^T+^A;2IlbrioEB($#LB6 zo9_Qd&A_;d>tm>n^dktw?9|F;>YeMbm8kFC@&vFyeAkxZlq}&=uWpMKDoNHy? zvr=u}B8S#9lWp06%1T4_#$!xnrJAES;A%;DA7P3%WQH7>5{yk>l*V|vs3^!tcNipc_=9Tm ztC`00nAx|-g4FHLy0wo$sQ4*GsDOL9rJP7z;Nlu-QGd-|%$BWo@d9COA3yx~f ztDfl*CmN?tl0u(f$HsztsD<$x`1H1mYNv|;F0qK~Zy6^8B1}+- zQYXB}X~1PpkSnEQt%DKcq-cH0@laQhgzsMW@?1XuCa4l~rwrZGQD;h<%Qz8D$U+6* zFH#R~5HX=ku8_2h0tj0tfS`mbR9R4Z6mU&NAj*4uocGTq!gL9qc9D}4XT*bO=ph1$ zMu--Pvl@YMuv0{Z?bfqJJWD%r`Y!*` zJvYyv0Opwwck5l}q(%h@qfh~YMEXG3a5XxOMxoLiu*xB*at4;dDc3##p181<@I*$S z2aBK?Y6$^PLav1LVhuj%ITja+^^F36c~}<~sNJQzTuw?@;^d`}2JcL&QLO`%Da@7i z6*nwLFy;d0tkAZKOz(iN~$u zeCyCg*Jb9p2rQ&$@XviGls+Omrf}&aVc}}#eN=NkNzyt-v(d2^=pK}u_c`c^K02R; zq89e=!u=qovm#XBV5+o1gHKR0K*u;TlED^eMZvr|raHkjN`U5z1UO<2pj8DawJk)s z0;5b71<+oitT7Re7~=95C`+n!4w#pkv^m`1R-mpNl>`ugT9Jn#dWqgD2UDr+yJh+> za(bhv`j!w5oIEHeb{k|5Wo6QCXoG zw1+psaPk&@n2SbYZ%MM6M}1{BNR+iI#}DW#XQGey_2y=WD|%hl^yK74%w3ZN$rN!f zQ6D{5Wt@e~aSM^fmi5LlJUFy8)luln;`hMQSz=dHnWGTIG0uFAOyqL(ljvn|FRQKL zhhe7T=4~!D*Ur-EY-*=9G#PCbZ1r|tG-#RKWps^&9p5HbkJhMA97O@MGT(mL}i6 zA9N?bJC76KFT7m_7sUll8aVXj6NaF+V(DiN%SY08pClw{N7iJUA%*}PCWID>{0 z?~qCpgsTLZd?~h6Lz9kkAk|@GO(@KDO8is74eP)Z01}G?Q~0LD@xwL?g5&XqVI{cj zoTx}?({RSwnaHxMXp6+<)+Auu+!QnlQp|UJ_hfaJV2pmGpj-wRMC5|Rh7w57LB%X2 zO0=U5QmdS;lmY%{FZjHxh|rOtj!8@Hr~+sv!$P4m%7GyyN+dvVHX9s!l9ssOw)P}h zAS1&RQAa0dEU1!6B!(TUQf4HkObH`BN*!>w#;Kqej309Xd_UKooL`T!hQ6}p2Uy5Io`J-U`Tg8*RYS$@9S4u1FIphKBCJk z4ZwdL4@46eQ0WjTkfH?hG7u^;X1xi?gyFCP4Ey2E8*#zh5T6O{L6Ca#XcF;6AW`D` z8hlHVjMfV{lwWz8#W1}nVk9?tOsi56Ylb#UP*Fv>sP9=&<1yN@(Qq{Zl}CA%3dhMT z+9Gx|QbI5yn!2fC#n7lJs7bL2jcYgthY-^=<;PjO?Kjgb;xcR;T<6PYl7kNg;!GKt z1wnsxZa#=7+}%Vx_1`ej-EixDCfg*idz{t4^r#Etid)!P^oOU3jj{F~n6f5GG6p(h z1LlS>^PR1~zbTE8uqz6e>P^LpveJ$q3ckZ*p}M3uz6_jTfF1M!h)X-c0z)6ddM7yY zg?H2Ve&qf#8Ng!+Jq=?)th$Jq{2xt=gAsP1y<|@cEhX>#2f!y3VxQeT2p%>%=O>M!D%c>s&OO`(>~|Z} zif!~bhKE52)+y4gM{nTc#Q6Am)$2XOR!^U^r+uD05!j~BS;Q`^ENUdnId@*=sDb1v7DJdh ze7yXYMi&3p+*SSW*`vwc9d8$nh1m5!VCx>~m{qA(p>9DdSfjmZA7x~T&)iRS?Amk~WBSF3YhteH6%7p~Yl+k_fA}I*vl#wf8Y*tH1jB$GM zjqdkqmRY_0kaf`!$3hd7=x${ErGbFaOn6Cv4+)S=36OYbTcUyCKO{uo8mz2$jy`i! zZS4JABdB-ZtbL8~w0M<}6Qts!de!5P_n%P_n#q>4JfQg@r>P5fFtaRM1z=zV=BJxx z5c(jfxcd7OL4UKhq;hqC)-nFHx zx18a&jac+u1kE)W2c+@77%Ug8y$8E2cF$kj9{0NX*NMAAIUIiu7ZHfD$lRZRiQZUi zkf&UMh;)I`>>}(9tDTb7d86Z~nIaXGL zO|_MemD=vrcpqQf+;aQ9pN}qdC`tp3MfUy=FzB8iU}JUMCB`R72daBS2E-`JK#nt- zfA=$)vzC}F)^xyuGVgTg&>{SRBIRxN@!v&<+OBTbodLpRSqY8=q=b9wT@Ov10y2jQ zkJP?7JNzlztQ`h_dFj$ZMp$#M3O4RpTN*EJ>`rJ61CnRv+>hUTS~3L6j4vKILVi%z zhX^wflZVOJclKr^@JrSYbqW@UtSnFZo-2?+o+jf0e%~;mAc&%8WxF1fkZi(gUs(88 z7p`10czNZ)-+i5jwbME=rEJ?QG@xe(G|11sBLHrzfQb;>4v<4lnnPz0$fftsfTX6U zVUUdL0#gjEdNdg_cyhqvB9=pkMvor$pYERwjZ+LSv}BZRQzD8fLy8Y0tLL2))b66m zQDKt!C*zJ3Ina+GAt_G|>0wx8Tm^kI8sV?6y742835H8~9As+>C(+zVE(z3`Twft4 zR;po5W$uMbIO=szKIjAOLY{&2KU(6nt#?Ok<}{A%@+h|f+p{X2{P~{U3>KC9BA|=^?&_>!#?EqK|Ec-}2vEE5=IU`>E-Pc>wI^=)4IO?A# z%kxeieC1QA)r`)g>z_{UzHbsIq_TDFlWgvnba|*baH=Hpd+seOnWlk&zZl?y9fF=9eA5WTZzo})xzduD@^m!gw>;=aq^y#^j z(0ReGC|HTm{5nG~G&G4&H=a)jDwWn}4R-|>j1*E14jPvXhS6U{V&v=y#mpy~#HB*}} zl9r&bc@C{c?}@|OtD-BRa-U(GD9ZAH4jE8SO<9^cqnYH)y6RY^?d=Hrk#mgHkP zp-nh4Cz=GV;6XUaN^bL%!8cAF2qz>y#M={maY#zD3*byp5Gm`+JRLF0exS@AB?}Gq zuI~Fu%pfsfunsn~mKJ1K!V_C#a2_eckhMaP=k{AmM?Vd@!`Sz%^w#Q^0SC$zAwr&Q#-@RAo$n+! zoC`9L?<3-^}*o=Ddsp&1E@FmyZ|;a`Gau zu%KJKF&WzxvJECj7YRuQx9Y^K4M^Zt6Onx=1Cc9RVuDx^gBz+aQkzt z93{UP-k}kpFvSXqEBK-(?lui>LyfAowsj1>uoBEJ~5Ru%}4D8zU14DmM;-S*8&pQm6{< z5DT3yhhDxTP{9}1O->3^)@Wl=Fb2iWOIkwUq*!G~LJdy1aX}J36C&P67ZDJGbvo9T z<`VSfPfN$<%{ElllC$jx0u|#**l)=&@l3$!Mh>j<&xkw@PT(fp;?BbvZqR)+qE{F* zi8hsE9IZ0@j=j_@^pzo;Z5x6--E`SPE}AX`j{Ymi#SW(hS@H+L^OaMzF9U!ffkza+A+6Ic8&Oh2V2i_l%B#_5r7>tb4Z(^ZRYelY96HEAdc;Es z9U)dxe8HvANl+9D3M(f}4wC86F$^UWAn1&QbrTA%=Kk1#pTIv%AtVTba!rw9$l)l3TNH?P+UeT~=*5Gvq6C=nMKWMY&_(KtVh>?-{*(-n(PS4=h~jsiH-CtnPx!Xg z)8G7$N*B~J+-e$vpi2WNd{KELD8+$5G7_&I@I52C91)cO!l6y~;%KQIZ@Q$2_iar~ z_%Qlr_I>n_+}ha9b6P_z!yAmu&USA!gny@|JlGz54lMI(h=bNk#PCXul0q{ncwU-f zUyy(_$hM}~aT&Bc&`ID#FyqxG(J=8c)qSV#(T{NbfNyzR-!mrFgQvggK3Ta_cezZx z%R7t8YA>8Xb>#Y<+FoTH$pijzD&KMT?WGIO^ThQ8FL!#wOML{lM>qB69n=_rV1uCV z^bhMhCV>ACfKoGkFMHU6n+M}SxLwC+eUpQa@+DijbS#C6HxS|bk0sFMki4PiI0&;u zO?f{AlBtzVH0uaBuY(M`4Actk$vR@#UNnkIvx|&mH`oc9ydE*+a>C6Mt=M2(JOU9FvSkGOs z!=KKqP&w%L`@&1I5+f~}6Y|q6^H4OI`$I1e8D$r1(9LhGr z(2*kWKM(ZNc)t$g(e)=k=9*DnFnSuw-x`C`h$$aV#=VjT9z!rDVPFF?iy}${1j8vs z2_zL$B&!m%P^80D#E}FO6C$L7LIjBn3?VGS1h5jy5(Fs3Aq@!-5=@aK)Wp=(MM*?W zQ!ztLF;ys!)!mkaCK+gu{hqfwW26iLD@n&MKopQtl9HAdq?4`OT%cr>D#`zpaR1#) zvt5yy>A6f{5s1P879$AuwzxBh@^mR^B8p-n2q20g2q20GG6!h^M3O~B5Ya|dPQ9(+~1tn0>iAY3+Axcz1MFkNBAxc#R4G|<%#1TxTF$7IC@&I;sT_$xwxZqPPNxsH@8)bnUC(iiTgnb*ok67Wb_CP%z+VAN$j>Y>d0ebQkiR z^o!-ug!g9TiHI;HlwgU+?;bsKeRuw5i(INT33_DCM@P_KijX9LJN7}GXqoNI`A4Wc zL{tpseNgJO&;7-CufgC(q%1=8Dj-yy%~^VQ=BRv^YMd3hTo~rFWGmrvB&~O+~or??Sai++Mty^z8X?@2{u|q#0h7TyCT5Vjzi`c zaqpGppBS%leVIlc)8X`9i~bUVhXF)DK1&X|>xl`>u!4c@Aj8{uA3?ri?U0#-Q!qto zQ6W*WA_@8%1BxVx6#$NuB2HB9*iNQNtzJB0-86D$&aGOuTP+o?7^|xWA*&liM0Cc6 zATH|~7=k9Kj$G&%nrM!OG!e#KRg4ZIt}V=JWp@Y=-K`tD)Jjelfmv4+OgNM5nT=7b$Sl_lr8R zrAfFIvan8iQJe;4CZFx3Z4n!B6j}*f`JqzQDiEFIsj6=zB8Ce`I~Y(pcId^yMDZ%rE~% z%x^XS`p3ve$VMaqlXAPxW=hQnjgaqN@<7Q03M(Nz&B_A|Y1)U#o`zai(Vizu%Cmdp zd;Gfmc%1k7yK$V71)w>4aurKbl$H+O9W5xvFk*;Eq7s#uJb#7r50eZ)Bt#33>;G@f zJ-k7=bBq>J9nY+;&L}}1+{E#qRyP=s;DK*G>40B3oJwEoD(?k$f1&AP@7rIyaQn}| z``I-RP{Rh!G!dgllH(GG_8+P)xnzEG^bZ{(*tQ{N+}!n_5!`6;w>CDnx4w0g^KK`B zTg}c_GOZSh3q_KG$pIO@EfA1}M=aMapBVk4t1TJ@^7%1v_~fLA47hMiqJs%^!f%Sr za^Za66&McO!d@_(vUHs&N&<+WD2fu0q$vtP@dtvryY8+>m|yexer=zvj}jRto@QpF zX+aDz!g%s|GZB9T8^|b@)fDk-1L&tDWR9*!P@&xgmxX-%8=+GeIj&D~|epx1-*A@<9Xq z2{KxanW@X3-P?99Te($NQb%artp_;RHR?8wj#XCP{X{mJXG+1iCgB7ss#wgs!@y>m zGblnGF^)-#P8*=N3~-1MMl}NOg?MqvAj~i7i;(b-2)JLk7a@5Ihx`NWPXsiE2gfc1 z?9>ui46sCyx1;yp7JNCIu6%Ri^}2K7z0+5e*yF!ZIp+v_Q2a*DLJoBhM`y$8dl_aZ z3O^eK0+d98qA?X0XOaL=0E=NFD#RiJQX3R13Oj26p!Q@SEJ~^uObBe#ff3sxDYcOV zVn9n|1kxz6sK|++7KB78R3;P;0kVT|U{Kh~x&T@g3RP$Xjet!6i$aM)D?$v&piGET zfg30~6=+Zmq{@cbK}rQ$MH&DK0BA(&02V||B8?~|3YbJ-K+qw90tY~)0;9nqA|G@> zpqxPQAkc`VN(P?#N&*~0qLiu#4OJ9c z5Jy+rd>;4dG16`)c~QC}=)(b)SdU&%!;y&2j!3Ls_8R(3676W+%exZUZEMfzdAUb4 zQ{iRLU@jpI6#;-fNFsy6UcU?`if2+{rbeN*G8wFp-^qWilWmQy7;QTBFypc`SsN8J zR&p9t6?#h|Y1Id|E(5)emIIg|o%lxsB{^Uiv7%uX@6-#dnju8ms=P0wOanZ-43;vI z?#h#HD|nCv4&26o!YPRiyVQ-gDBZ(Rh0UM=X%B-!Z%aW7w9qJ-;b@z+>T=xd?nuc& zh8&!-qDzgc43=)31!b{(0M8c7G}BzIF-f+%m}{PCZu=(so2fj+0Zt?k1bqk?kR_Bt z5=2;JKv-E&0tr-!00J3N27+K|7C}%D3@0)G=#~;d>yUsGG5oTjhKl-hGfwP(VAUBuJ8r5ilrHSt5%Rd>jceVmnqOMr5Qayhx}*h{{AHfFm%66hsgRw5SaNghEg?+(D!c0FXmTEU`lpLWgckz_2Ld0S+Oeh>;Qa4k%$^VQYB&{DkzAEA(|qZr737uBq&iLgeE8j zu$GS%fNL!zu`44Yaz!Q@R8*J;m=#Wfz#DWV=SzJQnG$FNYXvfUun7XgE z>1=77Zm7w%TZa4>WA?0>u13Q)$Jh3CX&kz_c^GflSAE6bTsbo3)#)1?98As|o4&uO z>R2PK3kZ|0lYS%XD>Mk4jGB5vj=OKz%8x;aW}A^1BzLSyBNj;vg_}8E*^@zJg7DRQ z?M<9czZ{I=)j$;yY7E!?8(zfUi0X=ufSP$=;ziIX>xeGEJ)_$7bo?R+MF9PHwc+81 zq}$PV57y=4NrebVAbO82p*4)~SJ2~c{4sa2mThOfthxVysfycYsGi+dOy;;{vOs>b z1(9NveHRV~2#NqWOe5Okaq&Jlr|bH8AH{d-T&JNFxTR1iO`gUFVH1zu_7+vUuB1+u z7-4XrULCFi)jK*FYp%JPLZlSi$+a14G(#x-|L}*o@{@5^15cy_m%`(*!hGUcT7K(w(iFa*%%yQyMn5h5GYvMEY(yA6pySp&+(a+-2y7 zH71)1C<5oyEd=5pP_U8=+6mB@NbqT)BRJ7|dt_!Ik%;wNd;pD~6}~&HsD@C6cmPmJ zx$Yldb;K3F#Lw+Gb~KwK#?Z{(6Yow5j`Xr4;7z|s{iDi0$6*p0m%`v-OSSKM($b9y zDFoQom$`)%qoP-bB4%NO?>+ZPb_GhQsA7rixdK`1g5m&hdu{60J*xD%ITa4(W*!ai zT7QYRb)59j+Z=seu$Ei%Dw%_WBhfH&M8J_76}K+8P7LB3_fH>0n9L*LXu=}qJj*+G zbc=27(4gY{vD$tpZ5UuExFvMP!Qov%azgRXu<&w94I*@kQ~vT{5>6fj;+?6~>WZBy z9hFa;6l6*(-aUzlD7ZPcmDL1UR}rh#S{4!At@}HPtpjATEc`{aVlkAjVoMFNhY#~$- zTn%J^Ysn!x*>7#NHfFI(T}(=sli|axoDsaR&^~5CJaPWHH-c^A1c(ucxhXOkH%ENP zQ=%yupF^C*QR*h4>l|0+{k|fbn1BzU-YyxG!v?cO&(6g?vKae>#)JKe-;mJy@#y{Q@<&fz+o zy?nLoXmF#TVI8fJrCVF((u7O}QhW zn>N`_4$5R0h!m-^Jnc)K5<(nrRBeEFx{dtvLSfoz=nk>h>0cbJYU>lj>Yg)W2_Rxi z7#TO)fbZl8z%D3xu&UQ8B6Vg&N3)anR!Oh{M*c~Qbro617NH#*|S zV?i^6gd&-?yP0CnGQ6~UzB%`gh3%(iI^HPcNYG^Cfv;m7q^q13Qw^7pNm;A_5dyOt z?G=ffkXBK-)&ZTbG>$(O%aF@L$*Pu1TYbNc1=05^$b${B#eX;IM}4HIbe{pm1wxhzThSQB)`*(0>?AwYp0WNw|Yp( zT8NnO^l|b?R<<{V)d)``HOI_(=`E;pNTy_4t8J7EL4;vQgeQ4}#vNhJ|-&zBh}@4b(u+GrW~`5KZ(d&u&6 z3luHF2B5fgsvX4%QGQfua%{&iCx)CCH^`!-liWV(5Ut6~&^;+M&%v6$HHc)?k9S2^ zKUdT9UU>S>k3|};{+&8ITDPR)SA*B@Ns}%F>iHN(+7=NPfl?i~I-LG(8V+gNS$1=( z=3*nH{@z04`-(%7n+73>>Gtxqh_Vm_H-W2l_C$KPNoOuV zW0mg)bpXtVjOPr%@uLzG;ch10{?I_<5oc664+rt@Pp1&TC6 zgoR=X>re{&>X|pGXj2h6gf>BQc2qXw>r})tQJ5MNk;fB-uVk-bwOOIJg8ks%`(|tU zH}2noRe+TyW?&hU7TYXJSS^ArWeLwV&a|uZ?|$P%>l0y#B3{(h9KExE+uM>Q@OIO8 zZ8&#By?+_ys`^9>!en^b$21d>pi&VR0HnloX=-GYGH0@(=4S}@q|`Qhj2jnF@xm9T zu|uwR4mpiXn;A4!*MW2d|7FR|uH;!e z>nEMn+>PfBSm2n=lrnLF8C7x2p@XrOAahum>_@_>nqMf`2RXACYy+^-bq+ zIvisD&pG0kIc$RQB7ufm5kc*Upgi5)y3SBIxtY2Nat~|S_HgS+M)yX>fgL^}WEC4~*6%foENZw8zy}raqPS2S<%#tCjalDOD5$78ZdhI?zk~8lUAdqB= zg>E^KfFCKdp9Ndd8^YkBY&6ccC6m6teBcD*?(XEsK#`J58LKfAIg(J}6GkLhA_)+( z20a=X>jqZr012oWR@(@OwS5eiTR6wuOz3@0FVT0_3}4!d_oDT(gt$A4Zz z9DTkw4LV1?f)sF4*Bs}F@M2sUl~UQCibhZ}pkPemB!f)fb@Hh5q$ z1WmS8A~Ym9^;^dKfMgAKkP2oH5nwIi;qCYe)f%O{BM}a0;%SN8vkV1MJ~*ixP70O{ zYDNW;wohr)~{n|1!EN6{VD42zU$kI#=tf4~1fTJ=m5SR&@Gs$*c28ibqCVZ5cA_igJ zUL~d?rXnW{8AgpB=U#_`cH^bRBrFt6-Wksrw$ie2CoeA+3bJ|lLts$t^tKDb(9Y#e z(9ec)5eY`rIwVtb5`{6+yqy&;oY^CO%;ap?-j10#MjoQvkTsxZLJG`BNNw{XaYS}k zxn6ne6v?;oY@yD`=9WX#NLW65KP-7NFlLF(O~~}#IK4sU{0Mmo;m$d$(6T=R6dq?; z)a`fH9p}1n_36XB1QW1}{<7e7AkUA^VQ=+G_40)W6P)C-jr(}F+kkf1k=U-+! zNOqhHAV`koO@u2YDku3UY^q>+fx!3 z3PBMu#{ke>0=6Mz!>k4uo7PiiOx0H^+b@@^8x-d$sW(O>lg{hJ^fKhA<}b8Wrs1Co zs}Xq;Pj7kVX^w*QtVv&ecHXm11MvL5JhS4!TL}Ke-s6)q8EJ8w0%DO^m2o=$<{c0x zrpX^T?n8(!Cl^rF&i@2H zOUV^gxIm5-aF46Zby$1dz|r??;Y^RLSI`!NOor6bSk%k*mfjMq$u8_D{=DJ6}sq@OM> zQ!Bfsp+0=f?LWnV@Tb!qgWdRxVZ|b(P;>OOzF*>$IV1EA0>GzK#*mgDdKoHtlKh0^ z6#t3i37R1-W>1wn^L~C*e(}5?rQ$Le;7`fQXe=!x-dSAGZ0Q8PyxNHps}xkUylQg#m8|L4lNm)SB~6@(#Bml7S`n} z@k?K9^sdp1OD^kd{HpC8Uu9;%I#$2XF#@A7iS>r-sp07HTupQ2g>Zyx4zk^|rK;f7 zm2$>?8#3p}8f=8XPc&)JucR|HhKS7~;>bqnYjIJCx$tW4JCry#mZV-YYVwN^9uH3$ zaf(l7f@%GhvQAl)*0F5&jY(!fu@g!@0ceW?vRciwAb^st;rorRBfaBAnMXU|-7aJX zWG5zwj$(^hS)$}=H%YXmd=(MNLgacOE~QD@6Zd|Pv+MgmgVp!@zW;=K)|{>~8}NHt zgQU|;Q@8n0=*N*zF=8=kL`95unVD?FmW_Ep5S(=)8Q4UAx*znu9gvyXWK~crB&S+G zdL8IDT_mw(F$%DXc#~@}Thq_$uLy?x`g@kva34L6)f%z#qUY7sksx8WScA_@m-BBN z0h@_|zJ2}3=Q^;TKYuE23gN#z-6>DS&yv6YWap=K^1O(V2`MK`4UJsq^kjb-wiADc zGZeKmJO{K{=MQ7DVydk9clE#f&yeL8W}3K27=4DJ<^l={2Y;-R5|UP)Uuw)c2YvV7 zfq8j(acmAznTGJ$V_s>aldiq9&gF7bkE;2GgWmLI9VR^<59lhZY#C<#W#aghj-+Tl z!$^XJia<>;QIQSB0f-ee#0YMnph`j-Oh`y6A%httr3ncHI$}dWoKQ%JQbIJzDULxv zAc%@`C`llMHp-^Z#39Bf2sXyp5jN6s6^mnI1s51DF-F+Yv5A6XY&0@NMHdDT%fM~Q v;ox8vFu-Uq5H`V51<`-%x literal 8379 zcmV;sAVl9nT4*^jL0KkKStN}Q(*S*-|NsC0|NsC0|NsC0|NsC0|NsC0|NqbgKrjFX z&T%53Tshzi2We+SYGO&g0yQN_D4uSFPs7E8ysR zQ?3BH1vLUfr~;ju<+hP0MuA1`-KeGORaVU?qOEIf*_^aeNW$-)?)r1w>?I;iG}QD= zn5UtsjReW3hzQy=G@D9#pM)A3B6?{(q@Gdv6A3Y?KPq9Sf_h9qY^EB6)X>m9L7)J^ zD2QYf^fa28sgbGTYJR4pPbNXA%_G#>fMjXvX!Q((8b;DQkjV8OQ$T199-*e1Vj5yH z41j6r00}^dM8qlSkv&EP{YjH)Jx^0j8&T<~Jdha~4^t7QnrV@tqfCH3O$d@ww9wF}>S)Azpz%)>Z4=Z1=pLjSPyhe`00003CO|4F z1O%89Nv1}aDW<3Bk3}|2srsksN06ENlxC5qsj*EoXQXSzD}2Akq`s(@Pmz^`)!KtTKKQxruaNP(tyQPJ{GF`X zpQVfy#>^V%#L>gBh$8q$LBzD1lesj~M@gNmX(lGrIK&?5@8u-6tsjXNixNxvJEBIT@zU_8-|TmRMF4$0(#J z?BK=_*$zG1TrDO>+2ds7x$@q(i~et$|JeB4>6<#vGxZH=UQL5C5qLBpAPpT* z(#wShhUt7bHL4|QunW4!3*GPhnv95Mgkcz+0q7mLK4+Goo|fov3kXbtT9ndGN> zYSdTBuHjL@2%JzxkD>(?;U9wb{v}Az@Zz2U4fMgG52Mv-4j}en_U~n+;o0h8U5q@` z$trzHlM<~&ElB&gbIbWH9ge`o9q1Lvat%Oe=HOu=qMY*)~uI)Mq?NMSQ4Zzd5lJ$43HZHt7&7TCgw z-QUroCm_j_qs$s9i6d4_L{~NpCAE$jVGI;@7;!qAdq*>A+i1XuiHew#lAxw0Rf|%^ zRh8a&oU>u~Pgt7lY_Q~`A`yfzDA16tr5M{slQ+>0zWS=6za)_qWL1KMd+q42SRjuG zV);o}N=pYoF{7DC#4?rwEfh+{Hz^XNi#Q*ipwP+oz6gX!Zj?3^MK(YpAdi@azz`;y z5z?24fSDH3APN}gURT*&SO^8g)3sE>!^d$hG)t-7Is~wvMq`qFhTe(sG4N~nSABkM z@^$*F1$W1B;3JUABhm19EQ3^p#IDrvPo*lM;do;azbmFP!HQ=?JCM!>37Hl3Gu|F< zIHxZtcT!V!Ph2nS5uSBD$IoTJI$=Zz=Bm+*Q8^TNFy>i(!)Diu5(t&mh8IUl6sxl68+;U!60#bwGM_ ziKODz9tKU1nq`~y^ZhMaST4)#FGHPQF2ce5s6>-sf(QU96Yh3YM)ByVblhPO-!mWy2*-V*pXgl^3POXkOVFo;K`m zXA(BY?|!e=ON9KFzCORzVN*V~oDD?X*J=+=Mv%o{?6y6z^0D8tf*8915B1^2;i%0YE*Yc z1{~v|r7KXX1#iVZp;NS(OA@7gp@O|?e*FpTm|oraAkEE`WH6=}7t?r3cXKFF(wte_ z7q&%>`(}{+x#iIdL#fOm!&00Uy5+Ab`#iY9dQoQIK%>%Cg&wI224O5{jzuEHB9pb{ z>*r!3DHZG)deXs=?3G zt*;R=Ky#(T;Br0>0G9+0ua56Iug<^|DK?WnNjhD>ODLGA%2V)J;Vv`D)}!eb6VS1W zC2{%qp5}86*%?h(X`^;bO42aFM{}{Pz(EoiW*z_#BIVj^Q;d|Tz>KK0)+5D+3M&&pXCdudEQe%fYR0Woe8z*6P^#{;l{c(NVNp*XT)lWSk_ppm zCh+COWpbd!Z7u_W)B!9~JOome=WkXUeSgqSo!Ifw)!h=~9t|XqCZxzNIV^?$jZM~D zUAWXSOF|VhMIbRJ8o1hhEt4Rcbxqwzy2`l5E_o|akI43;?m}pNW+S0r!m5Ap+&utta(?=7KSc_63KetxJ zZy$;G)B8Ad&w5V(hpge)JcL8ECBg}AfRoPw{{^RgF^?`k*%|o!wyYq0f587|7Qn}X zxu-rKAH=gb>mAecnwE%7$3f~CD4-@!Z|TtTbe~ZAe((61PSNXL^hLxq6M{b_`#0Mh zuu!l?OS#e!NMgbiZBU^DuB8kar6FOf>*+-8b0<(xZ8SMTr%+P|3T<4axf?=g{a?en z2ZE+*eXz+-S++*gXQvPhru|N^goJOrR|!`Z|K7*X#>KZFyHpM zfzRPv+QRTBu|^Q+hvS7k^qq^(ers1keXm-E3YUT^3#vHIjyT)>>l?FLD{0Np-gX{9 z=^=QIHct(>OB`fi!8Su13wrkt6#0f!+cI!6HGId?TpJRxPuWd8k-Bd1Zw_)v1>R8S zs8R@NcbW8B3>@4BcNC9r%0{jV3^4n>pMpWwZcZOBpv?Y{#bb?^llo@&+1(4=bDVTc z!;7}(2jD5bIOotb-G#9j92B)#|9*)gI!C_+uL`jtLJCcnVDHIk_gfn`giHg6?i;ni zvQz;o72Ppl6(9yqRXZlesvkDjHTdlW?g?cZSg0Gp9kXot+}NE;jx7sr%MQ1_)o}7c z?$2`p?HXA1Zhe@VU`8vo0+mPjqm41z!4Pg4MB84SwNhg%dqae zPL^;72L|^2h}uNhw$j&RH@jbpz@E<=_SXdS*iscPa(n2PiQnd~LPN})b))IyFF#Fx_Wu)7oiis4Gr^H1%*MvZs;X_3_DU-#_5_ul?_f(Qa=k=eS1ivTd?WCZ(Ejt~r_Q z&9B*p<&#P1uEM+~&Fx>bd}r;GR?Vf`$)Vvs$)xwi@t>Kv%0DVA^>6NZ&dKTU8`c3$ z4h&?#r5FLiysiTCl5;QEd426XMgGcVZl(}O{T|u?7l5O8alO~ z4$}vtx!Y}g8b+n|`TSMHPo54b=8!Ls5F&;-)L(OBVQN z6nofjMH2vDm|qlB4J^r|Qptl#@9B#|#?Drq1xIyT8_P0cCB?2r0b!#lc?Johay2zo zQk5SmgA`5Lp_9U8f<%(4u|LYemkgWRFp;LRzoyr`NOOeb6fp-1B|-0=f@_-`S2}Wa(S*pN6ca+5I?gB@ zQC*@XFya+hw-^cpL$KmCa1FF9M80%DcJE-iOt(Zav*H9Mrtd9-LM}}=1M$N7P>3x) z`4Yf9qihW{p7<_l2qNFm^kl~&1SUi(66@MJ7_tiri#_Z_L^%jTKr!{g3@DBlHML|J zhA1LRK{;*&9mA%?wR1&4;x$RjO(9MJh0UD7N&}j403}pR6#_f)^H31xB510@v)%#M ziO$^A0^I&DKR97pUmW#?(6)`W4sH24aUsbm6oPd!gntlWWvU)_8ldExVTSorT5V?< zd?E^{Zm-RzgDy^0I#Wy{AV`xUT@_0ah|2^tlg_PLw6l(QI(hyMjf{SudDA^L|E73$ zdMAPQ37wKV4xKl%|3s2iH106*GSz--`^dz23_3gu`-i|Vy)5RJCooB>Gw$=3EOz(l zM7u3_kiqC4c{4fiuQ3trW^j+1q4_(}Y~O9}d?8M(P~7fYmLK82G{-C?CnyY2bY?9M zhq!V%PLyldDW94>EX4}SN|B9h42jqaNZcZL=JH@=6D$wMDI4UpGcy)TLkQ*7)29a+ zyCU(5Mer1X+d;gAiUL-R6$Z*RuQ8cwEb0_BIP=yaNrg0QGVzBhFf%NRLK&PsAt$s{aO;(XssJogY^F@Qzu3^ldq&FZ`A1bit1w?`I zQm8n>!3WCZncMVRcsq{UeGzwH8ficckcF73O7Le64yfV6l0#I)3^M`=Ad({@Km-gS zEWiw~5R!y}Ah8r74GBvWP*Fup&`?z?R0uxJK$LKW64kA8NZHz4L;qGpdRiDsHBFL3 zMI=#F1q%~O!7CFH5>k^TG*e0i3`0vv5YR+34IxNVOu;b3%@WWNB>`2M@n-+P-vX`{ z-CDvRLNZbis6179Grf(VRg*qjAzoO|o%e6#fTIrEnelz58NM3xEJt#`El0zw(fQ06 zGk_pEl^u>%UCOqIRm!rpHli{K^dMU=Q4(%K6iE|!LWw7CScwxQkr4EMTVG?lo4L#L zb#1*`KqeUC1%@hS7)4nmS^*J@Bq0xP<$Jt) znC@~nK;w~eqHcguYO0?D0ilUTxR|6VFoSm_qLR|W{oCl(eN|X|eK(n49}4^`TF63X z21C}c;V)fG)XK!gP6p7~84T2$`xo>wHO-DS87eU$vZ0h^lt&&)pQg-uHNsMHDmQO@;YdKD_jjMHErw4CS167b>wTD%7;yo zXKU2Nop&l4a$!LX(5fZ0^RKPcezlLIZScWWE+X+w>TY|~A-T4Iy8 zwYNOd-W1zUN)VhVh=+D1SVUN)i75y~AcP7*hyg++Rwba75fKIkbs{lE5On>lL53Jn zB9tIVU?PN3BA_Wj-KZ7CsDP4!mWm1@YJrN8h$w2HfT3Dgk))`qf+b2C1gMavf`p|h zrJ|51S{g!x1gch$p#&v>+GSytk&{%^{9GbNq*N4?T9QPbYSmI9G$Is~l3H0cV8kg& zY>Esb!v-bXkqtl~YD5)vC?-r0sHktS(5MMTC?i4?DL|B(kT;kfcPpEtuY+Y~1`_k< zZzC5Z_D7t-+7gtTgd3$^f;UQ7s&7%HnpSos;YbHys3fu@NGPcR07C*mNdeX1#wp zVGTtQC_^I>$U^}GK{5mcKtxRy5mZt|LedQ=#3Vq_3K1g_5m7`$K?KnhRaGLyGyoAG zpyCMvnvih;AVyIs0$|Y;n3N#FAPFc)k||WY%gdUvfRuNP%3^*7qnqr1DA`3|}LunoWT1CminJAy)t@RnU zt9bOdC8GIoqIyGO9cB zdwpUfHpoK|xR5Ay7G*>ZM_U6TRFTIy`p#aK#zYb`^y~N?s-Wm zfR*ASiihm~Fj=Vge#I>w2~1scf|lJ+C~oBug@oM%uNiOYVG(MwO~@SW$)f|CNl9J{ODa zoQ%h>{Y)Y`mIhWv5mIw=r8mg!DtoC$M54Wy$(V@H_i(EuaY$6WzRg3BEHXn3jwojk zXOpA5xdjU|Xw8&nk20>+V;I7)u9jHJv|KF@HTrceen4O>&6qq@%AT)CJ&F|Cs%%&(ae}eiQnv|X3-vo z&BA@J7Y4C*MfOp7s*4vEIgX8F9Y zR#>cqrXurtJ1U{L?5v0t`)U03>1x9>Mxm7aUURzyYVkQ;qT&2btugSz%nQ}=P z2#x8J5s^03R#SYKX2+6G#d48IwWh_l1EgJIXnlXm04%dIl4PnyBWqMOWjUaTy8tC)U&4L&MbWRer1JXc1r$V3`yRJS&Pn?}qSu zE2@sD9TUgz$%>i3u6YDaH6)R1ym2!`2U2ssM?T=l0f}&{UbbgkV3kmDR5zsvmS>K_ zKK?sdw6R4azW1UPwLVKko>bF6UpNg5R5+lR^ZOfx0Qp@}G8cMVxeJB7>UupDtlUn% zZ)+%Rp+XmlQXUvNy$%nL+LL%k6UCG~WXxFDIfA891r3_boyS%RoR!Ira-`;(Sk=eK z?{wtJF;<%hVr8ClD{{0-6ku|~foMFnzf7&+8Eq(PnnfxoO!9*1pv09U(r_gC-*to7 z<0NWq!)ZLaV2a3!5)?te)^o6)k@dy`JK*FB zDmq()&$bu=ZrU>Iw?XHf6dMHGc^QV-C!x5CvL>b@5uBJTVWwe}gY)FpAyJS&041ry zC~mq-bW5{cRViAuO0bDxdF)yRSda@EhcyRu7i}W-2)({5gw7e$EN{(}GI5ZGP7^3x zB%G9)Xph^}%+?I$$&QC95(=Susg_I13?P*xR?Kcr_66FYbUuj)JA3^U>E#{@xn)N9 zS+ik~k|7}^1`6+jb2f^FYXS@thrQkMJcHpOu=4fHSe(yaETgQkY!JiitYsdOM|aSv zUzBnk(Cu_fHV=qY;Zm;5RkDT34^)V$#@nNC8gF)iD?#b>`mop`8ys*E=~m^Y?!Z%Avn`H{@Ftg%+Dvei}c6Plb^iR1QqTj`-V zf{C&X@m*p7Wj6roYV>aGae^9kwT2!)6n9bQLAPb|{Or4($r#Qvt&(jGhTz4=#l^I5 zNNk9K(N9UGTax5=oRUl$rp=OJe0+O-soK^)cA*amnfMOt;R=MWi7^5Ukx-_LsKI;r zY(cF?w?TqgmsO09drrw6zMh?%6t-J#P1xM9Y?3sImJ-21D$#}9oEv#Wa=1@Jpu96} z87gbC+ltLH(2>7MDsmj&l~p&w3>q1>$fpMS-56Q-(Y2Qr=BvXazqHv+cmog*K&p_+ z!Zd{@qN4!>4T8a5QJ4KyC!K$C<1LfY>>y zAf$*=*xeY6M!GO$vAY|LqGC%0k)qHGN|1q3P!ul(*D?uv*Ku%5#I$s4>@rZN&&=f zJ@N1Q9Uph0t1IElOzPlMkPSSWQ6h%n4lTJn7IZLxhT*eY6XNsSP+B+6{{3F zhw%}7_jDoRe&G3@{V06DZy{^9k8V8z&7#hP8As^Jo7o3wW0b0NqbY$TVz`gb2Ll#i zyUF*>pm7toVs-dKTv~I(${EzEwAAh$r5$}P6m*YvXZ1)gi1HCh zeI>TRhvtVe$161rzX|D+@E-ad9o?xunPfc1uyYwF=O@6KX)}k~(s}uh6p;CCfw6dJ zVC6puJ!^pXV=K-hhzGWn1RVUczC6J;b%`peQwwOQc87*{tg9AXZBZz{$5P-p3|>$$ zP*ff@S(swoT8Zfq3@V~mH~Vl{M6V%h)h&FnTjeOBt> zH##3d^S@sgb<>maJp8_xLn#udGg>k<@lPg%(N*R%+)@BMIHMX-QX+yRbQVEU(NYDe zYYPk^qZp!^aY18y$ \n correctSettings()" + "data <- omopViewer::importSummarisedResult(here::here(\"data\")) |>", + "omopViewer::correctSettings()" ) |> styleCode() @@ -182,7 +180,7 @@ plot_config <- list( ) # end plot config ---- -# TO ADD NEW LOGOS YOU HAVE TO ADD THEM IN THIS LIST AND IN `inst/www/images/` +# TO ADD NEW LOGOS YOU HAVE TO ADD THEM IN THIS LIST AND IN `inst/logos/` # FOLLOW THIS NAMING: '{keyword}_logo.svg' # NOTE IT IS NOT CASE SENSITIVE logoKeywords <- c("hds", "ohdsi") |> diff --git a/tests/testthat/_snaps/appStatic.md b/tests/testthat/_snaps/appStatic.md index 0b31e6e..d5a24f4 100644 --- a/tests/testthat/_snaps/appStatic.md +++ b/tests/testthat/_snaps/appStatic.md @@ -1957,7 +1957,8 @@ library(ggplot2) library(here) - data <- importSummarisedResult(here::here("data")) + data <- omopViewer::importSummarisedResult(here::here("data")) |> + omopViewer::correctSettings() ---