From 37dd89c01083d41bbc71a987fb82209953bf8e0a Mon Sep 17 00:00:00 2001
From: Laura DeCicco <ldecicco@usgs.gov>
Date: Wed, 4 Sep 2013 14:22:11 -0500
Subject: [PATCH] Fixed example.
---
R/renameColumns.R | 5 +++--
man/renameColumns.Rd | 5 +++--
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/R/renameColumns.R b/R/renameColumns.R
index bf5c68db..ecdb4e22 100644
--- a/R/renameColumns.R
+++ b/R/renameColumns.R
@@ -8,8 +8,9 @@
#' @export
#' @examples
#' # This example requires an internet connection to run
-#' rawData2 <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
-#' rawData2 <- renameColumns(rawData2)
+#' siteNumber <- '05114000'
+#' rawData <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
+#' rawData <- renameColumns(rawData)
renameColumns <- function(rawData){
columnNames <- names(rawData)
diff --git a/man/renameColumns.Rd b/man/renameColumns.Rd
index d1900410..84bdd5cc 100644
--- a/man/renameColumns.Rd
+++ b/man/renameColumns.Rd
@@ -16,8 +16,9 @@
}
\examples{
# This example requires an internet connection to run
-rawData2 <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
-rawData2 <- renameColumns(rawData2)
+siteNumber <- '05114000'
+rawData <- retrieveNWISData(siteNumber,c("00010","00060","00300"),"2001-01-01","2002-01-01",StatCd=c("00001","00003"))
+rawData <- renameColumns(rawData)
}
\keyword{USGS}
\keyword{data}
--
GitLab