From 3f764ed7473d092e56ae732522d1fd2035885b7f Mon Sep 17 00:00:00 2001
From: Stef van Buuren <stef.vanbuuren@tno.nl>
Date: Thu, 5 Dec 2024 10:49:47 +0100
Subject: [PATCH] Update to chartcatalog 1.18.0

---
 DESCRIPTION                |   2 +-
 NEWS.md                    |   4 ++++
 R/ynames_lookup.R          |   2 ++
 data-raw/R/ynames_lookup.R |  16 ++++++++++++++++
 data/ynames_lookup.rda     | Bin 3215 -> 3265 bytes
 man/ynames_lookup.Rd       |   2 ++
 6 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 242e524..a3f0d13 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: chartcatalog
 Type: Package
 Title: Catalog of JAMES Growth Charts
-Version: 1.17.1
+Version: 1.18.0
 Authors@R: person("Stef", "van Buuren", email = "stef.vanbuuren@tno.nl", role = c("aut", "cre"))
 Maintainer: Stef van Buuren <stef.vanbuuren@tno.nl>
 Description: Tools for naming growth charts, and methods for 
diff --git a/NEWS.md b/NEWS.md
index 93b1896..d6c28ae 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,7 @@
+# chartcatalog 1.18.0
+
+* Extends the lookup table with a new field `refpkg` that indicates the package where the reference with name `refcode` can be found
+
 # chartcatalog 1.17.1
 
 * Adds getters for inverse transformations of `x` and `y`
diff --git a/R/ynames_lookup.R b/R/ynames_lookup.R
index 5a06833..2486236 100644
--- a/R/ynames_lookup.R
+++ b/R/ynames_lookup.R
@@ -28,5 +28,7 @@
 #' then transform).}
 #' \item{refcode}{A string coding the reference name recognised by
 #' \code{centile::load_reference()}.}
+#' \item{refpkg}{A string coding the package in which refcode can be found by
+#' \code{centile::load_reference()}.}
 #' }
 "ynames_lookup"
diff --git a/data-raw/R/ynames_lookup.R b/data-raw/R/ynames_lookup.R
index f485ebe..e861bfa 100644
--- a/data-raw/R/ynames_lookup.R
+++ b/data-raw/R/ynames_lookup.R
@@ -364,6 +364,22 @@ from <- data.frame(
 )
 ynames_lookup$refcode <- dplyr::left_join(from, conversion, by = c("lib", "clopus"))$centile
 
+# repair faulty refcodes for WHO
+ynames_lookup[ynames_lookup$refcode == "who_2011_bmi_female_", "refcode"] <- "who_2006_bmi_female_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_bmi_male_", "refcode"] <- "who_2006_bmi_male_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_hdc_female_", "refcode"] <- "who_2007_hdc_female_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_hdc_male_", "refcode"] <- "who_2007_hdc_male_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_hgt_female_", "refcode"] <- "who_2006_hdc_female_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_hgt_male_", "refcode"] <- "who_2006_hdc_male_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_wfh_female_", "refcode"] <- "who_2006_wfh_female_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_wfh_male_", "refcode"] <- "who_2006_wfh_male_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_wgt_female_", "refcode"] <- "who_2006_wgt_female_"
+ynames_lookup[ynames_lookup$refcode == "who_2011_wgt_male_", "refcode"] <- "who_2006_wgt_male_"
+
+# add refpkg column
+ynames_lookup$refpkg <- NA_character_
+ynames_lookup[strtrim(ynames_lookup$refcode, 2) %in% c("nl", "ph"), "refpkg"] <- "nlreferences"
+ynames_lookup[strtrim(ynames_lookup$refcode, 3) == "who", "refpkg"] <- "centile"
 
 # save
 usethis::use_data(ynames_lookup, overwrite = TRUE)
