R/f2.R

In yh2979/nba:

#'  the oldest player in the NBA data for that year.
#'  @param year
#'  @example 
#'  f2(2011)
#'  @export
f2 <- function(x){
  year_data <- dplyr::filter(nba, Year == x)
  ranking <- dplyr::arrange(year_data, desc(Age))
  oldest <- ranking[1,]
  output <- dplyr::select(oldest, Year, Player, Age)
  return(output)
}