data-raw/R/save_all_data.R

In growthcharts/growthscreener: Finding Children with Unusual Growth Patterns

library(readxl)
library(AGD)
library(usethis)
library(here)

source(here("data-raw", "R", "create_ref.nl5def.R"))
source(here("data-raw", "R", "create_ref.nl5defSGAgewicht.R"))
source(here("data-raw", "R", "create_ref.nl5defSGAlengte.R"))
source(here("data-raw", "R", "create_bmi_table.R"))
source(here("data-raw", "R", "create_reminder_table.R"))

ref.nl5defSGAgewicht <- create_ref.nl5defSGAgewicht()
ref.nl5defSGAlengte <- create_ref.nl5defSGAlengte()

ref.nl5def <- create_ref.nl5def()
nl45.hgt <- rbind(nl4.hgt, ref.nl5def)
nl5.hgt <- nl45.hgt[nl45.hgt[, 1] == "nl5", ]

fn <- file.path(path, "data", "Hindo.xlsx")
Hindo.hgt <- data.frame(read_excel(fn))
nl5.hgt <- rbind(nl5.hgt, Hindo.hgt)

bmi_table <- create_bmi_table()
reminder_table <- create_reminder_table()

usethis::use_data(nl5.hgt, ref.nl5defSGAgewicht, ref.nl5defSGAlengte, bmi_table,
									reminder_table,
                  overwrite = TRUE)