data-raw/R/save_builtin_itemtable.R

In D-score/dscore: D-Score for Child Development

# Save built-in itemtable
# Fields: item, equate, label
library(dplyr)
fn <- file.path("data-raw/data/itemtable_20221201.txt")
builtin_itemtable <- read.delim(
  file = fn, quote = "",
  stringsAsFactors = FALSE, na = "",
  fileEncoding = "UTF-8",
  header = TRUE
)

## add GSED SF itemtable: gs1 and gl1 (Phase 2)
gsx_itemtable <- read.delim("data-raw/data/keys/items_gs1_gl1.txt",
  stringsAsFactors = FALSE, na = "",
  fileEncoding = "UTF-8",
  header = TRUE
) |>
  mutate(equate = NA_character_) |>
  select(item, equate, label)

## add ecdi items to itemtable
ecdi_itemtable <- read.delim("data-raw/data/ecdi_itemtable.txt")
ecdi_itemtable <- ecdi_itemtable |>
  select(item, label) |>
  mutate(equate = NA_character_) |>
  select(item, equate, label) |>
  mutate(
    equate = ifelse(item %in% c("ecdxxc001", "gpamoc097"), "ECD1", NA),
    equate = ifelse(item %in% c("ecdxxc002", "gpamoc106"), "ECD2", equate),
    equate = ifelse(item %in% c("ecdxxc003", "gpamoc129"), "ECD3", equate),
    equate = ifelse(item %in% c("ecdxxc004", "gpamoc132"), "ECD4", equate),
    equate = ifelse(item %in% c("ecdxxc005", "gpacmc090"), "ECD5", equate),
    equate = ifelse(item %in% c("ecdxxc006", "gpaclc112"), "ECD6", equate),
    equate = ifelse(item %in% c("ecdxxc008", "gpaclc113"), "ECD8", equate),
    equate = ifelse(item %in% c("ecdxxc009", "gpaclc101"), "ECD9", equate),
    equate = ifelse(item %in% c("ecdxxc013", "gpaclc126"), "ECD13", equate)
  )

## add HF items to itemtable, creates instrument code gh1, overwrites item
hh_itemtable <- openxlsx::read.xlsx("data-raw/data/ageforms_2023-01-13.xlsx")
info <- dscore::decompose_itemnames(hh_itemtable$item)
info$instrument <- "gh1"
info$domain <- recode(hh_itemtable$voted_domain, cog = "cg", lang = "lg", life = "li", motor = "mo", sem = "se")
info$number <- formatC(1:55, width = 3, flag = "0")
hh_itemtable$item <- with(info, paste0(instrument, domain, mode, number))
hh_itemtable <- hh_itemtable |>
  mutate(equate = NA_character_) |>
  select(item, equate, label)

builtin_itemtable <- bind_rows(
  gsx_itemtable,
  builtin_itemtable,
  ecdi_itemtable,
  hh_itemtable
)

info <- dscore::decompose_itemnames(builtin_itemtable$item)
builtin_itemtable <- builtin_itemtable |>
  bind_cols(info) |>
  arrange(instrument, domain, mode, number) |>
  select(item, equate, label)

# check
if (any(duplicated(builtin_itemtable$item))) cat("Duplicated items found.")

usethis::use_data(builtin_itemtable, overwrite = TRUE)