R/clm__clmCheckRequirements__checkWavesRequirements.R

In phmpacheco-ufjf/clm: A package to deal with complex longitudinal survey data

checkWavesRequirements <- function(waves) {
  if (dim(waves)[2] > 1) {
    stop("Invalid 'waves' argument. Must be one-dimensional!")
  } else if (typeof(waves$value) == "logical") {
    stop("Invalid 'waves' argument. Shouldn't logical!")
  } else if (any(is.na(waves$value))) {
    stop("Invalid 'waves' argument. Shouldn't have NA values!")
  } else {
    wavesCount <- length(unique(waves %>%
      dplyr::group_by(value) %>%
      dplyr::summarise(count = dplyr::n(), .groups = "drop") %>%
      .$count))
    if (wavesCount != 1) {
      stop("Invalid 'waves' argument. Waves shouldn't have different lenghts!")
    }
  }

  return(NULL)
}