R/ls8DownloadUSGS.R

Defines functions .ls8DownloadUSGS

.ls8DownloadUSGS<-function(sceneID,
                           rfolder,
                           usgs.handler,
                           overwrite=FALSE,
                           ...){
  arg<-list(...)
  if("verbose"%in%names(arg)){
    verbose=arg$verbose
  }else{verbose=F}
  url<-paste0(getRGISToolsOpt("USGS.url"),"download/12864/",sceneID,"/STANDARD/EE/")
  pth<-paste0(rfolder,"/",sceneID,".tar.gz")
  if(overwrite){
    file.remove(pth,showWarnings=FALSE)
  }
  message(paste0("Downloading file in: ",pth))
  if(verbose){message(paste0("download url: ",url))}
  curl_download(url, destfile=pth,handle = usgs.handler)
}

Try the RGISTools package in your browser

Any scripts or data that you put into this service are public.

RGISTools documentation built on July 2, 2020, 3:58 a.m.