R/score_from_dic.R

In jazznbass/scaledic: Functions and data frame extension for scale based operations

#' Automatic scale scoring from a dic file
#'
#' @param data A data frame with dic information
#' @param dic A dic file with scoring information
#' @param impute_values If TRUE, missing values are imputed before scoring.
#'
#' @return A data frame with added scale scores.
#' @keywords internal
#' @export
score_from_dic <- function(data,
                           dic = NULL,
                           impute_values = FALSE) {

  if (!is.null(attributes(data)$dic$scales)) {
    dic <- attributes(data)$dic$scales
  }

  if (!is.null(dic)) dic <- dic[!is.na(dic[[opt("score_filter")]]), ]

  if (!identical(nrow(dic) > 0, TRUE)) {
    return(data)
  }

  if (!opt("score_function") %in% names(dic)) {
    dic[[opt("score_function")]] <- "mean"
  }

  for(i in 1:nrow(dic)) {
    sum <- if (dic[[opt("score_function")]][i] == "mean") FALSE else TRUE
    new_var <- dic[[.opt$item_name]][i]
    filter <- dic[[.opt$score_filter]][i]
    label <- dic[[.opt$item_label]][i]

    if (impute_values) {
      data <- .impute_missing(data, filter)
    }

    data[[new_var]] <- .score_scale(
      data,
      filter = filter,
      label = label,
      fun = NULL,
      min_valid = 1,
      max_na = NA,
      sum = sum,
      var_weight = "weight"
    )

  }

  data

}