xxxxxxxxxx
st_bbox(r)
#> xmin ymin xmax ymax
#> 288776.3 9110728.8 298722.8 9120760.8
r <- r %>%
st_crop(st_bbox(c(
xmin = 294000,
xmax = 294500,
ymin = 9110800,
ymax = 9111200
), crs = st_crs(r)))
plot(r, reset = FALSE, key.pos = NULL)