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(data[['reportMetadata']][['primarySeriesLabel']])) {paste("**Selected Time Series:**", data[['reportMetadata']][['primarySeriesLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['firstStatDerivedLabel']])) {paste("**Stat Derived Time Series 1:**", data[['reportMetadata']][['firstStatDerivedLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['secondStatDerivedLabel']])) {paste("**Stat Derived Time Series 2:**", data[['reportMetadata']][['secondStatDerivedLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['thirdStatDerivedLabel']])) {paste("**Stat Derived Time Series 3:**", data[['reportMetadata']][['thirdStatDerivedLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['fourthStatDerivedLabel']])) {paste("**Stat Derived Time Series 4:**", data[['reportMetadata']][['fourthStatDerivedLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['comparisonSeriesLabel']])) {paste("**Comparison Time Series:**", data[['reportMetadata']][['comparisonSeriesLabel']])}`

**Period:** `r as.Date(data[['reportMetadata']][['startDate']])` to `r as.Date(data[['reportMetadata']][['endDate']])` `r if(!isEmptyOrBlank(data[['reportMetadata']][['firstReferenceTimeSeriesLabel']])) {paste("**Reference Time Series 1:**", data[['reportMetadata']][['firstReferenceTimeSeriesLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['secondReferenceTimeSeriesLabel']])) {paste("**Reference Time Series 2:**", data[['reportMetadata']][['secondReferenceTimeSeriesLabel']])}` `r if(!isEmptyOrBlank(data[['reportMetadata']][['thirdReferenceTimeSeriesLabel']])) {paste("**Reference Time Series 3:**", data[['reportMetadata']][['thirdReferenceTimeSeriesLabel']])}` **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(fetchReportMetadataField(data, 'excludeZeroNegative') || fetchReportMetadataField(data, 'excludeMinMax') || fetchReportMetadataField(data, 'excludeDiscrete')) {paste("**Advanced Options:**") }` `r if(fetchReportMetadataField(data, 'excludeZeroNegative')){ paste("Zero/negative values excluded.") }` `r if(fetchReportMetadataField(data, 'excludeMinMax')){ paste("Max/min instantaneous values excluded from plot.") }` `r if(fetchReportMetadataField(data, 'excludeDiscrete')){ paste("Discrete data excluded.") }`

*** wzxhzdk:1 #`r if(is.null(dvhplot)) {paste("The dataset requested is empty.")}`# `r getSimsUrl(data[["simsUrl"]])` `r getWaterDataUrl(data[["waterdataUrl"]])` `r printVersionStrings()`

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

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Tweet to @rdrrHQ

GitHub issue tracker

[e-mail]

Personal blog