Merge pull request #368 from ldecicco-USGS/master

Fixing package level help so ?dataRetrieval will work

DESCRIPTION

@@ -3,14 +3,15 @@ Type: Package
 Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
 Version: 2.7.0
 Date: 2017-05-05
-Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
+Authors@R: c(person("Robert", "Hirsch", role = c("aut"),
     email = "[email protected]"),
     person("Laura", "DeCicco", role = c("aut","cre"),
     email = "[email protected]"),
-    person("David","Lorenz", role=c("aut"),
-    email = "[email protected]"),
+    person("David","Lorenz", role=c("aut")),
     person("Jordan", "Read", role = c("ctb"),
     email = "[email protected]"),
+    person("Jordan", "Walker", role = c("ctb"),
+    email = "[email protected]"),
     person("Lindsay","Carr", role=c("ctb"),
     email = "[email protected]"),
     person("David","Watkins", role=c("aut"),

R/tabbedDataRetrievals.R

@@ -22,7 +22,7 @@
 #' 
 #' Please see \url{https://pubs.er.usgs.gov/publication/tm4A10} for more information.
 #'
-#' @name dataRetrieval-package
+#' @name dataRetrieval
 #' @docType package
 #' @author Laura De Cicco \email{ldecicco@@usgs.gov}
 #' @keywords USGS, web services

R/whatNWISsites.R

@@ -81,7 +81,12 @@ whatNWISsites <- function(...){
   retVal <- retVal[!duplicated(retVal),]
 
   attr(retVal, "url") <- urlCall
-  attr(retVal, "queryTime") <- Sys.time()
+
+  timenow <- Sys.time()
+
+  attr(retVal, "queryTime") <- timenow
+  # Backwards compatible, might remove later:
+  retVal$queryTime <- timenow
 
   return(retVal)
 }