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