api fails gracefully

Author: himanshu-sikaria

R/espa_user.R

@@ -33,7 +33,7 @@ espa_user <- function(host = 'https://espa.cr.usgs.gov/api/v1/', username = NULL
   }, error = function(err){
     cat("Status Code from ESPA API:",result$status_code,"\n")
     print(result)
-    stop("Cannot Connect to ESPA APIs. Please check https://espa.cr.usgs.gov/api/v1/user for details\n")
+    return("Cannot Connect to ESPA APIs. Please check https://espa.cr.usgs.gov/api/v1/user for details\n")
   })
 
   if(length(user_role)>0){

R/utils.R

@@ -79,11 +79,10 @@ satapilsat8 <- function(date_from = "2013-04-01", date_to = Sys.Date(), limit =
 #  suppressWarnings(suppressMessages(library(httr)))
   if(is.null(row) | is.null(path)){
     link = paste0('https://api.developmentseed.org/satellites/?limit=',limit,'$satellite_name=landsat-8&date_from=',date_from,'&date_to=',date_to)
-    result = httr::GET(link)
   } else{
     link = paste0('https://api.developmentseed.org/satellites/?limit=',limit,'$satellite_name=landsat-8&date_from=',date_from,'&date_to=',date_to,'&path=',path,'&row=',row)
-    result = httr::GET(link)
   }
+  result = httr::GET(link)
   if(result$status_code != 200){
     print(paste("Error:",result$status_code))
   }
@@ -134,3 +133,6 @@ StandardColnames <- function (dataframe){
   colnames(dataframe) = stringr::str_to_lower(colnames(dataframe))
   return(dataframe)
 }
+
+
+