R/act24_pairing_helpers.R

In PAHPLabResearch/FLASH: FLASH: Free Living Activity Study for Health

#' @rdname assign_primary_activities
#' @keywords internal
pairing_background <- function(info) {

  students <-
    info$incomplete %>%
    .minutes$Timestamp[.] %>%
    strftime("%H:%M:%S", "UTC")

  n_behaviors <-
    info$incomplete %>%
    info$Activity[., ] %>%
    apply(1, function(x) sum(!is.na(x)))

  bkgd <- data.frame(
    student = students,
    n_behaviors = n_behaviors,
    stringsAsFactors = FALSE
  )

  bkgd %>%
  data.table::frank(
    n_behaviors, student, ties.method = "first"
  ) %>%
  order(.) %>%
  bkgd[., ] %>%
  structure(., row.names = seq(nrow(.)))

}

#' @rdname assign_primary_activities
#' @param bkgd information obtained from \code{\link{pairing_background}}
#' @keywords internal
get_applications <- function(missing_info, bkgd) {

  list(
    students = bkgd$student,
    n_students = length(bkgd$student),
    colleges = as.character(missing_info$remaining$index),
    n_colleges = length(missing_info$remaining$index),
    college_labels = missing_info$remaining$Activity,
    quotas = missing_info$remaining$remaining
  )

}