Added example.

man/readWQPqw.Rd

@@ -112,7 +112,7 @@ site name, such as 'USGS-01234567'.
 rawPcode <- readWQPqw('USGS-01594440','01075', '', '')
 rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '')
 rawPHsites <- readWQPqw(c('USGS-05406450', 'USGS-05427949','WIDNR_WQX-133040'), 'pH','','')
-nwisEx <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),'','')
+nwisEx <- readWQPqw('USGS-04024000',c('34247','30234','32104','34220'),'','2012-12-20')
 }
 }
 \seealso{