Merge pull request #299 from jread-usgs/master

bgCol was being called by default

Author: jiwalker-usgs

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: gsplot
 Type: Package
 Title: Geological Survey Plotting
-Version: 0.5.1
+Version: 0.5.2
 Date: 2015-12-13
 Authors@R: c( person("Jordan", "Read", role = "aut",
     email = "[email protected]"),

R/bgCol.R

@@ -62,7 +62,7 @@ bgCol.default <- function(col,...){
     y2 <- par("usr")[4]  
   }
 
-  rect(x1,y1,x2,y2,col = col,...)
+  rect(x1,y1,x2,y2,col = col, border = NA, ...)
 
 }
 

R/print.R

@@ -62,7 +62,8 @@ print.gsplot <- function(x, ...){
 
     # -- initial view --
     if(i == view.index[1]){
-      bgCol(bg.arg)
+      if (!is.null(bg.arg))
+        bgCol(bg.arg)
       title(title.arg)
     }