if (FALSE) {
require(IceSat2R)
rgts = data.table::setDT(list(RGT = c(1251L, 1252L, 1260L, 1267L, 1275L),
Date_time = c("2020-12-15", "2020-12-15",
"2020-12-15", "2020-12-16", "2020-12-16")))
bbx = c(xmin = -53.108876, ymin = 60.119614, xmax = -19.203521, ymax = 80.793117)
dtbl = verify_RGTs(nsidc_rgts = rgts, bbx_aoi = bbx, verbose = TRUE)
dtbl
# split by Date to observe RGTs by date
split(dtbl, by = 'Date_time')
}
Run the code above in your browser using DataLab