From b71168bc2e3c3cfb2e505c54f2a2b3c0e99ff78b Mon Sep 17 00:00:00 2001
From: Marta Alcalde-Herraiz <91142894+martaalcalde@users.noreply.github.com>
Date: Mon, 3 Feb 2025 14:44:42 +0000
Subject: [PATCH] add links in compare large scale characteristics

---
 inst/shiny/server.R | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/inst/shiny/server.R b/inst/shiny/server.R
index c59bde4..8e35dc7 100644
--- a/inst/shiny/server.R
+++ b/inst/shiny/server.R
@@ -646,7 +646,7 @@ server <- function(input, output, session) {
   # summarise_large_scale_characteristics -----
   ## Tidy summarise_large_scale_characteristics -----
   getTidyDataSummariseLargeScaleCharacteristics <- shiny::reactive({
-browser()
+
     if (is.null(dataFiltered$summarise_large_scale_characteristics)) {
       validate("No large scale characteristics in results")
     }
@@ -765,6 +765,7 @@ browser()
   })
   ## Tidy large_scale_characteristics ----
   createTidyDataCompareLargeScaleCharacteristics <- shiny::reactive({
+
     lscFiltered <- filterLargeScaleCharacteristics()
 
     if (nrow(lscFiltered) == 0) {
@@ -825,16 +826,22 @@ browser()
                     target_cohort,
                     comparator_cohort)
 
-    cols <- list(target_cohort= colDef(name = target_cohort,
-                                       sortNALast = TRUE),
+    cols <- list(target_cohort = colDef(name = target_cohort,
+                                        sortNALast = TRUE),
                  comparator_cohort = colDef(name = comparator_cohort,
                                             sortNALast = TRUE),
+                 "Concept name (concept ID)" = colDef(name = "Concept name (concept ID)",
+                                                      cell = function(value){
+                                                        value_concept <- gsub(".*\\(|\\)","",value)
+                                                        url   <- sprintf("https://athena.ohdsi.org/search-terms/terms/%s", value_concept)
+                                                        htmltools::tags$a(href = url, target = "_blank", as.character(value))
+                                                      }),
                  "Standardised mean difference" = colDef(name = "Standardised mean difference",
                                                          sortNALast = TRUE)
     )
     names(cols)[1] <- target_cohort
     names(cols)[2] <- comparator_cohort
-
+    
     reactable::reactable(tbl,
                          defaultSorted = list("Standardised mean difference"  = "desc"),
                          columns = cols,