lns <- geom_linestring(
1:20,
runif(20, -5, 5),
rep.int(1:5, 4)
)
is_convex(lns)
is_cw_convex(lns)
is_ccw_convex(lns)
is_strictly_convex(lns)
is_strictly_cw_convex(lns)
is_strictly_ccw_convex(lns)
Run the code above in your browser using DataLab