R/set_default.R

In dscore: D-Score for Child Development

set_default_key <- function(key) {
  if (is.null(key) || key == "gsed") {
    key <- "gsed2406"
  }
  return(key)
}

set_default_population <- function(population, idx) {
  if (is.null(population) && length(idx)) {
    return(dscore::builtin_keys$base_population[idx])
  }
  if (is.null(population) && !length(idx)) {
    return("preliminary_standards")
  }
  return(population)
}

set_default_transform <- function(transform, idx) {
  if (is.null(transform) && length(idx)) {
    return(c(dscore::builtin_keys$intercept[idx],
             dscore::builtin_keys$slope[idx]))
  }
  if (is.null(transform) && !length(idx)) {
    return(c(54.939147, 4.064264))
  }
  return(transform)
}

set_default_qp <- function(qp, idx) {
  if (is.null(qp) && length(idx)) {
    return(seq(from = dscore::builtin_keys$from[idx],
               to = dscore::builtin_keys$to[idx],
               by = dscore::builtin_keys$by[idx]))
  }
  if (is.null(qp) && !length(idx)) {
    return(-10:100)
  }
  return(qp)
}