Do not make more than 10k points for a line (#5644)

teunbrand · web-flow · commit 2d1f31cd359d · 2024-01-16T11:24:21.000+01:00
diff --git a/R/coord-munch.R b/R/coord-munch.R
@@ -61,7 +61,7 @@ munch_data <- function(data, dist = NULL, segment_length = 0.01) {
   }
 
   # How many endpoints for each old segment, not counting the last one
-  extra <- pmax(floor(dist / segment_length), 1)
+  extra <- pmin(pmax(floor(dist / segment_length), 1), 1e4)
   extra[is.na(extra)] <- 1
   # Generate extra pieces for x and y values
   # The final point must be manually inserted at the end

Original file line number	Diff line number	Diff line change
`@@ -61,7 +61,7 @@ munch_data <- function(data, dist = NULL, segment_length = 0.01) {`
`61`	`61`	`}`
`62`	`62`
`63`	`63`	`# How many endpoints for each old segment, not counting the last one`
`64`		`- extra <- pmax(floor(dist / segment_length), 1)`
	`64`	`+ extra <- pmin(pmax(floor(dist / segment_length), 1), 1e4)`
`65`	`65`	`extra[is.na(extra)] <- 1`
`66`	`66`	`# Generate extra pieces for x and y values`
`67`	`67`	`# The final point must be manually inserted at the end`