Fixed a bug.

R/readNWISpCode.r

@@ -17,7 +17,7 @@ readNWISpCode <- function(parameterCd){
   
   parameterData <- parameterCdFile[parameterCdFile$parameter_cd %in% parameterCd,]
 
-  if(nrow(parameterData) == 0){
+  if(nrow(parameterData) != length(parameterCd)){
     
     if(length(parameterCd) == 1){
       url <- paste0("http://nwis.waterdata.usgs.gov/nwis/pmcodes/pmcodes?radio_pm_search=pm_search",