R/mt_sites.R

In MODISTools: Interface to the 'MODIS Land Products Subsets' Web Services

#' Download all available fixed sites
#'
#' Lists all available MODIS Land Products Subset pre-processed sites
#'
#' @param network the network for which to generate the site list,
#' when not provided the complete list is provided
#' @return A data frame of all available MODIS Land Products Subsets
#' pre-processed sites
#' @seealso \code{\link[MODISTools]{mt_products}}
#' \code{\link[MODISTools]{mt_bands}} \code{\link[MODISTools]{mt_dates}}
#' @export
#' @importFrom memoise memoise
#' @examples
#'
#' \donttest{
#' # list all available MODIS Land Products Subsets products
#' sites <- mt_sites()
#' print(head(sites))
#'}
#'

mt_sites <- memoise::memoise(function(
  network
){

  # define server settings
  if(missing(network)){
   url <- paste(mt_server(), "sites", sep = "/")
  } else{
    url <- paste(mt_server(), network ,"sites", sep = "/")
  }

  # try to download the data
  sites <- try(jsonlite::fromJSON(url))

  # trap errors on download, return a general error statement
  if (inherits(sites, "try-error")){
    stop("Your requested timed out or the server is unreachable")
  }

  # return a data frame with all products and their details
  return(sites$sites)
})