#library(fs)
#source ('/data/Satellite/GOES-16/download_CLASS.R')
source ('/storage/Satellite/GOES-16/download_CLASS.R')
#url <- "ftp://ftp.class.ncdc.noaa.gov/sub/susan.m.one1/52484/"
#url <- "ftp://ftp.avl.class.noaa.gov/sub/susan.m.one1/52484/"
url <- "ftp://ftp-order.class.noaa.gov/sub/susan.m.one1/52484/"
#download_path <- "/data/Satellite/GOES-16/"
download_path <- "/storage/Satellite/GOES-16/"
download_CLASS(url, download_path)