R/filter_clc_data.r

In Display-Lab/goals-of-care: VA Goals of Care Conversations Feedback

#' @title Filter CLC Data
#' @description Handle the special cases of CLC data
#' @param df clc dataframe
#' @return dataframe of filtered CLC data
#' @importFrom stringr str_to_lower
filter_clc_data <- function(df){
  names(df) <- str_to_lower(names(df))
  filter_recent_times(df, 6)
}