MODIS R包下载数据

最新推荐文章于 2024-11-03 20:33:55 发布

原创

最新推荐文章于 2024-11-03 20:33:55 发布 · 960 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#数据挖掘

MODIS R包下载数据

generic source constructor

getAOD <- function(user = 'EarthDataUsername'
               ,pw = 'EarthDataPassword'
               ,dir = 'OutputDestinationFolder'
               ,product = 'MCD19A2' # default product for MAIAC AOD
               ,date = '2018.08.28' # day of interest
               ,tile = 'h09v04' # your tile id (depends on your location)
               ,collection = "006") {
   
   

  # parse date and julian date for url building
  Date <- lubridate::ymd(date)
  julianDate <- paste0(lubridate::year(Date)
                   ,lubridate::yday(Date))

  # extracts hdf files for a given tile across all observation times
  pattern <- paste0(product, ".A", julianDate, ".", tile, ".", collection, "*.hdf")

  # base url for wget
  url <- paste0("https://e4ftl01.cr.usgs.gov/MOTA/"