R/post_process_data.R

In Rapi: Interface for Multiple Data Providers 'EDDS' and 'FRED'

limit_years_of_data <- function(.data, dots_params) {
  if (is.null(.data)|| isFALSE(.data)) {
    return(null)
  }

  .data <- .data %>% dplyr::filter(date >= dots_params$start_date)
  if (!is.null(dots_params$end_date)) {
    .data <- .data %>% dplyr::filter(date < dots_params$end_date)
  }
  .data
}