The start of an openAPI Parser

extract_api.R

api_spec <- jsonlite::read_json("R-raw/swagger.json")

# I never got to the point of actually using this here, but this is where it is.
base_path <- api_spec$servers[[1]]$url

methods <- tibble::enframe(
  x = api_spec$paths,
  name = "path"
) %>%
  tidyr::unnest_wider(value) %>%
  tidyr::pivot_longer(
    get:put,
    names_to = "http"
  ) %>%
  dplyr::mutate(
    http = toupper(http),
    is_null = purrr::map_lgl(value, is.null)
  ) %>%
  dplyr::filter(!is_null) %>%
  dplyr::select(-is_null) %>%
  tidyr::unnest_wider(
    value
  ) %>%
  dplyr::filter(is.na(deprecated) | !deprecated) %>%
  dplyr::select(-deprecated)