ECL-R-Script.r

library(httr)
library(jsonlite)

# ECL examples here https://confluence.ihtsdotools.org/display/DOCECL/6.+Examples
# Can test them in the browser here: 
ecl <- "<  404684003 |Clinical finding|:
             363698007 |Finding site| = << 39057004 |Pulmonary valve structure|, 
             116676008 |Associated morphology| = << 415582006 |Stenosis|"

path <- "https://browser.ihtsdotools.org/snowstorm/snomed-ct/v2/MAIN/SNOMEDCT-GB/concepts?limit=10000&ecl=$ecl"
path
r <- GET(url = path)
status_code(r)
str(content(r))


r <- content(r, as = "text", encoding = "UTF-8")
df <- fromJSON(r,flatten = TRUE)
df
colnames(df$items)

df$items$conceptId