From 32024e597ae623bdf896aeb5383a3c7dcb450201 Mon Sep 17 00:00:00 2001 From: Matthijs Berends Date: Mon, 10 Mar 2025 12:16:45 +0100 Subject: [PATCH] (v2.1.1.9191) unit tests --- DESCRIPTION | 4 +-- NEWS.md | 2 +- PythonPackage/AMR/AMR.egg-info/PKG-INFO | 2 +- PythonPackage/AMR/dist/amr-2.1.1.9190.tar.gz | Bin 10081 -> 0 bytes ...ny.whl => amr-2.1.1.9191-py3-none-any.whl} | Bin 10280 -> 10280 bytes PythonPackage/AMR/dist/amr-2.1.1.9191.tar.gz | Bin 0 -> 10095 bytes PythonPackage/AMR/setup.py | 2 +- R/antibiogram.R | 20 +++++++++++-- ....txt => gpt_training_text_v2.1.1.9191.txt} | 2 +- tests/testthat/test-antibiogram.R | 27 +++++++++--------- 10 files changed, 37 insertions(+), 22 deletions(-) delete mode 100644 PythonPackage/AMR/dist/amr-2.1.1.9190.tar.gz rename PythonPackage/AMR/dist/{amr-2.1.1.9190-py3-none-any.whl => amr-2.1.1.9191-py3-none-any.whl} (86%) create mode 100644 PythonPackage/AMR/dist/amr-2.1.1.9191.tar.gz rename data-raw/{gpt_training_text_v2.1.1.9190.txt => gpt_training_text_v2.1.1.9191.txt} (99%) diff --git a/DESCRIPTION b/DESCRIPTION index 325bd5761..447740bce 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: AMR -Version: 2.1.1.9190 -Date: 2025-03-09 +Version: 2.1.1.9191 +Date: 2025-03-10 Title: Antimicrobial Resistance Data Analysis Description: Functions to simplify and standardise antimicrobial resistance (AMR) data analysis and to work with microbial and antimicrobial properties by diff --git a/NEWS.md b/NEWS.md index b1c800194..8744f4fc5 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# AMR 2.1.1.9190 +# AMR 2.1.1.9191 *(this beta version will eventually become v3.0. We're happy to reach a new major milestone soon, which will be all about the new One Health support! Install this beta using [the instructions here](https://msberends.github.io/AMR/#latest-development-version).)* diff --git a/PythonPackage/AMR/AMR.egg-info/PKG-INFO b/PythonPackage/AMR/AMR.egg-info/PKG-INFO index 4ed58b8b5..c4630b60b 100644 --- a/PythonPackage/AMR/AMR.egg-info/PKG-INFO +++ b/PythonPackage/AMR/AMR.egg-info/PKG-INFO @@ -1,6 +1,6 @@ Metadata-Version: 2.2 Name: AMR -Version: 2.1.1.9190 +Version: 2.1.1.9191 Summary: A Python wrapper for the AMR R package Home-page: https://github.com/msberends/AMR Author: Matthijs Berends diff --git a/PythonPackage/AMR/dist/amr-2.1.1.9190.tar.gz b/PythonPackage/AMR/dist/amr-2.1.1.9190.tar.gz deleted file mode 100644 index c99e2f4a574059165126afb33bf72f7cd0381bad..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10081 zcmchbRZtv2gROCQf^k8`?g!% zr~1^_r@H#7yXug~AR$?rOk@1U+)e6MrTNkD$sRD zAl=PDw=3gb*m_>K)15vhVJk0d!&kr|@+VDm2Rgyp8O_ONoonAVh^7t&j!z!W(tBT# z&g4sZ5Y_w&P{R+C4 z0VxV|3GnP_6pA~Ik)=EX8ZG%~7bAU2=sFlT;pfk4?$ub)24HW9k$Qk`W^5tN-VeiX zkXs*8NZt^@FSJF}_%9^%wi1%Z8#wmijHq#@F^Z<}H^_k(^tRqtbgJgoOkjkdJ#)V9}!3_(_tM_)Cj>egCL$i0X8ogCn2mG07GjGRL`FC z8c}0NL97hzQy*Y62W|Nc;^X2E&Rg~y`+&r)L$a>d^;T#ok!=WVrk)JM7XPv~h{T++ zxUk~P7q;Y0S%qJBe&q7A)K5l6!al(xSH$XAehr5gw8l~_cuO_#V{;$)>47gGGiE@~ z?DCrgAKBs+x}_4kv-c;Q`$OV(I1X{ds%Cgd7AG3>sHavdn$_RI!kDzN$m3oT-(-Ir z;=9fEpC4>rVUd&I9$d#2Ch zb^twCJk+;A-67cOh3-q%B_esOnT*G0{yNw{lG@>3uxd%e$HFeBTdpcqFh{#2kamU5 z5E;JsrEbIQ`lz47yOi{;>s$Q5aD3{4+e8*# zM=$6aDSO>5&&_i8Y+wCLsx4ZqQrjWsik_}eCHi47Oh~dkN^|DPm1dK2VUFH6l$E_R zdUclipS?mc{@*YJj}x*e*rMvacDMB@;`Fz%g|SL{I@3O>Z`p|EVE^?><_wud9CzEG zEoDLM8 zbU&R3e8}H;4okrob!cN+#=L7za+FVs3`bw_SNQ_y*98b;-T0s!eoHxfoJlZR`4YL$ zgxH2@UmYN$$WKl&jv1zt1F=dDV50QbAJ9mdGc(~eF~?b_GA_TvACU{G31URvd9w=$ zz0Kq2g?Se}ulc)HAX+6^ZiR^!@^+z$2zGfF^_5o{W^h8iIHj&6k%xGHajmXZY?g{k;#q}myD44@4$aT)xDBS!XT<=) z3bJ(rhl4>9mie-hxT-|{&oZ3uO{UyNyHl*}1_cU8mKvzJN+H`?iEyaxzlx*EgJscQ z7hAKY>68)Plw z!Fo0+_|1UV6-nCOY77pYI(BjH?o=sRk;(?acv+1CHj7Qqh{8VG$9AD3z2zo#9P90_ zq6$IxlX{qaun5x~&=S4u2U1{|lZKx{*?#i$^;|Gp!H#)FW#*1zxx`+`x+d==bYGBO z1Nmgd?_~H$6y}0I_ho@H21#6@Nm#P5R|H?=8K1`l!O{h0v<4Z0tm<5)_X-|GS6M4wA7BDSHC^I=A0~q+Lw=7QP$zxL*61Lsne4)j@rq z_Z5tI5o;_$8gTC6cl6QcvqFU4^N3B^DspJbxcD+Tl1z4+Sh)=o2v;mrn$iS6M#W}z zpn8quSWpdWB_)W#=Vi9H!eJy4b{WK)2e<${g0L>pOk4uQgjRpD#uONXLly%M zSNPhzbpOIjL#prfE5T+30uqNBM*Vto5BPM65~wH*<2*`l;KIDLKrHL?tH;-wz^_7) zH(@&GA=|%#6Pp<a^f5N%n=rJy%b7x^=(p zAR?Nh+Z9f;-UzbVmrWZK+$VQSE9I;@&pdT~If&?lM*Z~!z-Z~gB$6$7dJ@Wh>hY2n zi6K;jnI*j&E+FDcJ~MN9nSx)=!9@b_4zDOP3RWWXEjHfiiCc3)4W~EvBXECat2`oh zscHSwwe81pJRU;4LY#Bk*iU0836L;s(KOyu>2iQhItcd_ak?JF1tIEi{i&LXN%Q)n zM{JOf`JwOEidbsB9`mApJjK(y!FlLu)e<5IU`W6FwQ+exwi};qLiqrzc%;0EC-+dg zKpW(L)&YF|phD}}z4*((<6{V6cN5nV9UCZBEChQG*<_w>4Ko?EtDqn<7M=2Vhx6+f z_2CG+a>jE}3aEl?v}uM-1Z#YN+>^bLsDR7x8DJJ~!E5iiV)WLItVxDtCYa|gBt5y% zo+WbTIif`x+8JKZAyH)8%g{#1r?C>4_b2c-b?qfKxgUzx@Ff+Bnn<+Hhg)x0QRbXx zA_>Y}3?irGBg5a~rV=fG#_4`HX)aO4^u7kJc^tO<_9V-@Z5&Fm2PKfWSk0azUVeKq zrM1wV_>=(iAL;l;xe6wdSSeHy8C0mp8zZIS*%pb&aI1Eec|r~1ZMCyV-cPVI8VvUx zGds~0=6V^CjqBZqahG%F$c6lCP5hsJRC%c&K1&2l6A{Z<+&h%;yFXot9P16;SAXBg zg?1ibbl&l5#x&?H)N?#$shk-o4Dc%?x)cdgk-+dHaIQ51GY@qU0hJXC+r~9~@C5rE zHxmoE?STBr*jppxHL7ILc;aL>0Ax-%7AR)YpLx&XvoPs`dFTS&8>8XdfP_2tuA-^~ zRS&*(%T$A2`$>Y~g71w-RIH-Ou)VZ=qsVt^{^uEFc_RPn%ORbIvAQew1KbM|k zM{fH^=REX>WubkIm7;SIrB@ZZci9?9MDv|w>tH{EvjB|er1-J|TYLQ6mKjkcx4)fCHnA@)1$`fOLO#LFxGw4=^j&*)o6nu{F zuj(q%!>j{!&3YM~Q;*x}l@Pb-5Qr0mU@R)nT* zZ>YJdn-!YN{%P%etQV?e4`eay2Z5=HR(sO%@?S}>ju9{-I2*zd>_&Q-4xz}-ez8zk zIT91#Nv+LLB=onbrOxTxTky5O7OSK7b@WkTId?(9uWTvPbo!Az^Lry9QVfyrcCO@{ zq#M`d>FKGKVQF)0#p!SAmzz$mhUz>PdD@skURNr!Jlh;p1$TV5V%v-k|8gK{%C;9l zk)y<^uSt$oBFVH9n}WDifb_*dl^8u|DWlNZiPEFBTs)6ulyh>m7+)E?hK!ueVnG~EqA%T7mN=Ok zDq!dMe4zvjdMV4TD#rPYGUHS#_JTt{p#}`+%vUh7HMI_7L^kJ7(A@cqBGE)@+*sS$ zj5P9CYLtZ^;9Vez67M2)nBHz@Ihp`@Did3Nvs6&X(mS|k&TN=qqQ$WRJyT!LA+DT} zRSR0bdA0kg_r&1XyZpB2Y$gn@(u59GTFcw%P|n=TN4zsvI3RS|c)zK}}2VTxXh z)lEJrQW#74Z~LzJ798Ve-K5Li+T0U%!r33^XFXYC$dm+JRlslUE} zi5$kUg{uZcn>h(OpE_O=rc;6MgsUcjtS^=amac%np;&>KyEP@<%>-zmKjpr))N9`t z%#E)>K;1qBj?JWmnqor!V{OXluG@z1pQIq?Si@T{t4z`A?JrDUUHL>?qs_o+k!Jpw z>eaGAPURFIa0Cs6D5m8(jG>@LEL0Qwn=31n{h3A_R2uTa?ku-$#6SdDo1T}j{ZTosye9HfdKgfy`AckOe9D_*4odWT@$BHSu9o#J-0?*$w z5>LE|?4ph=xbqQDyawEiR`YEkzTh@NE=p6a8Uw$8InIZvO|r*7dVC|L)%bVHvvAtK zph`l$Hu(`V1^NBwP6r0XRw#Qj^-10K_$O>F3ticL-?yQiNA%vJRQ-pfE_JJhaxQ*s z2><+u}u zv>v=N6Y99~=BN$7oJ#BJ;W(YeD3#Tilv}6oE~;R9yk0`NaHLSps5lH8WB*43esys( zq(m3srw_x)(=Oa+h0iyV8j<<=tD$@Fb&yuK4WkHu*Yr}I))&p+_0gXjd>g$<7SL9z zU)R_3f}GizdrKUMtJ3QE2#4ixln=he`;x>^4SaYq4@CeyqAL0*P`iMD?UtN$dz|DObrL_>PoKPe+cw^aX=gNj=9k;*?1 z_aA`r4@jz2TT1_vd59USH*$0f%@oyb$Lghv-BNA|Q~iF|n@w$wD0s%@lF?nx|3Rfk z-`;v^KSx#=OQg-c_)h_kmiRPR>gPqLxwj@7*c|J#-yhWm<3v7lP#8vXx;9XVcxVQ^ zL7|F_sOY=mf1nzw-{ZTWUc=J)zuV-G45Th14SuZH6jaS?8rVS1AMw~;#{Pm2zKTRbasZi%NGE)m;*7h!9s z5xUXppqTZnu5_I${aP?*m=N_$5a_8|3T!pa@L1FdJCnxTp>6z){4O1bt_tB(u+eY2 z;K3fHL|QJgLjx{9hs+RAD?caeuee@*7ZRnd*~Yiq(5oXJ$I!X`px-n*Ceqb{73e{AXqZe`uMUpghWElx>ij?J z)L$M$N7AbKpW_30E-}3Dj?Pq7-UF<9Jai=&VZlmOyw8Ex8QV@^PBD)+k$t-cVsAv zZfgQvDGL?ofp(?5!wLf5tW#!nc2_)t_ug8Z7YuL8t9f?)V38*-26b=jbAZukwi7D# zF7Ne3V7VeIH0g!@5`?OE)LVsWBE`5pYecK##VF!_1;(jOf(PCvEp&F+GJXv$gPqdA zcLBz*ERfsh1ES^pq;Hvw)Z1p3(q8}QXjY>e`U32NBh(k1LPoAc)l3b5(S&Pxbzy-z zKxRVCD%4zVfDVn}h`&iibvH=>Q-Xxo#N^k{oVZufhR}L!GFcQJ%SiZKHSfQsUOJ7c06R7spMX&B*@ywvch4dv<~ZQs8VR&{jtg+G{Nt zG$E==DNjgPor_E( zIerV)B>m6^T_=^2Q%Owo)_@2$jwpr$WjM>UDB?Y$`UiMUaZ9^GRTGfqyiylIkwKiP zX7_$L+cfcQ8Yk~pZl$_IMhqq+O3@o8KH{6SzdXew3@K6l5b@_8eSLQHWY-h-H%*SD zHGF&%vTDxhPx@4miH9{hl=nJigLr|t{u6n&HW3x= zF69^Th$+u8Obq{yBVj~Z;z~vBu8DdIk?A{T=Q^~Dl~OkFJN*2k93J|f9bbQOP3>u% zlzpGO3W7%aZEXeLMb)|?Wd&VmxS(dKK3l$kwtIngJdc1x9zQe!t>kC$FJqUgshNuqPS1z^ste~jK2po)%>HG-wKG7s`K79VtmV%i8IOw|aA#y&M#)cwhKT{K}R$gLxY;KX-Bg89i_X zd*eVZ(U;%+iy#Sf=6@jv5f_ltL~Th#i>9nbi1E+|CSA@Gpz;C|x(Wf7zh5&>)?J9L zLSg`5pO^i|d%l7ah^kBp4oHkJUiM%8=`S4qvGd>UrZzWCJDdMY`kT+#RTl4G486K2 zH#& zX8zzn_ixpULlA}}Bujhs;3->@_NUXHU`TB+&x%x5J4+$)gfHL-S0d~6oj(y<^5=}` zXa%=O1QDtR^lI^LDK>tNT0YF1;*^Xuc*YB0MNzr_}OO%vZ8T8fK?X79egM!K(mT-~iG{ z*lIFqov;OwM0G{Y^4^{)vqcd+=cd%sSDv`A-W9i!*%)yaR^@x#wfww2oQPfv_lR)H zxD^daf@rk&NV+}`n+ca-^a30^K(+dH*0Ig0aaGJ#@R>D3`N1+mpJJ|gL4ikuuwmjK?brxj2m)uAn39U zvloAs{SJfsm{7}NKN@sD`lT+PY*#_oA`F`5!kjg!4f2cjcbEc9Ud9LcjR(o^PD;^y z(>&3*macT^ZYV|Y>m5Oo#m4MMV&n7s&J(-k$nh45RXC~~tSpzjo*LRclI?*OqG_w% zj+8cXz)CDytx-(@@HZGi5?oX7<@u{YoI3ktTMdA(JIho%%!Puz?skpd%$qtF>|j8QcpahA#tr*Tu!$N#?eL_gdD^&H#8JJ3vav0 zVsJU~SXV@h;AXju^7YH&u6S2b_QAF|o*Ltv!%9UWi3~V}h1F@}5Q}BesJZ6aj00)V zow5}8{W3s^!*P4U+;F9UJSu)@TCXC;4K6Cm8du(ph>mX4o7#j;X*e(2m92^as^~_k znNQdJW}2Kr(|&2GKghRzJ<4e-Sd_JtgVGSIXm!8q?pPr(X(O@n6*|6ZN?2xjM@X?Uvqs1lh z+W-vk9QCO3QC4beS>9(6!CAS&1}qw+Pa4^2;jLROraGKHio@asp}%`AR6M%iU!K>$ zEFe9o3x#OGi+KCkVP)0IbhAtEkq_W%3g6~t*Q);ER9MI=OU(%Ri<}w8r!AWyCgPWc zT}$N`hZXh{pi#)nVe-jQ7W!$_o4+CR?Samo2E2rhPu76Y3&c9Mu5VkpRXq-hLdR&P zMHP?ko)PKr2kS`<+II{sy4*~har^Ikyh|0~S5lEV6sHo$Nl)OfELpdKJtCn94gtU> zb_#5ZkcvENW3ia&o0?_S*(b<#9|W;^8Tx#P97dStr}{F&t3dK`CLq=$R9rCfDuW_F{0~(GCMD2`Duin1 zvhPQU`^5XRnsDb=`P>qIu2sO!o`>pdln=ZD=QINci99sAQjc&Qk_yQx z-A@sXaKQ(<`9uGF0))F`ZABf%I^{^vYffS%nCo$gn~5+* zc`%uiYV*i8^rls$#Jp{gSxSAe}I)Nop(aV{3}lk0Xm$F&Bgv74YN9dyYol;e7yH}ofG zd*4Q%i;m^&ydwS`G_8~4 z@*EP(S36XEZ3#q5Fh1mvb=Vjz@AphK4*+j?a= zSH22U{EF+r;^5~bxnD(4<}~>|l-s?f_#H=sjj;2cV@_S}!zIZQs@K%BO@G7i8;aLU z6zENXnGkf)XLlKRT`5NFk(^3Nmxq>sV4nY^PV!_{yjNd>SL?a(nSlNHup*^o?-#@F zA>6m{iVE41TN)JsvfI?Xxk|CqYJ%5<+G7FkkSrwX)D-imo|0R6`kF%z82N*}IiK8J zQGu}3x!XA(l8KmF8HQNURg657gVktW9GB!mHgp{5(Dfx|#kWw2(5V7yCHw+5X}AmTp^StiRK6`%!qfnwS$Md+-(_?-w9T?| ztJhtI);UM5{^2sVnepbaqC6p@=;x`I4>|(>dmqAx?0vj2s2G;m)L*Cph3{IM#!n=r zpF%&(qoD$n7OE16l@8K} z2Cf5n@r;Y-^rJ+t_M0^yXcy1PAIQIu_x;GLpN-G8$7<8Kkdy#^*dU{Ceo$C(z~gFh zTW`c}6mCp<*Afm5dtu2}fbJ+h_XUD4?rt8N$WbZg|8kLVzJ^e+Z5xb>A6ncUi92x1 zB2Z;@d-WQ)dvtC2JMCHP5-3Nt?$qKn>Do}zrVrIY9?zES-}k4h=o3Nb6JDl-veqLl zQ4+{oFd>Be3y2xNDWU?eeYlAqRbOnl2_IzNfmhSe6l{SCZrDHDOte0Y#eOGMl$a;2 zC^>KiaCT55z3-22Oj02wd_~ajG3W8VOp^$`J05$CKS|=UKK~9pH1(g~AsSjI)F!n^;fPnd6$s7h_|}Ty#;$2< z62W;vp{B^E%+(P`ir^lUK&&6F*^X^%rUq)C9DBOGf;GGv9o=VmdRa2hO;(nvh|1hu zp={`owfI*gKqN*jj%9mEv1E_1KfH}}-zbjr6XlH%>c-Do!uMK4eTT_nUF%j7HW260 zh-+DHWGf{Kvn>$7(c8b92Pp^Jg%L}1EeN06 z9c;@AI+ioEH_^!wIFZF#l^!syA){Hvb(dN!|k$Tk-p@T?>>!cM8ZK>NO~?e+0l4IWKROhsCAwI^y-sFvP<;P93m zF%eNR%u&~_UQ1D*M;50=v{ualZ~K)t=lbP?k5VytTJZ8?7WCjId9Cz4PWYRZNl#%T zHPsL7x6j3fvOSKMD5v@~;5u@j8g{h!c|FK*dF^%kayFJ2bzNVt&%{*K$Tchr*`8el*q5W_hy{f@xHP+413t-=VuaQs3vM$Y<>jun1 z47aSn_2SpQX~$?Bu=zHSQ}?KWDnk>|XQQ}db8sFoD2;f{>x=t`nsSQTxZ0rvH`9rQ z;x?uN*1xYu5N%5;h@g+N0Jx~wYf8ECJ4o@A+t;08g4fi+0~j;YgBfd#Nabb$K%w=? zA0Fy_nUIP|>obXv8O+EX-w1bL6x%ve^O0_~^fZ=YJk*-yTHGCk)GO>n-e+X@S)!ip zqFP_#s+q;4OGHfxpn`d_goaNRY6wq9740Y2Uy`ZU!qe;FA0h4%9s6~gHsqwv)V>`P zA`WaWY%4Gh4BSHjXh4Zy;kLXT<={)fR@w=VNvklAq+kc1gLu7*?0mN z_q-n6jW<;}`H%zx-*vxRLAt|@@bx#1XA*bRiuD7OuUx2KgrOO4&v(C@o z4*G~8OD}aJ5XS=u?*^E51Y+du2qu4sM-<`t5F0A%?EJs`0G^MkTR;GK#?Q!j9&(M2 zVE+#BfjYDU1A<}zyrckn7Ev^<0LeIr9a#IIue0~@7UEu0rv-wX-$LReMsfdhSlCY6 zFQdW{03PI?gbdO)0wH}+p{Ji<^Y=S|oS?jVMce}P!EJjM+-e69DFddDoM=e-e&4Sb z=l=zJ2C6FuKzOuv00CW~z6BSPf-VSo!l)&v5ApqAPY*)=7|!%D8ERl>U%gIT)jIOK zrs03e8t*OZ;6ZeU0UufiVuKbJI-ax6&JbsRq8Ewb=0@0+-T%1cH#J%1@0o_)*cTr6Yz|JfBjmv_MJ MOM@%aE;Q7C0e;p1f&c&j diff --git a/PythonPackage/AMR/dist/amr-2.1.1.9190-py3-none-any.whl b/PythonPackage/AMR/dist/amr-2.1.1.9191-py3-none-any.whl similarity index 86% rename from PythonPackage/AMR/dist/amr-2.1.1.9190-py3-none-any.whl rename to PythonPackage/AMR/dist/amr-2.1.1.9191-py3-none-any.whl index 1c331b1819cd0e646330fb75021ef96b54757541..b953412f02a97a0d351cc429ed180a8f611d9995 100644 GIT binary patch delta 779 zcmZ1xup)prz?+#xgn@y9gTX8+Ya?$xD>IPZ+|Me?0%k1de8bIQ9+eg4e)!G#$+JZz z84V|I6|G{_-E1IM#j6C8xscuRHU?-yG!V-Habj+fu92Q05Ly~q8csf=EL+cK#MjDJ z(|BoZ%Y}1#HJ2JDHtF#1tiAvHPlH;1#eH9Hf6dFxTH$ipQeg! zo{&EMdcl^z(H1og*LI28otwQvbIB{uFYE|6gY1{r_$I^#w3h{l)iCVWOUW#ryir|b za*c{WJxKZE`C6v&j6e@FF)+wuRbHZ-nU|KYALQ!nALLSc?qFV%0Yk&X-RCb^-O8MJ zn6E>_F;bMZ(fjZMo-2V{jxzY$Z%#R__iTUtPv7(PiECDAAHA{TWus28jcWe2ttZXO z?<&W4WgnYh{jscm#`eD5kG(&?@>9vXfAj3SM@|(E*W1J)znqD_0#eKy$!vid5>*g$4YaH77%RXhn;iCoKO7>A5 zyB^d{JjL<*Zq2J5Qzjp&()Z80eP#AGt7guNhH^{e%{z|2nApf;a!$K`WkRUIdaesUKRpZiw#wm8mmU;e|UK;;sD?ncL*=RBr2o-Dq-UH6qfgG4QJfHxzP2s1nl zPS#bk0wul4Sx|bpnl&N?zEV@yFa*UZG?IK>LmXWkLmZI}fhEexmg?%jIPZ+|Me?0%k1de8bIQ>zf%Rd;I*q$+JZz z84V_H6|G|Q-E1IM#j6C8iPx3f76UXP8i?h9I5D?K*GSJ02rUgQ4JMyamaXS8;$7JC zi)m@J=F+*cKU5f%StI3&e((E!yFn|y;;PHFM_X~Id0iG%c*OgOFhEPAp7Mtz6r4b?PURCH4OXpQZkDtZ&VkV zT%#gT4^lo?Kh-3j5$Iti1_pVo%1d-J^V0J5gIt~cgIr3_oXu-8U|@K#`+QTMl9=V2 zh6|kvi+q0GT>5gs5(`}~ZsvJ)r-dfRo+RZMY5CU5 z4dI@l#X5I#?AO&tUAMkq{`%cZr|j|_jHq`@}CN2h?l}zA%4R z_k=VXnK16_+?szjl)usWZoV&fwZ3b6+cMu1TW4k&e>lyu%t~8Jv3|Lz{_E)svbx8u zqWYsgE%Pu_P7F`a-TZEIBNha*~)~~)0xB24cu#4Xps6RZEF-c)oa^*GiF3x$&H|=}K{q{wwTJ_Hpyz*@2 za~@sLy;NYs((Ty#u~X!woX6`5n(?lc`bu;IMu-=DII);%(=GygCIcr!AIFvHW} zWL-5YP|};61*Mm(StC;5D>Zcu15lhoBgxk_#L>ku#1YvLSfZS4sjd!8u8Hb0%s`>Z Y4eB~T-dc4PuxX%VF!?4}0i%XG0Cd1HNB{r; diff --git a/PythonPackage/AMR/dist/amr-2.1.1.9191.tar.gz b/PythonPackage/AMR/dist/amr-2.1.1.9191.tar.gz new file mode 100644 index 0000000000000000000000000000000000000000..3c78ad49a0c1646fd44fca94e8ef0173037cd333 GIT binary patch literal 10095 zcmch-RZtvE)Gdm;yCk>@RSPF9Y8O@KpygVoj88S2W<%VUGT$pQSg ze7ED~le|D%&DNw>9@iQ3R%gn{*!6YhhL?bCWGGEbCpzKUInBvty;J`-h^8I|j!zEG z%wu1k&WNonkm|NtvM>;4Q1Ye1=kW#A8AMG>_eAcOR844T7U0vn$KE~m=S^2x5vNNbKh`MB)-+v;|J+ z7BPG6Hv`pQOc@u}dGs!yTtHIhD*)h^1fP^a9SAw*Ucz6WKVV4QIwbREU1x=c64{c- za_U)6Z0VGxQ6%P^*^vcjp`bN)$~^q03!KBx+%Op#3HuC>Tpp`sCLInhXn`f4|CXxf z!|E~=>PjFW^GA=K$+3!*0NL~vy0rqkt1lGJV$qzY|trL07-OE9}RGLlze*Y zR*fGTiBCOnp2)=S>;v5(Wvx5sI-BjD@Bd&+wL*(kXg|bU(a{#FKtBwE2~L(nX~{Ub z{@JWpkgcPNva)wh|AV<9v`;9;R~19>I3bgQHLAgVcUzYtPInty7^}Fq>o?wyElbgC z>{It-&fq!3apw){LX^QFER(Q@p!odoa~_=pOF(a!N;HxJ1fo zW5$2oYr%A|^-x=zR~S8{_|RC6l^x;X`xojU<}K2flC^RXVt&o=X_j_ec3MuO1<8Wn znNxY<54+s+sVY-Q&EiK#VV85G;t|a_5dtorMoJE}zKB!l>;{?DYBAHqk3p&_(A*Rx z=RWLr6d9##1(+TFugsX{O?4ro#om$`Ng4`SoRVvw+Qrp5R`joT{h5!h$5hY#nX9)F zj##h9nub2KzHcR%g)KIuqPTXZP?RbStDbW+SG$=a_eLvZj!amU&Fk^`0rU6P)s7u` zSn`)UlW;Y%?=zSqVPNU0lgV&!4b)BhQ%^L_3@09#nxfR#VdAG`0Lt0T3-7BoMM)Ac zSXQRLtM5KrDrC^7`Di^7Ku+U1%mjfypbcpmb8k4wQSjs$j-&}z`TXeD1&Csu`Jim8 zq#Rt&B^b@Uh+Srbt->^~50FvhCZ`zx=%5wm^^@=27^v=Id0BXr5%Y6((B1+l?wB*zHl+UskQ3&ItvyPhCkO z5B6Yls;QH2o#*vyFAAWJ5=|J`8ER}@LINdQrHOgaKs`EsndGtMJ$*vNHxJo%mcJ4N zEX?mX5C5jmj2V3YE?YlzI2lrs6=o zj3ap@6=PG?;Me+}NMz6vo-@5$Ds-ri{UIvx@ZmT#A$O)2iDvDi2CB9HG za@V`Jzb3cq0xd*bSR zX|>py)_R*dj`en5UX7rQ_an?ENaV}?pc#6pHii{ok zGKsz5^`E?x(EWirjpUQ%Rmt#?C`|b?52gMxdP!U%Nm#P5*Mw|xj4yu#-@oR+IwNMK z3t?Z0yR_oYV{jjF1*A%Qv7WXQ_bXNwB-ZjHZO}zJJ5nbk(C~GPI{v3XDfysOqJ(hNQ1Up73uVB$XeAJI~;HQ->MY zE691A&sa97UuMi2vLdB7K6za5TY+8USKqErwS=IWV|l+C_0*ATN{Q<+0v8<)nr~ZJ z*#-7N)|6G7>KFuwNP;@Bf*NHOG^x(;EhM0qn+0srXth#CDFHw7e%QDCrUVMQXY3BQ zXIBUYek8vdOEbp_I-Usf3ev~}2mQ>hK51VKx!R1{H-=g`9;jTYhFJUV*Y6iOt{}SX z@9)m1)l0dn2FB!s#jw^5v@RxNw)D!EpgaqzT)NOl`c9x~F=cHJ!EstjQ1W($%jJ`| zG%sN8+ivxWLdFv;5wZL5Z1m@Zc(9TQ!lqDk-cP)!7M?}H+czzq=Ayau;s^l+7x&9m z1%6V#h!q&1p73`0bI`6)jRbm2C%i$qS#3+^g^NLQd!!XE=xWXXMg3ic&xmpvJX_fI zLV0kyxa}{y*tf`9X@L#<9V$zz56ERAqpFXFk>5Gs?E=2 zs4H@N6tvvE$1_+KOpltu^h%>nbTlVc-4e$-|#zEgWi1XY|4?tWo%1mOu4;jW>35H zA54)&(K%%sPu(#3I?F$6@xoXxGtn+d#mozp69@-$lFD;1;vzkSDGaW5SVe`zbt&AV zso{L7f<@>f0}p5uzIzYt`)3({X^U!j*}P1A9=%~0l%AO}!nUh&7YF@R3|+zzaMpx3 z7-n*MeG)ne?u2cYc`XLA9Va&0KVQM7vsGwh3!t7ivs>}4DmaZc^-@eIN+97*{O>Em?R<4vX8ot!V!WX0iC5Z4WZ(Qr@)P!NqzM6g-{OO-67 zFm9e33tx7Mg{SOK&w;pGaqh&l={M{5U+*k_+jf47NjMC27@u|u7RKB0zWS+qm-MtA z-D%Tmw*l-^%iSQ;tM?+E*7?x2fbD&X2Tr-2dSj~frRYF@T!@{6#N7PMF2v5>ASXId z$#sy&h+zo_lMf5DL+g)|y}tp`@`CKBX*Iyq+GAU4{d>g+#v}Dp$dDRF3!$%h*1Pvv zs8#q;@}sOE@s8DzTvPC&bX)rn%@`990pB0m&^pV>f#QbxFj+n~H2uuyut;b}GJSfs zehNV5G+Dw0O|@iP^{G3`&d{THE=ID^F;O?iXiqe7!nCTDt<}|_ekA#ZrY=~kz!5Dg z%`;JCeO!+>KO9>D#wk2wdHN!*aL*b}?p?n`GGAywg!CbhP!)!2XFHPnSs|3r>Nn+- zn43i+vY@ZJXhhlax>IS^*Yw>hR~pA$1!^83UwMiS=}+VwR#=^%mLB-HS6Ay>ug$8; zuP{Hkm^Ig-8uQ3VI_w8u@CcW>gW+$t7wS5Yg$iTRUp#T#`*;F$Y;aNEv0Q#z3h=a^ zeYxmU|CI{0>YA=fJb~5v_iI@0Z-GC^Qc1m0m#FL{eaad=FKlyFNM;FUV;*+nT^R>% zg-XnY!!dz7%t%F*QOaem`rs5bsWb1+(7}jf!KO-5(Og-Ay9dGKm2g5p6GpjFkdE&6 zqcZx}ny!xwpo=3exmaJ{pb)gVgTqa<>U5m%Rk+eCOuZ29&nA9bTzaa%nQff~ z+!lLOS?-yW79>*~XLcUg>jbHJh;3E~o%5GzzbW~64$23AL2Q9^e0wCX!H~6=6 z1*234c`vvpwNPO#(zhC{ml~*$`K|3`B_Eeqbx=v$x9Hif)-!1!mN*HZSkg{abvu!X=QfW(l&%(_ zE+sM{_#V>TdH}bku)a5EmH^5<7YSKEaa)16yB{u;*hgco!ObZvXxc6L+_mNQ2) z33C|8DT$aK+oGWmr-Kld_+bPodiwWZ?`!1Oq!`Gm0`X=-5c=^-upzGj!OMy4R7NvH z{&ecd2NBj3A(cOGDg<=jpa@5l^JIfH{P}hDOLUNlKYmdMDY@=fj>mqCADeLrwM9f> zG4+yo9tS4X45Nlo45KetBi?YQ<|zBhj@U7USms@soE>bajZkd}H}+)|U}mO9@q6fr zY{m#5=fsA70-xSW&JHosMvA7@`{~qy-doha%>}RMM;``gfT@#sSWCKx7ZVEeKF>J` zuGfA(%tj;Arri1=pO}sO-)@4{=G}7^IbEj)nq2B6O-J{R9 z<~61HK!B|9QeNx#p7FZ&>5w{-H-F%)QZ zmxDdia7NA2{iSzp$7te${%)Abv^99E{F6-??<7LSv}zsiqJO6 z_3HpxO+SSjI*x_a0~M!P__Lnc+i5A({++Bg=1wLGUXf=KOFV=?49k(2w1tr74ZRQR zC&^Nj>Qn4&dY^WVX~*fT`r0jIAVTxL&_r3I4zf?kk64;{Zq}oW_C^LO1@6T8?}x!# zX2p`}EFS3kZMM>ueZ;wvxvg0g$~}>TY!(W$yC=z|Ok}(VxF-o4_v#OPxtv5!8ywb2fOD)t%2y{LTqV zN8jBoO$|eER2dvFgXQl?ZJL9^I7GvmtP(@r5RYaF^)>FB*??(>nQ9LdusNv2dIHB9 z#{X=x)c#F7_VA~c$M zrWT(6+ov^vubs;r8ztnG0@>-!3Zx;lvfZIHePD2jBw&oyPc=t6ev+FQlR+j(wyE#( znFTSk58dN5PDx~U-F9H|7Nw!c>^Sczyh{^wTjN{+Z|+E?3d)qB)fmJHDGpZWp!Gm);oMHbT~^=dAwj0; zb?n+!5F<9Azk6yelE~0O<|bHInyjd~At+}X-W|uysLztB++&EvJTJ+NCvmZRfS~)m zVw&X7slJf~b|vY5<5;Z0;__(Y7sU+bP2_e z9`y}qML>;#$1U>;ZTN*DPL_r9hsaF47i(Ul!Zw%&PsQsEbgOEV63M6c&PA-{6lz7E zWHKev#q>iht~9i4bng!d7hn~Fo~N?7!)qSY3T0Y+(1o6`M-L_Sjh{AFt$b9mi3A;P zM9a#1%%=XW`FuD|m8Vem&34N}WhXC$a1j4s``HdoTgddQ^oQUD&!|y&tO{kkzXv+oy7_J z8Y=K~Qu@ha0_BbP$)W_!jF&&0#&#%BHJ$6Ce>t`HLGyi{ks4Wfz_W>-uU9*!RCEGV@ZOD#I_>Ua{O4_909O(Tcl}Rg-#kDcV)EAy+S}J2o?#e@JD2Q!x(; zvmswE`DEI*y%;-3hyQJ4FQ64dCig~(vt+y270{@Up?YaSqh<}i|1BMfSuaIYqDu() zm=S0yE7zNV#304U+fTozxbG?Cwtd4YoAvcF490w_qys%15ul%}gXp@7-_+n?gsq<+ z@lxwng3dUDu3^9%mY&|tzKCZ~rQKeW}FR6v|~bYo|QqChuyBCVt^Mp+5Bb* zdBWJ;j@)}YpVq}g7+5STHX@}Sweis%Xe z%ttc`Zio#apHT(nc~rNXxVfadc<$z~Ztt>NVt*x7NTr#MD5leT7Tr;aMGPtv4R&DZ zCLjEcV5W|IYFQQ(7PbvzZV?ansmQ7*Yn*%0vB&eqjw~&;@~7Hp=F;1rOSiqAV=uY$ z{(dT%R7gI5n2w=H%-XQ0CVAzM___iC#Q@`K{Xm<@AIlNHTJup%XFm_~NT`dxzc0oN zr#$rtxSU4VM1+CYw4-m;VzQWB{kD#hG5GyWumx7Ur?4Oxw`eP7Fe^oRFtt1WpsSF2 zc<$I9*f@c3{LGGh@cwvp^$B8!DuK2!6f#Il{_rZmI?B2*S^T6Ff+)NdUS%JdV4+p6 zY;sj+hRrsB6VUapO|!<^B35$g_tGw+klE<<5}vsSvk>2XKw~ArF-2Vxr~5f{&Dsx9 zpY~Coi?hSK)gPw%o)qb>eQ15TbQC7eGS5fqL)%oMx`SYrLE3V%mv3%eMFz1csx`Q! z?wM0sUzbxw7rl$nl2TW4Ej83LT9C~K`tzuyc{2>9SuILSq5hRDRFgC=E~zA8iBq#< zE9pvqxHZwA-`Y%Ay(%HFSK-$2KCtTIrP9s%`I7cTcgjsI9d;>F4JtnKZGAB#6lk+y zi3pmlFIRvTFQx=H{Q!R&K^#7tT-FI}8oE41nsKv?49A_gz)p6259`s+nj)ysA+Gst z)3`ytfIyX6bxl~<<2`HYWPwykWBVzJmNeLDBkd*OZ|veh{sqK_^R*iN)%qN^)-?gBBkMFYJ!}>v2y+sSmUlHu?Scxf9 z&&ggP>EJ(Z?o~>dc9Gl-;e`btDXZK8P_4T}1tu93Ez(pCP>RZp2(}GA>w|&s>M|YC zmpqbqIAFz~bwJ>cme263K_&hIhDKM@(`9(hmWX&*>o6;07SwCSu8GlQR1tsi85LL5m=MIV>-=2_vNL zu@`PvJV0!-ZrtQ7Wpq#A5|xhpk-FA_EICD>QYg$NCxwr|TK7wMRYbQZAmjL52tj5aX%utN@*6@e{zA1p^JiIP?}G}z6D zTs|3!ouPZ8m~U}fK>RM$CUYc8^Va+jmiuox7SLhND7x}PJV^v&K8c3Hbw?pZ`?f>g zYG)W#QOJfNZX|zl&kb*{+!kwWkl^?lZKw6k6ALY zzd)!ghTq}MC@Da8%CK$qC8jzhcG^HzU#Q^~+i(n-3KnAwEb{!wUdWwb#h8vzWGuXU zhsZpM52EAbQM3mG1u#aZJN>Q;(S?MFZVnKs>4X=DQQ`ZC(f5-G=Dnk0PVp*YQR1iI zUi+!$xx=x9StH?AVZ z70P#NJW69>tG~6jsAagepX5|cRk1mv=+d=hOh^1l+O0{SG1b~LhgKhNkCIne>FGz{ zYC8gAHaA7h*^zhs-fb|MB{!c;BFzz@R>06B}Kp zwq5B>hR|gEh&lHg%S?LV*0J^vBkpe+B$4W7bTlRJya*V5c<=5Fv zwMLf-kg8TtZ!y?%PEIvE!DttIzqvNllkKRB=O1@HjczID^3hp=J zygahF(G>n8SAbf$Y%#c`+2ByDE9+zq$($-yMJb;4IewHrw4tc*O~2?{_UpUewvmw6(DA7yznseV zm>!r^c9VqQ7O2Df!wRuWj|Hku*94I4$D+SQIaMX1L4^Yst`kf)@O|D&%)~dCK{>uK zOU{BX6?MfN1C_fr_6}ECAn()X7k4w?+L43N(-%b9TSE&U+6(SZs`kg{vn?MGG-MUO zJ!>~3d=lO2XI3wdJUdG>TsKj$kWO%JmtPny5SmCp;n&=)QhXIJkwQG3RH0^h1!IZ? z#L}4)$9qud-jh=_EB1|aD~&J{;3siDpZHSFVL8aodJoJH+Yu5ZEBSiwJ+BixYV);C zhb`Ch7saS#U)>M$%W@``0s;kDN1~y%L{fNUXwNbUVNO)?NMe$it5zlwgaU28we@jB zom%=1`y^f2NI$1+Hd^CPKu`7qP`2Lf^nvjw>u60p80IE+)iTz{pl4mDfHj9iRkXJR zMubzSt_4BQ--qii64UITEg1T1XHnR<5(s^o@R2gU16?t26HWEmWq75O=@?=|H<1~| zzb~!2qx!K#8CU%_ByZ(!A?U~F*t{j^k5*>5HF!bFZ;3K=#5~FpRHzrVW{=awLG1^v z{q&8JaiD$ch*?yfPgkk$UkT{&y?;|2k`!{Tlh{;hM1_Y371MG%f_gJX@D#M>bL_b6 zL+sghI)7miZb;DNUQdR2-XD)YOb+wS1~3GEE1tFebBG$;;psyQo0Kx14%;~Yi8#{q ze*M*Xdj87&p))MsOrM)}-M?F7%DgZvRSTydymGPP@EFrxpD%e`&$JO{{3(}sg${w% z6&2~%t^&DURWQw4@4>v~lGtAHywM!_6Jj?XVqgc5WBe=DcChvj3N8&NW_UT5ocQ>$ zkMYBJipQApemw#SPa4kEg^?&guEeG`hY40Xn?Vm_@a?#5_~MQmg&`CG73%IH;3JV| zjJ&$jrXGzXl~1UWb{Vn`thtWc^k zVvtUkRo1xOA$ta_@6xJj$xz%k+>rG#eVMid5AsuIF;N29M*8~v-BepnK}7&uKStEF z2vrO*6A)97j!W$RD3Je4!fpSE3*4G&uV)0xe+QLIm||E6f7`JAI! zkeDPo%rXtv?h0Ji*bt$)EIWkbw!{Sd%xw6kGo1d{+bw7_mn{F&3xY@uZza#|fSEkg z$5d-y*S`I!XQ~`9%B(1WU8-w)r}P+{epTSO9yu zXl$?!cSUlt{+qbTEQ{qD#hz2~Bf0@->*=pjcwSXuk+;?t;*chCFPMs_^mI!t(8uDz z;+^BC_6xQt#QMCExU9jn??C&jw@KZarw*|*WmROz{@YZb@ipd3kr%R*A6J8c${IFy zFOnbTd|mN&n|s(J3l4bYrALDZLDs4k@=I;SL(fJrGCyg>&`|WiejS-8Iw|qCzJNK3 z?=8&Q?~WOwAZ#gK4@bDheA;MAyjRz{zmZbTYOjF=bbc4RYjs>Bt!Y}BXeRdbCqRd> zDJ6av(X($&trxZT+nZi_tAwXc9yV+#b!fSJ>f0*{@yPB$K1sqlPGZw&n@3jQBS-{} zEJF9~7<>-DrW}Yd%$zkkr`>5tv{N4_b6F;|cCX*C)B*4+KfTig?{*v3 z{EW=d_;s>C`Zxz3oHdoZ|8S-e`*={=YG&shXG zVBgorS9QJ~^!{D&je*1JP5l#O+>>7g)K9+OxnEq z9r9t=bQtBmD_JO089x*UX=HxE=Sses8~u*he=WFL^3MaeKi*B>CD2#BP_{X3_o=)y zjDuLeYaT$_?gFyyz&Hm1_3gZ1Oz*LfJ`xD|zN)_d|IGK3K$e01qTmyedbTsj3qnXM zI6#;vZW#!{B81rTgO#*=iE7?L|5MeE2DtfM9Q=FtF|2)ttQ)0&;@@9k{3`b2X1&f`dtG}lsb}s$ZYUR>sLa`~q%{hP>B~28fD^5LaWoU0p%qFrj(PA0lEPv14L2HxP1k`Y+&z5WSmI-?{@U z@*7>s%!|cH?K1beJ94@izL{17d2JXTaP>{V(u>&n8}DdA(HmXAP9(dx!MiQd}r#sNUy^_jHMHpZ5ze;`4o6S)4+12!-P@?_>1bE zl#}M%I0(o{&K<>bK=FDAo=6H?bz&&wIwy3KxvhiF(%nG0b(kS`RDo{J`k%4}`c(yY z*m7PetRsB`4csEXQhj({^kU4yose_RA7KDi#TK7EgmI+s-sHp+lKTT$i-USlue+_0Lt)yOv7--@-S9ItXU8TA(Y` IE;Q8t0(4sgGXMYp literal 0 HcmV?d00001 diff --git a/PythonPackage/AMR/setup.py b/PythonPackage/AMR/setup.py index 32d4a3300..2f142ed28 100644 --- a/PythonPackage/AMR/setup.py +++ b/PythonPackage/AMR/setup.py @@ -2,7 +2,7 @@ from setuptools import setup, find_packages setup( name='AMR', - version='2.1.1.9190', + version='2.1.1.9191', packages=find_packages(), install_requires=[ 'rpy2', diff --git a/R/antibiogram.R b/R/antibiogram.R index 4d4015829..f348dca07 100755 --- a/R/antibiogram.R +++ b/R/antibiogram.R @@ -870,7 +870,9 @@ antibiogram.default <- function(x, if (formatting_type == 20) out <- out %pm>% pm_summarise(out_value = paste0(round(coverage * 100, digits = digits), "% (", round(lower_ci * 100, digits = digits), "-", round(upper_ci * 100, digits = digits), "%,", n_susceptible, "/", n_tested, ")")) if (formatting_type == 21) out <- out %pm>% pm_summarise(out_value = paste0(round(coverage * 100, digits = digits), " (", round(lower_ci * 100, digits = digits), "-", round(upper_ci * 100, digits = digits), ",N=", n_susceptible, "/", n_tested, ")")) if (formatting_type == 22) out <- out %pm>% pm_summarise(out_value = paste0(round(coverage * 100, digits = digits), "% (", round(lower_ci * 100, digits = digits), "-", round(upper_ci * 100, digits = digits), "%,N=", n_susceptible, "/", n_tested, ")")) - out$out_value[out$out_value %like% "^NA"] <- NA_character_ + if (formatting_type >= 4) { + out$out_value[out$out_value %like% "^NA"] <- NA_character_ + } # transform names of antimicrobials ab_naming_function <- function(x, t, l, s) { @@ -1260,6 +1262,15 @@ autoplot.antibiogram <- function(object, ...) { if (!"mo" %in% colnames(df)) { df$mo <- "" } + groups <- colnames(df)[seq_len(which(colnames(df) %in% c("mo", "ab"))[1] - 1)] + group_name <- paste(groups, collapse = "/") + if (length(groups) > 1) { + df$syndromic_group <- apply(df[groups], 1, function(x) { + paste(stats::na.omit(x), collapse = "/") + }) + } else if ("syndromic_group" %in% colnames(df)) { + group_name <- colnames(object)[1] + } out <- ggplot2::ggplot(df, mapping = ggplot2::aes( x = ab, @@ -1272,7 +1283,6 @@ autoplot.antibiogram <- function(object, ...) { ) ) + ggplot2::geom_col(position = ggplot2::position_dodge2(preserve = "single")) + - ggplot2::facet_wrap("mo") + ggplot2::geom_errorbar( mapping = ggplot2::aes(ymin = lower_ci * 100, ymax = upper_ci * 100), position = ggplot2::position_dodge2(preserve = "single", width = 1) @@ -1281,11 +1291,15 @@ autoplot.antibiogram <- function(object, ...) { y = ifelse(isTRUE(attributes(object)$combine_SI), "%SI", "%S"), x = NULL, fill = if ("syndromic_group" %in% colnames(df)) { - colnames(object)[1] + group_name } else { NULL } ) + if (!all(df$mo == "", na.rm = TRUE)) { + out <- out + + ggplot2::facet_wrap("mo") + } out } diff --git a/data-raw/gpt_training_text_v2.1.1.9190.txt b/data-raw/gpt_training_text_v2.1.1.9191.txt similarity index 99% rename from data-raw/gpt_training_text_v2.1.1.9190.txt rename to data-raw/gpt_training_text_v2.1.1.9191.txt index 5175c93ed..710ec980e 100644 --- a/data-raw/gpt_training_text_v2.1.1.9190.txt +++ b/data-raw/gpt_training_text_v2.1.1.9191.txt @@ -1,6 +1,6 @@ This knowledge base contains all context you must know about the AMR package for R. You are a GPT trained to be an assistant for the AMR package in R. You are an incredible R specialist, especially trained in this package and in the tidyverse. -First and foremost, you are trained on version 2.1.1.9190. Remember this whenever someone asks which AMR package version you’re at. +First and foremost, you are trained on version 2.1.1.9191. Remember this whenever someone asks which AMR package version you’re at. Below are the contents of the file, the file, and all the files (documentation) in the package. Every file content is split using 100 hypens. ---------------------------------------------------------------------------------------------------- diff --git a/tests/testthat/test-antibiogram.R b/tests/testthat/test-antibiogram.R index 16a828992..ab0af208f 100644 --- a/tests/testthat/test-antibiogram.R +++ b/tests/testthat/test-antibiogram.R @@ -31,18 +31,18 @@ test_that("antibiogram works", { # Traditional antibiogram ---------------------------------------------- ab1 <- antibiogram(example_isolates, - antibiotics = c(aminoglycosides(), carbapenems()) + antimicrobials = c(aminoglycosides(), carbapenems()) ) ab2 <- antibiogram(example_isolates, - antibiotics = aminoglycosides(), + antimicrobials = aminoglycosides(), ab_transform = "atc", mo_transform = "gramstain", add_total_n = TRUE ) ab3 <- antibiogram(example_isolates, - antibiotics = carbapenems(), + antimicrobials = carbapenems(), ab_transform = "ab", mo_transform = "name", formatting_type = 1 @@ -58,14 +58,14 @@ test_that("antibiogram works", { # Combined antibiogram ------------------------------------------------- - # combined antibiotics yield higher empiric coverage + # combined antibiogram yield higher empiric coverage ab4 <- antibiogram(example_isolates, - antibiotics = c("TZP", "TZP+TOB", "TZP+GEN"), + antimicrobials = c("TZP", "TZP+TOB", "TZP+GEN"), mo_transform = "gramstain" ) ab5 <- antibiogram(example_isolates, - antibiotics = c("TZP", "TZP+TOB"), + antimicrobials = c("TZP", "TZP+TOB"), mo_transform = "gramstain", ab_transform = "name", sep = " & ", @@ -81,7 +81,7 @@ test_that("antibiogram works", { # the data set could contain a filter for e.g. respiratory specimens ab6 <- antibiogram(example_isolates, - antibiotics = c(aminoglycosides(), carbapenems()), + antimicrobials = c(aminoglycosides(), carbapenems()), syndromic_group = "ward", ab_transform = NULL ) @@ -90,7 +90,7 @@ test_that("antibiogram works", { # (i.e., this table will be in Dutch on Dutch systems) ex1 <- example_isolates[which(mo_genus() == "Escherichia"), ] ab7 <- antibiogram(ex1, - antibiotics = aminoglycosides(), + antimicrobials = aminoglycosides(), ab_transform = "name", syndromic_group = ifelse(ex1$ward == "ICU", "IC", "Geen IC" @@ -108,7 +108,7 @@ test_that("antibiogram works", { # the data set could contain a filter for e.g. respiratory specimens ab8 <- suppressWarnings(antibiogram(example_isolates, - antibiotics = c("TZP", "TZP+TOB", "TZP+GEN"), + antimicrobials = c("TZP", "TZP+TOB", "TZP+GEN"), wisca = TRUE )) @@ -118,11 +118,12 @@ test_that("antibiogram works", { expect_equal(colnames(ab8), c("Piperacillin/tazobactam", "Piperacillin/tazobactam + Gentamicin", "Piperacillin/tazobactam + Tobramycin")) # grouped tibbles - if (AMR:::pkg_is_available("dplyr", min_version = "1.0.0", also_load = TRUE)) { - ab9 <- example_isolates %>% - group_by(ward, gender) %>% - wisca(antibiotics = c("TZP", "TZP+TOB", "TZP+GEN")) + expect_warning( + ab9 <- example_isolates %>% + group_by(ward, gender) %>% + wisca(antimicrobials = c("TZP", "TZP+TOB", "TZP+GEN")) + ) expect_equal(colnames(ab9), c("ward", "gender", "Piperacillin/tazobactam", "Piperacillin/tazobactam + Gentamicin", "Piperacillin/tazobactam + Tobramycin")) }