Commit 0c601566 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Check for internet

parent 664ab0bb
......@@ -22,6 +22,11 @@
#' }
getWebServiceData <- function(obs_url, ...){
if (!curl::has_internet()) {
message("No internet connection.")
return(invisible(NULL))
}
returnedList <- retryGetOrPost(obs_url, ...)
if(httr::status_code(returnedList) == 400){
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment