adding names to shiny app data

ohdsi-studies · Nov 21, 2023 · 7517a91 · 7517a91
1 parent a19fab3
commit 7517a91
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/R/runShinyAlopecia.R b/R/runShinyAlopecia.R
@@ -58,6 +58,15 @@ runShinyAlopecia <- function(resultsFolder = here::here("results")) {
                    targetCohort = targetCohortNumber[v]))
         }
       }
+      cohortNames <- read_csv(system.file("cohortDefinitionSet.csv", package = "EhdenAlopecia"), 
+                              show_col_types = FALSE,
+                              col_names = TRUE)
+
+      resultsPathways <- resultsPathways %>%
+        mutate(path = ifelse(path %in% cohortNames$cohortId, cohortNames$cohortName[match(path, cohortNames$cohortId)], path),
+               targetCohort = ifelse(targetCohort %in% cohortNames$cohortId, cohortNames$cohortName[match(targetCohort, cohortNames$cohortId)], targetCohort))
+
+
       return(resultsPathways)
     })