getCohortDefinitionExpression <- function(definitionId, baseUrl) {
url <- paste(baseUrl, "cohortdefinition", definitionId, sep = "/")
json <- httr::GET(url)
httr::content(json)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.