R/six_months_only.R

In neugelb/neugelbtools: Various small Neugelb tools

#' six_months_only
#'
#' An easy function for getting only the most recent six months from a data frame
#' @param df A data frame
#' @export

six_months_only <- function(df) {

  m <- df %>%
    distinct(month) %>%
    arrange(desc(month)) %>%
    slice(1:6)

  m <- m[['month']]

  df <- df %>%
    filter(month %in% m)

  return(df)
}