setup.R
In IceSat2R: ICESat-2 Altimeter Data using R

#..............................
# Parameter setting (and Url's)
#..............................

minx = 140
miny = -6.641235
maxx = 145
maxy = -1.641235

date = "2021-02-11"
date_start = '2020-01-01'
date_end = '2020-01-01'
trackId = 756
beamName = 'gt1l'
product = 'atl08'
outputFormat = 'csv'
client = 'portal'
sampling = FALSE
sample_rgts = c("24", "32")

INVALID_URL = "https://openaltimetry.earthdatacloud.nasa.gov/INVALID/"
VALID_URL_a3 = glue::glue("https://openaltimetry.earthdatacloud.nasa.gov/data/api/icesat2/{product}?minx={minx}&miny={miny}&maxx={maxx}&maxy={maxy}&trackId={trackId}&beamNames={beamName}&outputFormat={outputFormat}&date={date}&client={client}&sampling={tolower(sampling)}")
VALID_URL_remaining = glue::glue("https://openaltimetry.earthdatacloud.nasa.gov/data/api/icesat2/{product}?minx={minx}&miny={miny}&maxx={maxx}&maxy={maxy}&trackId={trackId}&outputFormat={outputFormat}&date={date}&client={client}&beamNames={beamName}")
ORBITS_URL = 'https://icesat-2.gsfc.nasa.gov/sites/default/files/page_files/arcticallorbits.zip'
WKT = 'POLYGON ((-14.765 18.979, -11.25 18.979, -11.25 21.943, -14.765 21.943, -14.765 18.979))'

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)