In USGS-R/repgen: USGS internal report generation

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

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

**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(!isNullOrFalse(fetchRequestParametersField(data, 'excludeComments'))){ paste("**Advanced Options: ** Comments excluded.") }

tbl <- sensorreadingTable(data)
library(htmlTable)

if(!identical(tbl, "The dataset requested is empty.")){
  if(isNullOrFalse(data[['reportMetadata']][['requestParameters']][['excludeComments']])){
    rowColoring <- c("none", "none", "#F7F7F7", "#F7F7F7")
  } else {
    rowColoring <- c("none", "#F7F7F7")
  }

   htmlTable(tbl$toRet, 
    cgroup=c("Field Visit Information","Reference Readings","Recorder Readings","Correction Information","Nearest IV"),
    n.cgroup=c(4,4,4,4,3),
    col.rgroup = rowColoring, 
    css.class = "table-cell",
    align="|rrrr|cccc|cccc|rrrr|rrr|",
    rnames=FALSE)
}

library(dplyr)
if(!identical(tbl, "The dataset requested is empty.")){
  quals <- fetchQualifierMetadata(data)
  if(!is.null(quals) && length(quals) > 0){ 
    qualsBind <- bind_rows(quals[[1]])
    quals <- qualsBind[, c("code", "identifier", "displayName")]
    tbl2 <- formatQualifiersTable(quals)
    if(!is.null(tbl2) && nrow(tbl2) > 0){
      kable(tbl2, align='l', row.names=FALSE, caption = "Qualifiers")
    }
  }
}