R/subset_year.R

In one-acre-fund/arc2weather: Downloads and Extracts ARC2 Weather Data

#' Subset the raster list by year
#'
#' @param rList A list of raster in raster format.
#' @param year A numeric year between 1985 and present to indicate which years to keep. This can be a vector or range as well.
#' @return A list of rasters subset by year
#' @examples
#' add(1, 1)
#' add(10, 1)


subset_year <- function(rList, year){
  # input - list of weather rasters and year as INT.
  # output - year or years in question

  # consider adding in some checks that prevent erroneous years from being entered, too big or too small.
  year = as.character(year)

  if(length(year) > 1){
    year = paste(year, collapse = "|")
  }

  nameVector = lapply(rList, function(x) names(x))
  loc = grep(year, nameVector)
  res = rList[loc]
  return(res)
}