found issue in abline

Author: jiwalker-usgs

R/abline.R

@@ -21,7 +21,7 @@
 #' gsNew <- points(gs, y=1, x=2, col="blue", pch=18, legend.name="Points")
 #' gsNew <- lines(gsNew, c(3,4,3), c(2,4,6), legend.name="Lines")
 #' gsNew <- abline(gsNew, b=1, a=0, legend.name="1:1")
-#' gsNew <- legend(gsNew, "topleft",title="Awesome!")
+#' gsNew <- legend(gsNew, location="topleft",title="Awesome!")
 #' gsNew
 abline <- function(object, ...) {
   override("graphics", "abline", object, ...)