Covid19Il6JakInhibitorsSccs/inst/shiny/EvidenceExplorer/global.R

In ohdsi-studies/Covid19EstimationIl6JakInhibitors: A Package Skeleton for Comparative Effectiveness Studies

if (!exists("shinySettings")) {
  if (file.exists("data")) {
    shinySettings <- list(dataFolder = "data", blind = TRUE)
  } else {
    shinySettings <- list(dataFolder = "S:/Covid19Il6JakInhibitorsSccs/shinyDataFolder", blind = TRUE)
  }
}
dataFolder <- shinySettings$dataFolder
blind <- shinySettings$blind
load(file.path(dataFolder, "shinyData.RData"))

tos <- unique(sccsResult[, c("exposureId", "outcomeId")])
tos <- tos[tos$outcomeId %in% outcomeOfInterest$outcomeId, ]