# modified from sf:
box <- c(xmin = 0, ymin = 0, xmax = 1, ymax = 1)
pol <- sf::st_sfc(sf::st_buffer(sf::st_point(c(0.5, 0.5)), 0.6))
pol_sftime <- st_sftime(a = 1, geom = pol, time = Sys.time() + 1:2 * 1000)
pol_sftime_cropped <- sf::st_crop(pol_sftime, sf::st_bbox(box))
class(pol_sftime_cropped)
plot(pol_sftime_cropped)
Run the code above in your browser using DataLab