#library(fs)
#source ('/data/Satellite/GOES-16/download_CLASS.R')
source ('/storage/Satellite/GOES-16/download_CLASS_Retro.R')
#url <- "ftp://ftp.class.ncdc.noaa.gov/sub/susan.m.one1/52484/"
url <- "ftp://ftp.ssec.wisc.edu/bioburn/fdc/goes16/"
#download_path <- "/data/Satellite/GOES-16/"
download_path <- "/storage/Satellite/GOES-16/"
download_CLASS(url, download_path)