Merge pull request #77 from jfisher-usgs/master

Bump version and add ex. 3

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: inlmisc
 Title: Miscellaneous Functions for the USGS INL Project Office
-Version: 0.4.2.9000
+Version: 0.4.3
 Authors@R: person(given=c("Jason", "C."), family="Fisher", role=c("aut", "cre"), email="[email protected]", comment=c(ORCID="0000-0001-9032-8912"))
 Description: A collection of functions for creating high-level graphics,
     performing raster-based analysis, processing MODFLOW-based models,

NEWS.md

@@ -1,4 +1,4 @@
-# inlmisc 0.4.2.9000
+# inlmisc 0.4.3
 
 - Add `AddNorthArrow` function, was previously defined as an internal function.
 

R/Grid2Polygons.R

@@ -118,6 +118,16 @@
 #' title("level = TRUE", line = -7)
 #' par(op)
 #'
+#' # Example 3
+#' m <- datasets::volcano
+#' m <- m[nrow(m):1, ncol(m):1]
+#' x <- seq(from = 2667405, length.out = ncol(m), by = 10)
+#' y <- seq(from = 6478705, length.out = nrow(m), by = 10)
+#' r <- raster::raster(m, xmn = min(x), xmx = max(x), ymn = min(y), ymx = max(y),
+#'                     crs = "+init=epsg:27200")
+#' plys <- Grid2Polygons(r, level = TRUE)
+#' sp::plot(plys, col = terrain.colors(length(plys)), border = "#515151")
+#'
 
 Grid2Polygons <- function(grd, zcol=1, level=FALSE, at=NULL, cuts=20,
                           pretty=FALSE, xlim=NULL, ylim=NULL, zlim=NULL,