Here get raw tiles and calculate median across time. We're only plotting in a faceted index space, but it's lined up relatively.
library(rustycogs) ## hypertidy/rustycogs - we need dev-version of async_tiff which is in the Cargo.toml (#PR 265)
library(ximage)
js <- jsonlite::fromJSON(sds::stacit("55GDN", c("2025-01-01", format(Sys.Date())))) ## hypertidy/sds relies on recent MGRS grid code rather than extent
hrf <- unlist(lapply(js$features$assets[1:19], function(x) x[["href"]]))
all(grepl("tif$",hrf))
## index all the tifs (like virtualizarr, we get the IFD tables)