R/utils.R

In keqiang/coolmapr: CoolMap R Library

getRequest <- function (url) {
  response <- httr::GET(url)
  jsonlite::fromJSON(httr::content(response, "text", encoding = 'utf-8'))
}

postRequest <- function (url, body) {
  response <- httr::POST(url, body = body, encode = 'json');
  jsonlite::fromJSON(httr::content(response, "text", encoding = 'utf-8'))
}