Open mdsumner opened 2 years ago
motivating use case is time intervals on trip objects, using segments()
tr <- trip(d %>% dplyr::select(X, Y, Date, Nest))
segs <- silicate::SC0(tr)
## splat out to a df for segments
segs <- bind_rows(segs$object$topology_, .id = "object") %>%
inner_join(segs$vertex %>% transmute(vertex_ = row_number(), x0 = x_, y0 = y_, starttime = t_), c(".vx0" = "vertex_")) %>%
inner_join(segs$vertex %>% transmute(vertex_ = row_number(), x1 = x_, y1 = y_, endtime = t_), c(".vx1" = "vertex_")) %>%
dplyr::select(object, x0, y0, starttime, x1, y1, endtime)
segs$color_ <- palr::d_pal(segs$object)
...
segs2 <- dplyr::filter(segs, endtime <= (dts[i]) & starttime >= (dts[i] - 3 * 24 * 3600))
with(segs2, segments(x0, y0, x1, y1, col = color_))
sc_edge()
is ok