dataPath <- file.path(getwd(), "data")
achillesConceptsRoot <- file.path(dataPath, "achillesConcepts")
sqlRoot <- file.path(getwd(), "sql")
csvRoot <- file.path(getwd(), "csv")
if (!dir.exists(dataPath)) {
dir.create(path = dataPath, recursive = TRUE)
}
jsonPath <- file.path(dataPath, "sources.rds")
domainConceptIds <- c("Condition" = 402,
"Procedure" = 602, "Drug" = 702, "Measurement" = 1801, "Observation" = 802)
spinnerColor <- "#0dc5c1"
heelIssueTypes <- c("Non-issue", "Needs Review", "Issue")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.