In USGS-R/repgen: USGS internal report generation

wzxhzdk:0

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

**Location:** `r fetchReportMetadataField(data,'stationId')` - `r fetchReportMetadataField(data,'stationName')` `r if(!isEmptyOrBlank(fetchReportMetadataField(data,'primaryTimeseriesIdentifier'))) {paste("**Selected Time Series:**", fetchReportMetadataField(data,'primaryTimeseriesIdentifier'))}` `r if(!isEmptyOrBlank(fetchReportMetadataField(data,'upchainTimeseriesIdentifier'))) {paste("**Upchain Time Series:**", fetchReportMetadataField(data,'upchainTimeseriesIdentifier'))}` `r if(!isEmptyOrBlank(fetchRequestParametersField(data,'ratingModelIdentifier'))) {paste("**Rating Model:**", fetchRequestParametersField(data,'ratingModelIdentifier'))}`

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

  vplot <- renderVDiagram(data)

---

r ifelse(!is.null(vplot), excludedConditionsMessage(data), "")

  print(vplot)

r ifelse(!is.null(vplot), paste("\n Horizontal red bars at max and min gage height for the period shown.\n"), "") r ifelse(!is.null(vplot), paste("\n Measurement numbers in blue have publish = false.\n"), "")

r ifelse(!is.null(vplot) && !isEmptyOrBlank(historyMeasurementsLabel(data)), paste(historyMeasurementsLabel(data)), "")

  if(!is.null(vplot)){
    vdiagramTable(data)
  }

r if(is.null(vplot)) {paste("No measurements or defined shifts exist during the report period.")}

r printVersionStrings()

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