HuangRicky

library(httr)
library(dplyr)

ACLED_call <- function(query="") {
  url <- paste0("http://acleddata.com/api/acled/read", query)
  resp <- GET(url)
  if (http_type(resp) != "application/json") {
    stop("API did not return json", call. = FALSE)
  }