inst/shinyApps/global.R

In alondhe/CdmMetadata: Prototypes CDM Metadata and Annotations tables within a CDM database

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")