Merge pull request #162 from ldecicco-USGS/master

Getting rid of bad data.

Author: ldecicco-USGS

R/gsplot.R

@@ -48,27 +48,3 @@ NULL
 #' head(MaumeeDV)
 NULL
 
-#' Example Unit Data
-#'
-#' Example data representing data from the Maumee River at Waterville OH (discharge)
-#'
-#' @name MaumeeUV
-#' @docType data
-#' @examples 
-#' \dontrun{
-#' 
-#' library(dataRetrieval)
-#' 
-#' sites <-c("04193490","04193500")
-#' 
-#' begin <- "1981-10-01"
-#' end <- "2011-09-30"
-#' 
-#' pCodes <- c("00060","00010","00400")
-#' statCd <- c("00003", "00008")
-#' 
-#' MaumeeUV <- readNWISuv(sites[2],"00060")
-#' MaumeeUV <- renameNWISColumns(MaumeeUV)
-#' }
-#' head(MaumeeUV)
-NULL

R/rect.R

@@ -27,12 +27,17 @@
 #'    lines(x=2:6, y=2:6, ylim=c(0,10)) %>%
 #'    axis(side=c(1,2),labels=TRUE) %>%
 #'    legend("topright") %>%
-#'    rect(xleft=3.4, xright=3.6, ybottom=5, ytop=7, density=NA, border='purple', lty=2, lwd=3)
+#'    rect(xleft=3.4, xright=3.6, ybottom=5, 
+#'         ytop=7, density=NA, border='purple', 
+#'         lty=2, lwd=3)
 #' gs
 #' 
 #' gs <- gsplot() %>%
-#'    lines(x=10:20, y=c(10:15, 25, 17:20), xlim=c(0,30), ylim=c(0,30), col='darkgreen', legend.name="Some data") %>%
-#'    rect(xleft=15, xright=17, ybottom=21, ytop=27, density=10, angle=130, col='darkblue')
+#'    lines(x=10:20, y=c(10:15, 25, 17:20), 
+#'          xlim=c(0,30), ylim=c(0,30), col='darkgreen', 
+#'          legend.name="Some data") %>%
+#'    rect(xleft=15, xright=17, ybottom=21, ytop=27, 
+#'          density=10, angle=130, col='darkblue')
 #' gs
 rect <- function(object, ...) {
   override("graphics", "rect", object, ...)

data/MaumeeUV.RData

@@ -35,12 +35,17 @@ gs <- gsplot() \%>\%
    lines(x=2:6, y=2:6, ylim=c(0,10)) \%>\%
    axis(side=c(1,2),labels=TRUE) \%>\%
    legend("topright") \%>\%
-   rect(xleft=3.4, xright=3.6, ybottom=5, ytop=7, density=NA, border='purple', lty=2, lwd=3)
+   rect(xleft=3.4, xright=3.6, ybottom=5,
+        ytop=7, density=NA, border='purple',
+        lty=2, lwd=3)
 gs
 
 gs <- gsplot() \%>\%
-   lines(x=10:20, y=c(10:15, 25, 17:20), xlim=c(0,30), ylim=c(0,30), col='darkgreen', legend.name="Some data") \%>\%
-   rect(xleft=15, xright=17, ybottom=21, ytop=27, density=10, angle=130, col='darkblue')
+   lines(x=10:20, y=c(10:15, 25, 17:20),
+         xlim=c(0,30), ylim=c(0,30), col='darkgreen',
+         legend.name="Some data") \%>\%
+   rect(xleft=15, xright=17, ybottom=21, ytop=27,
+         density=10, angle=130, col='darkblue')
 gs
 }