Commit 802ffb11 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

internalling this?

parent 629d8295
......@@ -5,12 +5,7 @@
#'
#' @param values named list with arguments to send to the Water Quality Portal
#' @return values named list with corrected arguments to send to the Water Quality Portal
#' @export
#' @keywords internal
#' @examples
#' values <- list(startDateLo="01-01-2002", characteristicName="Phosphorous",
#' endDate=as.Date("2014-01-01"))
#' values <- checkWQPdates(values)
checkWQPdates <- function(values){
dateNames <- c("startDateLo","startDateHi","startDate","endDate")
......
......@@ -372,15 +372,6 @@ test_that("Construct WQP urls", {
expect_equal(obs_url_orig, "https://www.waterqualitydata.us/data/Result/search?siteid=IIDFG-41WSSPAHS;USGS-02352560&characteristicName=Temperature;Temperature%2C%20sample;Temperature%2C%20water;Temperature%2C%20water%2C%20deg%20F&mimeType=tsv&zip=yes")
})
context("checkWQPdates")
test_that("checkWQPdates", {
values <- list(startDateLo="01-01-2002", characteristicName="Phosphorous",
endDate=as.Date("2014-01-01"))
values1 <- checkWQPdates(values)
expect_equal(values1$startDateHi, "01-01-2014")
expect_equal(values1$startDateLo, "01-01-2002")
})
context("Construct WQP urls")
test_that("Construct WQP urls", {
siteNumber <- '01594440'
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment