fixes #1364

edzer · edzer · commit daeffb008017 · 2026-04-09T17:19:24.000+02:00
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,7 @@
 # version 1.1-1
 
+* `st_graticule()` simplifies output lines; #1364
+
 * `dplyr::count()` and `dplyr::tally()` no longer preserve geometries; #2596
 
 * better handle graticules crossing the antemeridian; #2561
diff --git a/R/graticule.R b/R/graticule.R
@@ -190,6 +190,7 @@ st_graticule = function(x = c(-180, -90, 180, 90), crs = st_crs(x),
 	if (! missing(x)) # cut out box:
 		df = suppressMessages(st_intersection(df, st_polygonize(box[1])))
 
+	df = st_line_merge(st_cast(df, "MULTILINESTRING"))
 	df = st_cast(st_cast(df, "MULTILINESTRING"), "LINESTRING", warn = FALSE)
 	graticule_attributes(df)
 }

Original file line number	Diff line number	Diff line change
`@@ -190,6 +190,7 @@ st_graticule = function(x = c(-180, -90, 180, 90), crs = st_crs(x),`
`190`	`190`	`if (! missing(x)) # cut out box:`
`191`	`191`	`df = suppressMessages(st_intersection(df, st_polygonize(box[1])))`
`192`	`192`
	`193`	`+ df = st_line_merge(st_cast(df, "MULTILINESTRING"))`
`193`	`194`	`df = st_cast(st_cast(df, "MULTILINESTRING"), "LINESTRING", warn = FALSE)`
`194`	`195`	`graticule_attributes(df)`
`195`	`196`	`}`