diff --git a/data/ynames_lookup.rda b/data/ynames_lookup.rda
index 07e0595e084d65aa6da869492a5228cf53abf25d..3e92f15a17b007216732792159e412816dff125d 100644
GIT binary patch
literal 3265
zcmZ`*2|Scr8-E#FlO+=&!pPVodkL4Q%#5uxhO*?dTr^YmU1%6axfshBTPO^g3E7t~
zGTFDAH4~|*OSZC>OW)AV{eJiNegE^m&vVZIoacFd=lPxYIq&&v?q^jEZDp)%n?sWY
zfc%aK`uEKU)-CVvE4%33o@dM7rwstWzyLHY{D7}`P*=xla?XOBb($m8n@Jm$1MFw=
zct0gWB#kX41?8jxe)-RE3SS5X_#5uUix&_NzL%n8GX5rcw1}7WEcFaDcn&!De4!M1
zw-n*NV-Qlr|L`IplfkB;rgj>zuo~7F)GE9@@BV!Rp63n>GED{txg}Zhjsx-v(mec+
zG`NO`I?0dLvMf0=kFylvhDC%2Uxr+&{63;nZhri|S)oV~^=T|9=8VWCo(n0%LdqV5
z?D7hA{w@jsvrF|;QI>0)-A3_O_3UK1j&|_dIf3uozSZ4i0+$XjDf1d3S;<tJY`o4O
zLXHI9+37Q2MUJb)#-;vpQO=^c@yjZg{PH|&ljrWU1ut`vqrY<Jw+WBB-ZiNAnZ=w%
zYnG**axJY;$2*P`vvn6s2k(IM6L6ZBt4@_tOKAgq&g<b<|11ue=odSqmZH{%_p-?L
zsmEf9v;&2}etu4Eih}pey1lZ!-nNq46s8?HBftT?I2@jI+zhXT)2AA(2Yyp|v3kec
zftI5${#)d?RXI&6_Ys`0oMw?%!)CsPf00-9A6An$^KL|ok`1Zud&*JyS3|$vz87&i
zZc4p>pbgl`<hlw@(--6%Ft&<=%dkH6_$Z#s@ENa)uQ~-p@o0Ju*GOgblzA8&f*=b_
z<stE|g#OF&0_|$h8U_(rFHM9i&k*6#jm(!gLMe!s+k5s$OH5{efn?NuXW@3$`*GMB
z#x159wvO=AtlD#beY_m)z{#GOKWRXBmHG5$f9}xz0stR5P6Gf-Klcp)0Ogn#@UsfC
zah=zcN7w{~OQ=kQOun#h&qqIaES?r4@`xI*^%5_j>RFIbqZQ*&JL#&>TXy<B-8O9q
ziA(S{tS%BExJjFM+Im){rNNZaQ*U$xuzwvW2(0t|_G<d_o40nhg<2Sp>LoGsF%PpW
z;AT#KO?vB0*|{#LWwZ;K)g*`EF_hnf4nAkaQvo^_(3SbSI3!VT!Ln);Y3BLFby>xA
zp)ue{gS|2dS@?3!ufg6``E{euVo&XXy3H|Qgu|5#&-?4-m={~MtoW~m<o4I((FcCf
z&!q*w&#Kk@qmT5jj{(=8X8o4VfG5<uC%o{kk#u!BdMs`wH3TUivTXmU8BJTCY8(q#
zfHGtJ4AyO5A27=x-P%)Qe4Koo+$*}-VkekU_QU0J;+~L54-+kr#pWUQ>RV3eVmXUR
zeKRQEzvJO9@%RiBuO?esds6I_f~!32>yDjNRF_PIc`0GD5=2y!4}FJw!@e3(P0n&n
zcSBjD&;WFhxU<=_E;`%SJlW%$6`t~WY}V`jYTX%{-I>{;XU!|ZTZutii6`IbwY}3n
z*|HM!O`D{Q*G)Xx`Q?Y;<4jC%s5*W;dt-{D_Z;0E8eM{|TImTSaGNZeFphw((M_+N
zd>)rj0cb{>9*zxeJ5@_Td$!)42GH(>=s-W(TqA8&{8#dapj@U1&K1JDy=qebkyz%I
z?e7-`G}_a~ZdOk$2Kqzy^Zg_7L}cx)$;N<1M(yWs^~$s#c*0qUT8+nppCu`rm@dDn
z-+A&47!O8o3!LDrnn!khyD%3*oY^+?X&xbTs06L>ikv-M!Q2#NA?R@PG)Xqdj<!zd
zX<_o`SQo<eVVso#BSM7hxEN<eVdtZf4wd2+azTRTTt0_6l#oK_P0i0ch6#BogPjbc
z(Cre!505;zA$iyr-~_ibXz)QraI2Edv+Qhkhsd&CWR&s>sUOWAruynSPc6&`&EJR7
zdY#r~cS*CH;e&>Gi;cEnyX?~FzRYP$)HHk!vZz=^>s+Mb8N_<UxDPd=w-7V5lbPe#
zdPQR0Z#SK4W@w0aXZNR1^*LxMh%4R}tW9`_U?bdCsBZdnZS{#x)BKky8x~2CNC?0J
zlSf=3UP&!vs(nE;?FEv!TMn_Zq{uS~H8R2qaV67AzECao-kY%yXH_y;3=(=?tkRaa
z?MtkDfkCqii9vi6iS~xk<*Cz(OW@dDa4ZI~9Wq|Zz?3^Q8;AdXrFMP9-p?}npvA0S
zDIncz{~T1$tf+LpG>4fY0h#;mg?fFxdq~=se~E*;1YntME=iFwC9An~{kL*`-|};f
zcs#>ltUyX?^`o+Ha`2Q7TsrBmDFaY{bx?iKUNwVDNA8h&Pt>;+#`Hif)Bh9V19vq9
zH=4DJ_AU18_KfzS#jw!AL^8V|1k)ENSemH2Hv)jQKhN^be^8q3$*$iOUAlcc47;?v
zJhkY#GR;1@kBQ0GuZPP50|T#6nPWt?=SZ3LW7h7gZXy|=7WHFFHWi18G7kgTa)5R8
zQR$*WBZ7Jj<$=1g7W%u(lZ$J&FRo4{%uQvEylnxP9;uUkeTdq?Kz{|Mv*9vp>a}Xm
z7Nx?APUJ`qw;Rz=E;Efm8xS@UI93fqd!Qyzo-b)7Fk~q$M~@<TD~kp6R@S=3U{Z^f
z^SL=SGO7W?#uuG)odx7K&Lwe3r-qeduKb8T#2>@PGju~TOnQEtOSGuPU<*D{eni_W
zGHNBI?8g6dLmlJZx2j5qp@s{GD;YPr@3%Y6@FEsh*S$N$?7V>EUzr(IK+VHpaB!*_
z^YW<KU}%5!chJI|Zlr(y%uwo}=r9<9ADf%qGW#?$Zz>1vrx?1s^DPZqy6gGCCUy+=
z89eh0AZ@Zciu?jl?l@U4vyUsz99fWoiLa2PQu4NY)g!;MHH6;w4$~IJzV&JHdX@jw
z$PM4elPRj9<&GJAm0wAyB(f{12I=~m+f4~)vTM1W;XN}tp#NbY$)Q-I9y4QCkBqFd
zx0YpbeNLZ8mvIJ$H($q36?T8r{oBb;pK@7pgh!U`?}N<k61m|uy`KBd`eRfI-!*|w
z@!%)VznjKPD~sdCokg%!qvI3f{pXij#lW#|w>$3Du5ZL_)4vZjwd-Vi*RC9`3S}eX
zPpZp+xSj5+;!n2=w+TBly9it95)|S9NLX44`~WVM)nlKI^7CcwMs%zlx)Zg+agjS)
zpiXfu#_>_^n+JJFx**?^#Z(JMD9b0vlHS9;+uP~qhYyEk6CzHN#Ftw;>OLffA;EY`
ztheP$=(xotHRv4Ixg0M10+)XD&SNB<;w>c+ncr=cunNBPhk!(q&<FO;D-Dov{XvyW
z)M1wwPEOHuS5f)O$0^rEuT9u0B}*fWljR}CkKmAhcI8~uhJ>qA%gkI%3CU_Q#+~G&
zQhVLgUABt<<e+3*MaM4dH*2uy=QhP9i>Y;?Jj|0*&O8|`lI&?U3Bv6RY%L|NGbJTu
zL5Pz>^~e8-vk0@ek)xoJZXB52UT1aeP4zt4U=GDmw4}dme+$L`%VuZ(>;_@$f)Vjq
zi%{YXijT40G%jhg0`s`025<dO*kWp~YxOzVBH*rB$F6$7(mk(^roT+R%W&4{?NPZ_
z*5DHRm4%=iW@!1R-R{Q|FQHqlmMaR|Y!41`BO%YrpSZwU?-cj9tIN(y7=%H)eR3dg
zm3q^WO6BF{HcH11H=URbXEUPbe%k2N8yjI?^kX-Qqxis<wnew}qEz6_Mje`E3y!hR
zM<-E2BHWXfW{|bBYsq}R4aWL;hIe@%Xn*6EupQd;iwjE(c#5T}Tlab7j#IqQx_2FK
z*1nd~JtP~4isB7k<kB9KZ34$8L)V>Z)?*(F@+H!*p3BK~n388~Sd>^L!!!y(W_qaV
z+3VPWLosGeWmy?+B6z0*VN6QH+OvhyH@j9IcrnZM))c11Xg$VgZZ^B%ahDr3L*$fM
zmbE&9I7*~KG+YU`_qf|_Q$%nA6BD?j0zQz$#LZ^MryDTX4$3&<UcFSdoQXqoXFTv9
D2L|>6

literal 3215
zcmZ`)2|U!>7yqHMjc8Crl7_NGOby8{Wf<A_WFI^xiLne>vM+!8Hj^dwNY=592+3Y1
zJIRueeVf6ASNIRFUjO(1zyJ4l?m6e4bI&=Sdq4M{pNg5|HA!VtA$`+e`p_sKeIlS`
ze=C4?+ijn;XS~<>dTsx+5&$SE(S1I(&-%PaPL|cT@f*|(XpI19Xn6oYziXJTT9=Ux
zqN60Nt`6KdqLG!yipd9l!SVTunnw11fuT_PFCz;qQ7=w+L7tz5YU93gzySchn0sD#
zuOLF}7zMyeIUb7vZYo{r=>huL*+DO8T?d5_G*YLz0D%1_`%PLac3P)EVPRpG1fhXm
z#9OF_fAVHaZ;}q5E-oxawU0-)N>ShO!VA8w?HA*Z+)A7(pIsRwxV>qWk&3-~Qd_AO
zjX*4fMyAI`e20H1U-DH`{Y*{{7uMOFa-;RJ5yj=FwJ-m{8P5RF{Yz)kmNIbsRPv~H
zC7{HgQMX-nBvFY4^vy3)b)l7!65thQD5$&s<*1M0&i>~~nU2RY?|5xbcbY($)5MLM
zQ{2sJ^oF#Igxu0L7Mkq!pUO|v7)aug1+dU6!z#l?@^*mhu=ap2Y{;!0^g9thEu%do
zYXKwZ^L*@#@|NRrONnX|T9C<@j^)m<zjKPTP1e>S@yhhgCRs=GcbDnxHYkjKQ>@;9
zC@&|cFcJJ_a*~47aW>;RcWhS288L}oQ^{IFOgi^Gul=C(hCx~?*sSM3G$6VjEnpu<
zvw09ru{|Y$%uuMC&2elrRF-4Z5yTeke(`ECRrrJMesa*E*Xj2O)L_Y!LB32>61$Wt
zG--A(rG0r+nx!w4DN29}$g4y+Byp8GG;1J<@JnV<7oQ%G=)p|<3)OkJU~$plg<h^k
ziikns-yMgMMu#EPsK4?YL|!oU+vt{~(%WuccdF7sFQZJoEOZ(CfdD|$MQoFdxdHc6
zf28@=?S%1bdviUwIR`2ibP*Nrf->h(DfQhk)u<35o|imnk8!#`Tccc+#~q0jtbp~V
zsvyOn+(-lxguzQZ+3nxSaNnvZyA}7_3{D@}2<323>AaHnKG5OS_U@?DM_*~%=-6u?
zYd%~Xh#V(m%JNourHrJbBDl(7h|~yDT6jf2<=)+;>e{VRG|3gc`pT27)<Qf@Gq-QS
zqt?P+eC*YOmCkCakXfFti0zU_b~}e3pL4GnTlKo0+12h4;QDN$IA0PvzDn9$DnVm5
zw4Ftnp0&zph>to+R$n^tvIN!wDiXld@h)LvtD`IA`QmPQJ?ov{^z=kMc0grD|5->p
z%~bQCirdF_hcg+T2ZDQe<NoBIWvKOrm)GXzR_5MJdV8ZMy&b-US{~EMZu95mIJ+A4
zq%zVl?}g5+y0H6E`WX=?!=sxRHy!av=+1h6_DaX`h>qO#DAwdtU-zP+uud^zK~X^o
z5FRA>y}SJ@4|#UN(qkMs;jw%5j|}(u`!gQXnR0S|mUiu3e&Jm{+1Ds>89UUCrd9iF
zk|bw+vK+8f=7iJ~F*Rz3y{o{EWWqijBVKR0eJ<n$s*=>{6$w&bQ6FWaGfj|mjAIgj
zwE#mWsM?WgNJlX&bL^Gc_;}u6Cn~SsSAv~yddxTOJaxFOUbm<WSwzcb-hQtCVqnoC
zCfD<oMac)}s*x2h^tqpAsy|V)`rh~}&*kOi?d#;s@gK-qFC}q;I0K4A`1tV#iV-K)
zLsgH8ZgTL^O?e5<{-H*a2hV?d<IzytGN&EC%xgC<p&wjPCZUh7vq+pLGv`i~$$DO=
z=ayH-WE&?augRm;z8Fom+KO`7vIjOuo#jft&M2e$#6;4@q>fQimeHSdxA6`g6Nsr{
z`yu(}xsWmmU3q(J<*08jOMy}v6T#?HvlkfndJ4w`-$<~fEs2H(;N%VQqaMa;4`hqO
zMxWM-CJeg3#yNZM#1>i;=1Zc!pv_sT?;8#$eFjrfmP7~nYKKv^qEBni7&W7MEjT+C
z2|V|r=1Xq<V-gDsC>KN%V_3Xo_MsRvxMZBS*~kbGfp~yXSVJ#4F*)}@9I`~D)sa9X
zpw0%uB65Y{$?x=VddYoQE#b15k7PQqpPD}DHfNrw%}ZVPkjz#O&6k%`!5K_@$~wC$
zIZKh2!RDOis8r_Zfm>6Y5;gt~-^N}}r|~`r5jgxLa48(R8c_lv=UC{rM9CV~DvoVY
z`s8~^D(u1z_zzf7Tfq;oYR%fcO%g(2rT!+oNk13RmlHl@+ucxG>bf&0K&iJ&g!BJ!
z1=1J)Mt(r1_9`kJ+I%PqDQ0tcZ{B|d-PCvGC#4lD_2mZv2NeIa2*BQ*wUIG*t;;<S
zIK2Z&1XyO^5OWk^lu9ntMZW%W;oY-hGo2YVTV7+I_IAw4YqJxvRo?djfVn$cp}}3R
zn0ga6s=d6>B7=oS#b$VBVcm436)QkADYI!2!a0i35E=mxCE8}V;-rYL!kKcSuY~<_
zy>W%F7vWc)hkipFbKRN$kckGHevUzfUF*t8VAKjYS`0TFG4xC^t1K*l>n#>O*Zz%x
zC$CXy8$O6<lhz6hA|(}C@!xw)LpOQBs8MMgMoZsxyErhY*5wFmNTxXroyRc4Sw>j`
z?Xd+sn*tc^a)hPdir){iIQ;+8h@zVhqb><X8lr`%yR;Y|{JmJu2&Z)=)h<z2qzJpI
zbP=Gt35NtS74M;qO3cXApZ?mnp{;e1CNg_xr%MH2(5E^=d%=1tPU|YpS={^J^r<KO
zk+6H_b&tqdM+KX+_tUyWpYA0{EHE|fD9YqNq|KRP9uOrZ-+gLT_ys(#=gs=gpvLe!
zr!&S+YxUOqrqbiau{>8`jxIePb1GDkVeeUR)Tu5^PboJ{f<D%%^Kmn~QeL02NKKo>
zg#QVQ0!OWfc&1=)kA;L_WN*(M3$fcXelqfLyrcDmGh4^q8~-!SVb=1<@(7$7=$>@Q
zOb4muN%9E1aqenGV=m=-{qy_N;pd33b>`<5ESX39Kg%!MULxQ|dCa+c?#i5hl(QR<
zyn)#dD3WN=Cd(mgYr0T7j7xm$h~^X6B$}|xZCuS<wjk>m$pf_$s*ys_`wOOG1<3~}
zOD7_s+^P0aYx{BiyO!!{eF`0RR&Sfqn0AAVmoHRLZ-Cd2s;>IkT^PmCw+K%85`R7R
zFi9*GJ!v!Gxz?{f-SL`VI6+@ISytv6*)VHB@YaQqmb$2L#cQessuZSMeHRt$PHof9
z3*SAGMY?Or-eT8kZ5`5L&m&x3gtLhuq-sLo-~@=qjRaxvjo<%U<px!@U9uPHLG}sV
z=)kfI*dZblq^N4TT@kJ~<xu@)4J|T_T;bepGC>GN`A(c38EfD@e29#I7=B<N7x2$@
zsRes@_{}tjNygZ6HT~EUlvYKF2zm?2g+K)tz~1pT4Fa`vl)50DjU9%Z8ES)SdOgcr
z9hm>nDmaKzhBEqBPRjq_@uk%F6(&Y{iKfWbl+$o~T*}ql%3OXt6hSQCDyUC_C>DX>
zYpYD*U(s9FmUsE{Jw<ljD%fzP3Wi!+GH8Z=J6jxs)E-uJ^n26ik;UjHMoiTd!{hNL
zVkenf_yql>iOSzu@yrvSnZgBfdeVlrT-#T{8-lZ%r9_4erg~-L_<Y~}kocWiFlAq&
zaE9Tsa(C~(&G{8Mg}v{r#ioQIY$39;JHkN5*n-xwb!odJwk4@Uq)D};-ul=cU?3OC
zn#kiCqQGXLP%@RX=T+D})hZw0<=P?51IFnE<z-P&7^6}5CTo3HjoDf5Fza;WPnICK
zV2)ZaDn)CTXk)ic+K>*Pe6f1rYfRyT{jzGNiA2@QVjY9|gvw?qM3c+=O8ZFDXi%GJ
o5_d4i$Vf0dhX**W{(DyT%pM%RzqW?jCwoEkLm3$^dz(D@H`gHVGXMYp

diff --git a/man/ynames_lookup.Rd b/man/ynames_lookup.Rd
index ade77f7..f5a92a3 100644
--- a/man/ynames_lookup.Rd
+++ b/man/ynames_lookup.Rd
@@ -30,6 +30,8 @@ then calculate reference) or either \code{"rt"} (first calculate reference,
 then transform).}
 \item{refcode}{A string coding the reference name recognised by
 \code{centile::load_reference()}.}
+\item{refpkg}{A string coding the package in which refcode can be found by
+\code{centile::load_reference()}.}
 }
 }
 \usage{