Fixed start origin.

R/constructNWISURL.r

@@ -137,7 +137,7 @@ constructNWISURL <- function(siteNumber,parameterCd,startDate,endDate,service,st
           if (nzchar(startDate)) {
             url <- paste(url,"&startDT=",startDate,sep="")
           } else {
-            startorgin <- "1850-01-01"
+            startorgin <- "1851-01-01"
             if ("uv" == service) startorgin <- "1900-01-01"            
             url <- paste(url,"&startDT=",startorgin,sep="")
           }