data-raw/R/import_references.R

In growthcharts/jamesyzy: Transforms between Measurements and Z-scores for JAMES

# import selected references
path <- file.path("data-raw/data")
libs <- c("nl1997", "preterm", "dscore")

for (lib in libs) {
  files <- list.files(file.path(path, lib))
  for (file in files) {
    ref <- yzy::read_ref(file.path(path, lib, file))
    s <- attr(ref, "study")
    refcode <- yzy::make_refcode(s["name"], s["year"], s["yname"], s["sex"], s["sub"])
    assign(refcode, ref)
  }
}

usethis::use_data(
  gc_2019_dsc_female_,
  gc_2019_dsc_male_,
  nl_1997_bmi_female_ma,
  nl_1997_bmi_female_nl,
  nl_1997_bmi_female_tu,
  nl_1997_bmi_male_ma,
  nl_1997_bmi_male_nl,
  nl_1997_bmi_male_tu,
  nl_1997_hdc_female_ma,
  nl_1997_hdc_female_nl,
  nl_1997_hdc_female_tu,
  nl_1997_hdc_male_ma,
  nl_1997_hdc_male_nl,
  nl_1997_hdc_male_tu,
  nl_1997_hgt_female_ma,
  nl_1997_hgt_female_nl,
  nl_1997_hgt_female_tu,
  nl_1997_hgt_male_ma,
  nl_1997_hgt_male_nl,
  nl_1997_hgt_male_tu,
  nl_1997_hip_female_,
  nl_1997_hip_male_,
  nl_1997_lgl_female_,
  nl_1997_lgl_male_,
  nl_1997_shh_female_,
  nl_1997_shh_male_,
  nl_1997_sit_female_,
  nl_1997_sit_male_,
  nl_1997_wfh_female_maa,
  nl_1997_wfh_female_mab,
  nl_1997_wfh_female_nla,
  nl_1997_wfh_female_nlb,
  nl_1997_wfh_female_tua,
  nl_1997_wfh_female_tub,
  nl_1997_wfh_male_maa,
  nl_1997_wfh_male_mab,
  nl_1997_wfh_male_nla,
  nl_1997_wfh_male_nlb,
  nl_1997_wfh_male_tua,
  nl_1997_wfh_male_tub,
  nl_1997_wgt_female_ma,
  nl_1997_wgt_female_nl,
  nl_1997_wgt_female_tu,
  nl_1997_wgt_male_ma,
  nl_1997_wgt_male_nl,
  nl_1997_wgt_male_tu,
  nl_1997_whr_female_,
  nl_1997_whr_male_,
  nl_1997_wst_female_,
  nl_1997_wst_male_,
  nl_2012_hdc_female_25,
  nl_2012_hdc_female_26,
  nl_2012_hdc_female_27,
  nl_2012_hdc_female_28,
  nl_2012_hdc_female_29,
  nl_2012_hdc_female_30,
  nl_2012_hdc_female_31,
  nl_2012_hdc_female_32,
  nl_2012_hdc_female_33,
  nl_2012_hdc_female_34,
  nl_2012_hdc_female_35,
  nl_2012_hdc_female_36,
  nl_2012_hdc_male_25,
  nl_2012_hdc_male_26,
  nl_2012_hdc_male_27,
  nl_2012_hdc_male_28,
  nl_2012_hdc_male_29,
  nl_2012_hdc_male_30,
  nl_2012_hdc_male_31,
  nl_2012_hdc_male_32,
  nl_2012_hdc_male_33,
  nl_2012_hdc_male_34,
  nl_2012_hdc_male_35,
  nl_2012_hdc_male_36,
  nl_2012_hgt_female_25,
  nl_2012_hgt_female_26,
  nl_2012_hgt_female_27,
  nl_2012_hgt_female_28,
  nl_2012_hgt_female_29,
  nl_2012_hgt_female_30,
  nl_2012_hgt_female_31,
  nl_2012_hgt_female_32,
  nl_2012_hgt_female_33,
  nl_2012_hgt_female_34,
  nl_2012_hgt_female_35,
  nl_2012_hgt_female_36,
  nl_2012_hgt_male_25,
  nl_2012_hgt_male_26,
  nl_2012_hgt_male_27,
  nl_2012_hgt_male_28,
  nl_2012_hgt_male_29,
  nl_2012_hgt_male_30,
  nl_2012_hgt_male_31,
  nl_2012_hgt_male_32,
  nl_2012_hgt_male_33,
  nl_2012_hgt_male_34,
  nl_2012_hgt_male_35,
  nl_2012_hgt_male_36,
  nl_2012_wfh_female_,
  nl_2012_wfh_male_,
  nl_2012_wgt_female_25,
  nl_2012_wgt_female_26,
  nl_2012_wgt_female_27,
  nl_2012_wgt_female_28,
  nl_2012_wgt_female_29,
  nl_2012_wgt_female_30,
  nl_2012_wgt_female_31,
  nl_2012_wgt_female_32,
  nl_2012_wgt_female_33,
  nl_2012_wgt_female_34,
  nl_2012_wgt_female_35,
  nl_2012_wgt_female_36,
  nl_2012_wgt_male_25,
  nl_2012_wgt_male_26,
  nl_2012_wgt_male_27,
  nl_2012_wgt_male_28,
  nl_2012_wgt_male_29,
  nl_2012_wgt_male_30,
  nl_2012_wgt_male_31,
  nl_2012_wgt_male_32,
  nl_2012_wgt_male_33,
  nl_2012_wgt_male_34,
  nl_2012_wgt_male_35,
  nl_2012_wgt_male_36,
  nl_2014_dsc_female_25,
  nl_2014_dsc_female_26,
  nl_2014_dsc_female_27,
  nl_2014_dsc_female_28,
  nl_2014_dsc_female_29,
  nl_2014_dsc_female_30,
  nl_2014_dsc_female_31,
  nl_2014_dsc_female_32,
  nl_2014_dsc_female_33,
  nl_2014_dsc_female_34,
  nl_2014_dsc_female_35,
  nl_2014_dsc_female_36,
  nl_2014_dsc_female_40,
  nl_2014_dsc_male_25,
  nl_2014_dsc_male_26,
  nl_2014_dsc_male_27,
  nl_2014_dsc_male_28,
  nl_2014_dsc_male_29,
  nl_2014_dsc_male_30,
  nl_2014_dsc_male_31,
  nl_2014_dsc_male_32,
  nl_2014_dsc_male_33,
  nl_2014_dsc_male_34,
  nl_2014_dsc_male_35,
  nl_2014_dsc_male_36,
  nl_2014_dsc_male_40,
  internal = TRUE, overwrite = TRUE
)