In USGS-R/repgen: USGS internal report generation

## `r fetchReportMetadataField(data,'title')` Report

**Location:** `r fetchReportMetadataField(data,'stationId')` `r fetchReportMetadataField(data,'stationName')` `r if(!isEmptyOrBlank(fetchReportMetadataField(data,'primaryLabel'))) {paste("**Selected Series:**", fetchReportMetadataField(data,'primaryLabel'))}` `r if(!isEmptyOrBlank(fetchReportMetadataField(data,'upchainLabel'))) {paste("**Upchain Series:**", fetchReportMetadataField(data,'upchainLabel'))}` `r if(!isEmptyOrBlank(fetchReportMetadataField(data,'dvLabel'))) {paste("**Daily Value Series:**", fetchReportMetadataField(data,'dvLabel'))}`

**Period:** `r as.Date(fetchReportMetadataField(data,'startDate'))` to `r as.Date(fetchReportMetadataField(data,'endDate'))` **Created:** `r sprintf("%s (%s)", Sys.time(), Sys.timezone())` `r if (length(author) != 0) { paste("**Author:**",author[[1]]) }` `r if (length(author) == 0) { paste("**Author:** Username")}`

tbl <- extremesTable(data)
# formTable <- padTable(tbl)
# cat(formTable)
if(!identical(tbl, "The dataset requested is empty.")){
  kable(tbl$toRet, align='r', row.names=FALSE)
}

if(!identical(tbl, "The dataset requested is empty.")){

  if(any(grepl("\\s\\*$", tbl$toRet[,"Date"]))){cat("*\\* Multiple occurrences of the same extreme in selected dataset.*", "\n", seperator="\n")}

  if(tbl$footnote){cat("*Some extreme values in this period occurred at times that had no corresponding value in the related time series.*", "\n", seperator="\n")}

  cat("*Extremes date/time determined from un-rounded values*")
}

r if(identical(tbl, "The dataset requested is empty.")) {paste(tbl)}

if(!identical(tbl, "The dataset requested is empty.")){
  tbl2 <- extremesQualifiersTable(data, tbl$toRet, getExtremesConstants()$PRIMARY_HEADER_PREFIX, getExtremesConstants()$UPCHAIN_HEADER_PREFIX)
  if(!is.null(tbl2) && nrow(tbl2) > 0){
    kable(tbl2, align='l', row.names=FALSE, caption = "Qualifiers")
  }
}