#' Drought of Record Flow Metric Function
#' @description Calculates drought of record flow of dataframe - must be trimmed to water year
#' @param data a dataframe with hydrologic data
#' @return The drought of record flow
#' @import IHA
#' @export fn_iha_DOR
#Calculates the Drought of record Flow
fn_iha_DOR <- function(data){
loflows <- group2(data);
l90 <- loflows["90 Day Min"];
ndx = which.min(as.numeric(l90[,"90 Day Min"]));
dor_flow = loflows[ndx,]$"90 Day Min";
#dor_year = loflows[ndx,]$"year";
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.