In USGS-R/repgen: USGS internal report generation

wzxhzdk:0

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

**Location:** `r fetchReportMetadataField(data,'stationId')` - `r fetchReportMetadataField(data,'stationName')` **Selected Time Series:** `r fetchReportMetadataField(data,'primaryParameter')`

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

r if(!isEmptyOrBlank(fetchRequestParametersField(data, 'excludedCorrections'))){ paste("**Advanced Options: ** Delete corrections excluded.") }

---

table_timeline <- correctionsataglanceReport(data)
print(table_timeline$timeline)

kable(table_timeline$tableOfLabels, align='l')

Note: Freehand Corrections will display as Copy/Paste if the default Comment is removed.

r printVersionStrings()

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