Page History

library(httr)
library(jsonlite)

resp <-
  GET(
    "https://library.cdisclibrarycdisc.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)