Develop

[ldecicco-USGS]

Giving ability for legacy services to POST

[ldecicco-USGS]

Merging so that the TADA crew can test the updates. These were the tests I ran:

library(dataRetrieval)

state_fip <- stateCdLookup("WI", outputType = "fips")
user_char <- "Phosphorus as phosphorus, water, unfiltered"
# To get a big list of sites:
state_sites_recent <- read_USGS_samples(stateFips = state_fip,
                                        characteristicUserSupplied = user_char,
                                        dataType = "locations",
                                        dataProfile = "site")

x <- whatWQPsites(siteid = unique(state_sites_recent$Location_Identifier))

y <- whatWQPdata(siteid = unique(state_sites_recent$Location_Identifier))

z <- whatWQPmetrics(siteid = unique(state_sites_recent$Location_Identifier))