From 82fccaf08b50400e5e66031182713dbc1543ef20 Mon Sep 17 00:00:00 2001 From: Eduardo Leoni Date: Tue, 3 Sep 2024 19:20:54 -0300 Subject: [PATCH] Change max to min in calc_zoom.r When using max zoom the map from google frequently does not encompass all coordinates to plot. Better to use min (the smallest zoom calculated from lat and lon) --- R/calc_zoom.r | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/calc_zoom.r b/R/calc_zoom.r index 6925ae7..2634125 100644 --- a/R/calc_zoom.r +++ b/R/calc_zoom.r @@ -67,7 +67,7 @@ calc_zoom <- function(lon, lat, data, adjust = 0, f = .05){ latlength <- diff(lat_range) zoomlon <- ceiling(log2(360 * 2/lonlength)) zoomlat <- ceiling(log2(180 * 2/latlength)) - zoom <- max(zoomlon, zoomlat) + zoom <- min(zoomlon, zoomlat) zoom + adjust }