R/planet_download.R

In bevingtona/planetR: Search, Activate and Download Satellite Imagery from the Planet API.

#' A function to download activated Planet imagery
#'
#' This function allows you to search the Planet API
#' @param bbox shapefile of bounding box must be EPSG:4326 Projection; no default.
#' @param date_end Expects as.Date; defaults to as.Date('2018-07-01')
#' @param date_start Expects as.Date; defaults to as.Date('2018-08-01')
#' @param cloud_lim Cloud percentage from 0-1; defaults to 0.1, or 10%.
#' @param item_name Defaults to "PSOrthoTile".
#' @keywords Planet
#' @export
#' @examples
#' planet_search()

library(httr)
library(jsonlite)

planet_download = function(i, overwrite = T)
{

  url <- paste0("https://api.planet.com/data/v1/item-types/",item_name,"/items/",response[i,])
  # print(url)

  # GET BASICS ASSET

  get <- GET(url, content_type_json(), authenticate(api_key, ""))

  if(get$status_code == 429){
    print(paste("Status code:", get$status_code, "rate limit error: poll"))}
  if(get$status_code == 200){
    print(paste("Status code:", get$status_code, "authenticated"))}
  if(get$status_code == 404){
    print(paste("Status code:", get$status_code, "error"))}

  # PARSE CONTENT TO GET ACTIVATION CODE

  contents <- content(get, "parse")

  activate = GET(contents$`_links`$assets, authenticate(api_key, ""))

  if(max(names(content(activate)) %in% product) == 1){

    for(t in seq(1,1000,1)) {
      print(t)
      activated = POST(content(activate)[[product]][["_links"]][["activate"]], authenticate(api_key, ""))
      if(activated$status_code != 204){
        if(t==1){
          print("Please note: The first download can take up to 5 minutes to start after being activated")
          }else{
        print(paste("Status", activated$status_code, "retry in 10 seconds (download not ready)"))
        Sys.sleep(10)}}
      else {break}}

    activate = GET(contents$`_links`$assets, authenticate(api_key, ""))

    print("Download")

    download = GET(content(activate)[[product]][["_links"]][["_self"]], authenticate(api_key, ""))

    link = httr::content(download, "parsed")

    export = paste0(exportfolder, "/", contents$id,".tif")

    RETRY("GET", link$location, httr::write_disk(export, overwrite = overwrite), httr::progress("down"), authenticate(api_key, ""))

    }else{print(paste("No", item_name, product, "data available for download"))}
  }