Skip to contents

This function does three things. 1) It transfers the daily discharge value from the Daily data frame to to Sample data frame for those days with samples. 2) It merges the INFO, Daily and Sample data frames to form an eList object, 3) and it prints out a "report" of basic information about the Daily and Sample data frames.

Usage

mergeReport(INFO, Daily, Sample = NA, surfaces = NA, verbose = TRUE,
  interactive = NULL)

Arguments

INFO

dataframe metadata about the Sample and Daily data frames.

Daily

dataframe containing the daily discharge data

Sample

dataframe containing the sample data

surfaces

matrix returned from modelEstimation. Default is NA.

verbose

logical specifying whether or not to display summary information on the Daily and Sample dataframes.

interactive

logical deprecated. Use 'verbose' instead

Value

eList named list with at least INFO, and Daily data frames. It can also include a Sample data frame.

Details

There must be an INFO and a Daily data frame for this function to work. That would be the case for a study of flow only, with no consideration of water quality. If water quality is being considered then INFO, Daily, and Sample all need to be provided in the call to this function.

Note that the Sample dataframe in the global environment does not update with the flow information.

Examples


siteNumber <- '01491000'
pCode <- '00631'
# \donttest{
Daily <- readNWISDaily(siteNumber,'00060', '1984-10-01', '')
#> GET: https://waterservices.usgs.gov/nwis/dv/?site=01491000&format=rdb,1.0&ParameterCd=00060&StatCd=00003&startDT=1984-10-01
#> There are 14660 data points, and 14660 days.
Sample <- readNWISSample(siteNumber,pCode, '1984-10-01', '')
#> More than one ActivityMediaName returned
INFO <- readNWISInfo(siteNumber,pCode,interactive=FALSE)
#> GET: https://waterservices.usgs.gov/nwis/site/?siteOutput=Expanded&format=rdb&site=01491000
eList <- mergeReport(INFO, Daily, Sample)
#> 
#> There are 51 duplicated Sample dates.
Sample <- eList$Sample
plot(eList)


# Create eList with no water quality data:

eList <- mergeReport(INFO, Daily, Sample = NA)
plotFour(eList)

# }