pnts <- geom_point(runif(10), runif(10))
combine_geoms(pnts)
lns <- geom_linestring(1:100, runif(100, -10, 10), rep.int(1:5, 20))
union_geoms(lns)
x <- c(0, 1, 1, 0, 0)
y <- c(0, 0, 1, 1, 0)
p1 <- geom_polygon(x, y)
p2 <- geom_polygon(x - 1, y + 0.5)
z <- c(p1, p2)
res <- union_geoms(z)
res
if (rlang::is_installed(c("sf", "wk"))) {
plot(z)
plot(res, lty = 3, border = "blue", add = TRUE, lwd = 4)
}
Run the code above in your browser using DataLab