Install sooty
#install.packages("remotes")
remotes::install_cran("sooty")Read the latest ice data we have for antarctica-amsr2-asi-s3125.
library(sooty)
src <- datasource("antarctica-amsr2-asi-s3125-tif")
files <- src@source ## this is "live" so we can always re-run this to get latest catalog
library(terra)
ice <- rast(files$source[nrow(files)])
iceThis data is a bit "raw", so we clean up.
ice[ice > 100] <- NA
ice <- ice * 1
plot(ice)