R/dodsReplace.R

In eric-erki/geoknife: Web-Processing of Large Gridded Datasets

#' @importFrom httr HEAD headers
dodsReplace  <-	function(uri){
  # checks for dods or opendap, and replaces
  
  if (substr(uri, 1, 4) == 'dods')
    return(uri)
  
  dods.serve <- httr::headers(httr::HEAD(uri))$`xdods-server`
  if (!is.null(dods.serve) || grepl('dodsC',uri)){ # catch the case where prism, comes back 400 from HEAD, but is dods
    uri	<-	gsub('http[s]?', 'dods', uri)
  }
   
  return(uri)
}