R/fn_iha_DOR_Year.R

In HARPgroup/cbp6:

#' Drought of Record Year Metric Function 
#' @description Calculates drought of record year of dataframe - must be trimmed to water year 
#' @param data a dataframe with hydrologic data 
#' @return The drought of record year
#' @import IHA
#' @export fn_iha_DOR_Year

#Returns the Drought of Record Year
fn_iha_DOR_Year <- function(data){
  loflows <- group2(data);
  l90 <- loflows["90 Day Min"];
  ndx = which.min(as.numeric(l90[,"90 Day Min"]));
  #}dor_flow = round(loflows[ndx,]$"90 Day Min",1);
  dor_year = loflows[ndx,]$"year";
}