R/center_data_each_year.R

Defines functions center_data_each_year

Documented in center_data_each_year

#' Selecting only centers who contributed data for all years.
#'
#' @param data A data frame with multiple years of CCMH data.
#'
#' @return A data frame with only centers contributing data for all data years included in the original data set.
#' @export
#'
#'
center_data_each_year <- function(data) {
  if(!"Data_year" %in% names(data) | !"CcmhID" %in% names(data)) {
    stop("Data_year or CcmhID columns missing.")
  } else{
    if(sum(is.na(data$Data_year) | is.na(data$CcmhID)) >0) {
      stop("Data_year variable contains missing data.")
    } else{
      dplyr::group_by(data, .data$CcmhID) %>%
        dplyr::filter(dplyr::n_distinct(data$Data_year) == length(unique(.data$Data_year))) %>%
        dplyr::ungroup() %>%
        return()
    }
  }
}
jpetrovich02/CCMHr documentation built on Jan. 25, 2024, 11:57 p.m.