ct_products_listing.R

ct_products_listing.R
library(httr)
library(jsonlite)

resp <-
  GET(
    "https://library.cdisclibrary.org/api/mdr/products/Terminology",
    # fictitious API key used, real one can be obtained through API Management Developer Portal
    add_headers("api-key" = "abcdef0123456789abcdef0123456789")
  )

respBody <- content(resp, "text")
respBody_json <- fromJSON(respBody)

View(respBody_json)