Update to chartcatalog 1.18.0

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 

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`

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"

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)