remove startswith

Ironholds · web-flow · commit ef1be30abbec · 2016-07-20T10:09:23.000-04:00
diff --git a/R/query.R b/R/query.R
@@ -21,11 +21,6 @@ query <- function(url, out_class, clean_response = FALSE, query_param = list(),
     query_param$format <- "json"
   }
   
-  # Add http scheme if url has no scheme
-  if(!any(startsWith(url, c("http://", "https://")))) {
-    url <- paste0("http://", url)
-  }
-  
   args <- list(...)
   if(length(args) > 0 && "config" %in% class(args[[1]]) && "useragent" %in% names(args[[1]])){
     response <- httr::GET(url, query = query_param, ...)
@@ -81,4 +76,4 @@ response_parse <- function(response, out_class){
   #Return
   return(parsed_text)
   
-}
+}
