Commit 6167de8a authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Formatting

parent 201ebfe9
......@@ -55,9 +55,12 @@ getWebServiceData <- function(obs_url, ...){
if(headerInfo$`content-type` %in% c("text/tab-separated-values;charset=UTF-8")){
returnedDoc <- content(returnedList, type="text",encoding = "UTF-8")
} else if (headerInfo$`content-type` %in%
c("application/zip", "application/zip;charset=UTF-8","application/vnd.geo+json;charset=UTF-8")) {
c("application/zip",
"application/zip;charset=UTF-8",
"application/vnd.geo+json;charset=UTF-8")) {
returnedDoc <- returnedList
} else if (headerInfo$`content-type` %in% c("text/html","text/html; charset=UTF-8") ){
} else if (headerInfo$`content-type` %in% c("text/html",
"text/html; charset=UTF-8") ){
txt <- readBin(returnedList$content, character())
message(txt)
return(txt)
......
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