R/helpers.R

In ffmetadata: Access to Fragile Families Metadata

# params : a named list of url parameters
call_api <- function(url) {
  # get HTTP response, can add here, path and query list
  # returnDataFrame = TRUE / FALSE
  resp <- httr::GET(url)
  # ensure JSON is returned
  if (httr::http_type(resp) != "application/json") {
    stop("API did not return json", call. = FALSE)
  }
  # read JSON
  metadata <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"),
                                 simplifyVector = FALSE, simplifyDataFrame = TRUE)
  # error checking
  if (!is.null(metadata$message)) {
     stop(
       sprintf(
         "GitHub API request failed \n<%s>",
         metadata$message
       ),
       call. = FALSE
     )
  }
  return(metadata)
}