R/hibbing_subwrapper_validation.R

In paulhibbing/TwoRegression: Develop and Apply Two-Regression Algorithms

algorithm_verify <- function(IMU, Algorithm) {
  if (!all(Algorithm %in% 1:3)) {
    message_update(23, is_message = TRUE)
    Algorithm <- Algorithm[Algorithm %in% 1:3]
  }

  if (length(Algorithm) == 0) {
    message_update(24, is_message = TRUE)
    return(1)
  }

  if (all(is.null(IMU), sum(Algorithm) != 1)) {
    message_update(17, is_message = TRUE)
    return(1)
  }

  return(Algorithm)
}


imu_verify <- function(IMU, Algorithm, IMU_ignore_A1) {
  if (all(!is.null(IMU), sum(Algorithm) == 1, IMU_ignore_A1)) {
    message_update(22, is_message = TRUE)
    return(NULL)
  }
  return(IMU)
}


attachment_verify <- function(Wear_Location) {
  valid_sites <-
    c("Hip", "Left Wrist", "Right Wrist", "Left Ankle", "Right Ankle")

  if (!all(Wear_Location %in% valid_sites)) {
    message_update(25, is_message = TRUE)
  }

  Wear_Location <- Wear_Location[Wear_Location %in% valid_sites]

  if (length(Wear_Location) == 0) {
    message_update(26, is_message = TRUE)
    Wear_Location <- "Hip"
  }

  return(Wear_Location)
}