# NOT RUN {
#This example requires an internet connection to run
INFO <- getNWISSiteInfo('01594440')
parameterCd <- "01075"
parameterData <- getNWISPcodeInfo(parameterCd)
INFO$param.nm <- parameterData$parameter_nm
INFO$param.units <- parameterData$parameter_units
INFO$paramShortName <- parameterData$srsname
INFO$paramNumber <- parameterData$parameter_cd
INFO <- populateParameterINFO(parameterCd, INFO)
# }
Run the code above in your browser using DataLab