R/adfgConvert_DateMMDDYYYYtoFisheryYear.R

In wStockhausen/tcsamFisheryDataADFG: Functions to process ADFG crab fishery data

#'
#' @title Convert a vector of dates as mm-dd-yyyy to numeric fishery years
#'
#' @description Function to convert a vector of dates as mm-dd-yyyy to numeric fishery years
#'
#' @param x - vector of dates as mm-dd-yyyy strings
#'
#' @return numeric vector of fishery years (e.g., 1990 represents 1990/91)
#'
#' @details The fishery year extends from July 1, yyyy to June 30, yyyy+1,so
#' if mm<7, then year=yyyy-1, otherwise year=yyyy.
#'
#' @export
#'
adfgConvert_DateMMDDYYYYtoFisheryYear<-function(x){
  mn<-as.numeric(substr(x,1,2));
  yr<-as.numeric(substr(x,7,10));
  aj<-ifelse(mn<7,-1,0);
  return(yr+aj);
}