From 70e08c46d145508edc8064b74934318527ff5ac5 Mon Sep 17 00:00:00 2001
From: ARIADNA BATALLA FERRES <ariadna.batalla@bsc.es>
Date: Thu, 13 Mar 2025 16:25:20 +0100
Subject: [PATCH] Fix contour alignment in VizEquiMap.R

---
 R/VizEquiMap.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/VizEquiMap.R b/R/VizEquiMap.R
index 2633ceb..a828970 100644
--- a/R/VizEquiMap.R
+++ b/R/VizEquiMap.R
@@ -1210,7 +1210,9 @@ VizEquiMap <- function(var, lon, lat, varu = NULL, varv = NULL,
   #  Plotting continents
   # ~~~~~~~~~~~~~~~~~~~~~
   #
-  wrap_vec <- c(lonb$x[1], lonb$x[1] + 360)
+  lonb_c <- lonb
+  lonb_c$x[1] <- lonb_c$x[1] - abs(diff(lonb_c$x)[1])
+  wrap_vec <- c(lonb_c$x[1], lonb_c$x[1] + 360)
   old_lwd <- par('lwd')
   par(lwd = coast_width)
   # If [0, 360], use GEOmap; if [-180, 180], use maps::map
-- 
GitLab