In USGS-R/repgen: USGS internal report generation

    isUvHydroReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "UV HYDROGRAPH")
    isCorrReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "CORRECTIONS AT A GLANCE")
    isDvHydroReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "DV HYDROGRAPH")
    isVdiagramReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "V-DIAGRAM")
    isSRSReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "SENSOR READING SUMMARY")
    isSVPReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "SITE VISIT PEAK")
    isExtremesReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "EXTREMES")
    isFiveYrReport <- !isEmptyOrBlank(fetchReportMetadataField(data,'title')) && grepl(toupper(fetchReportMetadataField(data,'title')), "FIVE YEAR GW SUMMARY")

wzxhzdk:1

`r if(!isEmptyOrBlank(fetchReportMetadataField(data,'title'))) {paste("##",fetchReportMetadataField(data,'title'), "Report")}`

**Location:** `r fetchReportMetadataField(data,'stationId')` - `r fetchReportMetadataField(data,'stationName')` wzxhzdk:2

**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") }`

wzxhzdk:3 `r if(!isEmptyOrBlank(excludeZeroNegative) && excludeZeroNegative) {paste("*If zero/negative values are excluded, line will connect non-zero/positive values.*")}`

USGS-R/repgen documentation built on April 14, 2021, 2:47 p.m.