Merge pull request #1 from lindsaycarr/ldecicco-USGS-configBranch

par(xpd=TRUE) was in the wrong place
USGS-R · Aug 19, 2016 · 20c9a11 · 20c9a11
2 parents bbfc10f + 51123dd
commit 20c9a11
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/legend.R b/R/legend.R
@@ -85,10 +85,10 @@ draw_legend <- function(gsplot) {
 
     for (legend.name in names(gsplot[['legend']])) {
 
-      par(xpd=TRUE)
-
       legend <- gsplot[['legend']][[legend.name]]
       if (legend$draw) {
+        par(xpd=TRUE)
+
         legend <- appendLegendColumnInfo(legend)
         legend <- appendLegendPositionConfiguration(legend)
         # set required legend argument to NA if not exists