# NOT RUN {
site_id <- '01594440'
startDate <- '1985-01-01'
endDate <- ''
pCode <- c("00060","00010")
url_wqp <- constructWQPURL(paste("USGS",site_id,sep="-"),
c('01075','00029','00453'),
startDate,endDate)
url_wqp
charNames <- c("Temperature",
"Temperature, sample",
"Temperature, water",
"Temperature, water, deg F")
obs_url_orig <- constructWQPURL(siteNumbers = c("IIDFG-41WSSPAHS",
"USGS-02352560"),
parameterCd = charNames,
startDate,"")
obs_url_orig
# }
Run the code above in your browser using DataLab