make_standard <- function(name) {
growthstandard <- as.data.frame(
readr::read_tsv(paste0("data-raw/growthstandards/", name, ".txt")),
stringsAsFactors = FALSE
)
growthstandard$age <- as.integer(growthstandard$age)
growthstandard$sex <- as.integer(growthstandard$sex)
growthstandard
}
growthstandards_lenanthro <- make_standard("lenanthro")
growthstandards_weianthro <- make_standard("weianthro")
growthstandards_bmianthro <- make_standard("bmianthro")
growthstandards_hcanthro <- make_standard("hcanthro")
growthstandards_acanthro <- make_standard("acanthro")
growthstandards_tsanthro <- make_standard("tsanthro")
growthstandards_ssanthro <- make_standard("ssanthro")
growthstandards_wflanthro <- as.data.frame(
readr::read_tsv(paste0("data-raw/growthstandards/wflanthro.txt")),
stringsAsFactors = FALSE
)
growthstandards_wflanthro$sex <- as.integer(growthstandards_wflanthro$sex)
growthstandards_wfhanthro <- as.data.frame(
readr::read_tsv(paste0("data-raw/growthstandards/wfhanthro.txt")),
stringsAsFactors = FALSE
)
growthstandards_wfhanthro$sex <- as.integer(growthstandards_wfhanthro$sex)
usethis::use_data(growthstandards_weianthro,
growthstandards_lenanthro,
growthstandards_bmianthro,
growthstandards_wflanthro,
growthstandards_wfhanthro,
growthstandards_hcanthro,
growthstandards_acanthro,
growthstandards_tsanthro,
growthstandards_ssanthro,
overwrite = TRUE, internal = TRUE
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.