Plot -- Don't plot and print when it is terra::plot or plot

PredictiveEcology · Jun 8, 2024 · d0458a6 · d0458a6
1 parent eb94939
commit d0458a6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/Plots.R b/R/Plots.R
@@ -307,7 +307,8 @@ Plots <- function(data, fn, filename,
         names(ggListToScreen) <- gsub(names(ggListToScreen), pattern = " |(\\\n)|[[:punct:]]", replacement = "_")
         Plot(ggListToScreen, addTo = gg$labels$title)
       } else {
-        print(gg)
+        if (!(identical(fn, plot) || identical(fn, terra::plot)))
+          print(gg)
       }
     }
   }