Skip to content
Snippets Groups Projects
Commit de86b188 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Latest build.

parent af237f26
No related branches found
No related tags found
No related merge requests found
Showing
with 28 additions and 28 deletions
......@@ -6,10 +6,10 @@ export(dateFormatCheck)
export(formatCheckDate)
export(formatCheckParameterCd)
export(formatCheckSiteNumber)
export(getDVData)
export(getDailyDataFromFile)
export(getDataAvailability)
export(getDataFromFile)
export(getDVData)
export(getMetaData)
export(getMultipleParameterNames)
export(getParameterInfo)
......@@ -18,14 +18,14 @@ export(getPreLoadedData)
export(getPreLoadedSampleData)
export(getQWData)
export(getQWDataFromFile)
export(getRDB1Data)
export(getRawQWData)
export(getSTORETSampleData)
export(getRDB1Data)
export(getSampleData)
export(getSampleDataFromFile)
export(getSiteFileData)
export(getWQPData)
export(getSTORETSampleData)
export(getWaterML1Data)
export(getWQPData)
export(mergeReport)
export(padVariable)
export(populateConcentrations)
......
......@@ -26,6 +26,6 @@ startDate <- '1985-01-01'
endDate <- '1990-01-01'
checkStartEndDate(startDate, endDate, interactive = FALSE)
}
\keyword{WRTDS}
\keyword{flow}
\keyword{WRTDS}
......@@ -36,6 +36,6 @@ value3 <- c(3,4,5)
dataInput <- data.frame(dateTime, comment1, value1, comment2, value2, comment3, value3, stringsAsFactors=FALSE)
compressData(dataInput, interactive=FALSE)
}
\keyword{WRTDS}
\keyword{flow}
\keyword{WRTDS}
......@@ -67,9 +67,9 @@ url_qw <- constructNWISURL(siteNumber,c('01075','00029','00453'),startDate,endDa
url_wqp <- constructNWISURL(siteNumber,c('01075','00029','00453'),startDate,endDate,'wqp')
url_daily_tsv <- constructNWISURL(siteNumber,pCode,startDate,endDate,'dv',statCd=c("00003","00001"),format="tsv")
}
\keyword{USGS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
......@@ -21,8 +21,8 @@ dataOverview(localDaily = exDaily, localSample = exSample)
\seealso{
\code{\link{mergeReport}}
}
\keyword{USGS}
\keyword{WRTDS}
\keyword{data}
\keyword{import}
\keyword{USGS}
\keyword{WRTDS}
......@@ -18,6 +18,6 @@
date <- '1985-01-01'
dateFormatCheck(date)
}
\keyword{WRTDS}
\keyword{flow}
\keyword{WRTDS}
......@@ -27,6 +27,6 @@ Date <- '1985-01-01'
dateString <- 'StartDate'
formatCheckDate(Date, dateString, interactive = FALSE)
}
\keyword{WRTDS}
\keyword{flow}
\keyword{WRTDS}
......@@ -23,6 +23,6 @@
pCode <- '01234'
formatCheckParameterCd(pCode, interactive = FALSE)
}
\keyword{WRTDS}
\keyword{flow}
\keyword{WRTDS}
......@@ -22,6 +22,6 @@
site<- '01234567'
formatCheckSiteNumber(site, interactive = FALSE)
}
\keyword{WRTDS}
\keyword{flow}
\keyword{WRTDS}
......@@ -57,8 +57,8 @@ Daily <- getDVData('01594440','00060', '1985-01-01', '1985-03-31', interactive=F
\code{\link{retrieveNWISData}},
\code{\link{populateDaily}}
}
\keyword{USGS}
\keyword{WRTDS}
\keyword{data}
\keyword{import}
\keyword{USGS}
\keyword{WRTDS}
......@@ -40,9 +40,9 @@ filePath <- '~/RData/' # Sample format
fileName <- 'ChoptankRiverFlow.txt'
\dontrun{getDailyDataFromFile(filePath,fileName,separator="\\t")}
}
\keyword{USGS}
\keyword{WRTDS}
\keyword{data}
\keyword{file}
\keyword{import}
\keyword{USGS}
\keyword{WRTDS}
......@@ -31,9 +31,9 @@
# These examples require an internet connection to run
availableData <- getDataAvailability('05114000',interactive=FALSE)
}
\keyword{USGS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
......@@ -39,10 +39,10 @@
# Automatically gets information about site 05114000 and temperature, no interaction with user
INFO <- getMetaData('05114000','00010',interactive=FALSE)
}
\keyword{USGS}
\keyword{WRTDS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
\keyword{WRTDS}
......@@ -28,9 +28,9 @@
# These examples require an internet connection to run
availableData <- getMultipleParameterNames(c("00060", "00065", "00010"),interactive=FALSE)
}
\keyword{USGS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
......@@ -28,9 +28,9 @@
paramINFO <- getParameterInfo('01075')
paramINFO2 <- getParameterInfo('00931',interactive=FALSE)
}
\keyword{USGS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
......@@ -28,7 +28,7 @@
\examples{
Daily <- getPreLoadedDailyData(ChoptankRiverFlow, interactive=FALSE)
}
\keyword{WRTDS}
\keyword{data}
\keyword{import}
\keyword{WRTDS}
......@@ -23,7 +23,7 @@
\examples{
Sample <- getPreLoadedSampleData(ChoptankRiverNitrate, interactive=FALSE)
}
\keyword{WRTDS}
\keyword{data}
\keyword{import}
\keyword{WRTDS}
......@@ -46,9 +46,9 @@ rawProcessedSample <- getQWData('01594440','01075', '1985-01-01', '1985-03-31')
rawProcessedSampleAll <- getQWData('05114000','', '1985-01-01', '1985-03-31')
rawProcessedSampleSelect <- getQWData('05114000','00915;00931', '1985-01-01', '1985-04-30', interactive=FALSE)
}
\keyword{USGS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
......@@ -45,9 +45,9 @@ rawSample <- getRawQWData('01594440','01075', '1985-01-01', '1985-03-31')
rawSampleAll <- getRawQWData('05114000','', '1985-01-01', '1985-03-31')
rawSampleSelect <- getRawQWData('05114000',c('00915','00931'), '1985-01-01', '1985-04-30', interactive=FALSE)
}
\keyword{USGS}
\keyword{data}
\keyword{import}
\keyword{service}
\keyword{USGS}
\keyword{web}
......@@ -44,8 +44,8 @@ Sample_All <- getSTORETSampleData('WIDNR_WQX-10032762','Specific conductance', '
\code{\link{compressData}},
\code{\link{populateSampleColumns}}
}
\keyword{USGS}
\keyword{WRTDS}
\keyword{data}
\keyword{import}
\keyword{USGS}
\keyword{WRTDS}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment