Use bowerbird to download AVISO FSLE files by ftp

bowerbird_aviso_fsle.R

##remotes::install_github("AustralianAntarcticDivision/blueant")
library(blueant)

data_dir <- tempfile() ## destination dir, change as needed
dir.create(data_dir) ## must exist

## "FSLE NRT" for near-real-time, "FSLE DT" for delayed-time
src <- sources("FSLE NRT") %>% bb_modify_source(user = "your_aviso_username", password = "your_password")
result <- bb_get(src, local_file_root = data_dir, verbose = TRUE)

## by default it'll download the entire collection. If only a subset of years is required, modify the method in the 
##   source configuaration e.g.
src <- bb_modify_source(src, method = list(accept_follow = "/(2019|2020)"))