R/declass_fields.R

In Heipihanhan/declass: Query Data From Declassification Engine API

#' Display document metadata fields.
#'
#' This function displays the document metadata fields for all collections.
#'
#' @param return_type The format of content displayed, in list or character.
#' @return The metadata fields for all collections of data.
#' @examples
#' declass_fields("list")
#' declass_fields("string")
#' @export
declass_fields <- function(return_type = "string") {
  url <- "http://api.declassification-engine.org/declass/v0.4/fields"
  if (return_type == "string") {
    parsed_json <- jsonlite::fromJSON(url)
    fields <- parsed_json$results$fields
    return(fields)
  } else if (return_type == "list") {
    raw <- httr::content(httr::GET(url))
    return(raw)
  } else {
    notice <- "Return_type not supported"
    return(notice)
  }
}