Bug fix

spatstat · May 1, 2024 · cae0f43 · cae0f43
1 parent c484b41
commit cae0f43
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: spatstat.geom
-Version: 3.2-9.014
+Version: 3.2-9.015
 Date: 2024-05-01
 Title: Geometrical Functionality of the 'spatstat' Family 
 Authors@R: c(person("Adrian", "Baddeley", 

diff --git a/NEWS b/NEWS
@@ -1,4 +1,4 @@
-        CHANGES IN spatstat.geom VERSION 3.2-9.014
+        CHANGES IN spatstat.geom VERSION 3.2-9.015
 
 OVERVIEW
 

diff --git a/R/plot.ppp.R b/R/plot.ppp.R
@@ -148,15 +148,17 @@ plot.ppp <- function(x, main, ..., clipwin=NULL,
   ## Augment bounding box with space for legend, if appropriate
   legend <- legend && (symbolmaptype(symap) != "constant") 
   if(legend) {
-    sizeguess <- NULL
-    if(!isTRUE(leg.args$colour.only)) {
+    leg.args <- append(list(side=leg.side, vertical=vertical), leg.args)
+    if(isTRUE(leg.args$colour.only)) {
+      ## only the colour map will be plotted
+      sizeguess <- NULL
+    } else {
       ## symbols will be plotted
-      leg.args <- append(list(side=leg.side, vertical=vertical), leg.args)
       ## guess maximum size of symbols
       maxsize <- invoke.symbolmap(symap, symbolmapdomain(symap),
                                   corners(as.rectangle(x)),
                                   add=add, do.plot=FALSE)
-      if(maxsize > 0) sizeguess <- 1.5 * maxsize
+      sizeguess <- if(maxsize > 0) (1.5 * maxsize) else NULL
     }
     ## draw up layout
     layoutboxes <- do.call.matched(plan.legend.layout,

diff --git a/inst/doc/packagesizes.txt b/inst/doc/packagesizes.txt
@@ -26,4 +26,4 @@ date version nhelpfiles nobjects ndatasets Rlines srclines
 "2023-10-20" "3.2-7" 451 1203 0 35983 15822
 "2024-01-26" "3.2-8" 452 1204 0 36234 15822
 "2024-02-28" "3.2-9" 452 1209 0 36325 15824
-"2024-05-01" "3.2-9.014" 443 1188 0 35692 15596
+"2024-05-01" "3.2-9.015" 443 1188 0 35694 15596