avoid duplicated labels

teunbrand · teunbrand · commit af716a761db6 · 2024-12-11T16:35:13.000+01:00
diff --git a/R/coord-sf.R b/R/coord-sf.R
@@ -727,7 +727,7 @@ view_scales_from_graticule <- function(graticule, scale, aesthetic,
     straight <-
       abs(graticule$angle_start - subtract) < eps &
       abs(graticule$angle_end   - subtract) < eps
-    accept_start <- accept_end <- straight
+    accept_start <- straight
   }
 
   # Parsing the information of the `label_axes` argument:

Original file line number	Diff line number	Diff line change
`@@ -727,7 +727,7 @@ view_scales_from_graticule <- function(graticule, scale, aesthetic,`
`727`	`727`	`straight <-`
`728`	`728`	`abs(graticule$angle_start - subtract) < eps &`
`729`	`729`	`abs(graticule$angle_end - subtract) < eps`
`730`		`- accept_start <- accept_end <- straight`
	`730`	`+ accept_start <- straight`
`731`	`731`	`}`
`732`	`732`
`733`	`733`	# Parsing the information of the `label_axes` argument: