R/get_lovs.R

In tonyfujs/ddhconnect:

#' get_lovs
#'
#' Retrieve controlled vocabulary / list of values (LOVs) accepted by DDH
#' @param root_url character: API root URL
#'
#' @return dataframe
#' @export
#'

get_lovs <- function(root_url = dkanr::get_url()) {
  # Build url
  path <- "api/taxonomy/listvalues"
  url <- httr::modify_url(root_url, path = path)
  # Send request
  out <- httr::GET(url = url,
                   httr::add_headers(.headers = c("Content-Type" = "application/json",
                                                  "charset" = "utf-8")),
                   httr::accept_json())
  dkanr::err_handler(out)

  out <- httr::content(out)

  n_values <- length(out)
  # Create empty vectors to hold data
  vocabulary_name <- vector(mode = "character", length = n_values)
  machine_name <- vector(mode = "character", length = n_values)
  list_value_name <- vector(mode = "character", length = n_values)
  tid <- vector(mode = "character", length = n_values)
  # Fill out vectors
  vocabulary_name <- purrr::map_chr(out, "vocabulary_name")
  machine_name <- purrr::map_chr(out, "machine_name")
  list_value_name <- purrr::map_chr(out, "list_value_name")
  tid <- purrr::map_chr(out, "tid")


  out <- data.frame(vocabulary_name, machine_name, list_value_name, tid,
                    stringsAsFactors = FALSE)

  return(out)
}