From 68fd659c299bb8c0ed1890d0692e4984fccbd289 Mon Sep 17 00:00:00 2001
From: Nathan Hall <nhall6@its.jnj.com>
Date: Fri, 9 Aug 2024 15:06:32 -0400
Subject: [PATCH] Fixing issue #314 - adding T, C, and O IDs to the table to
 allow better filtering to users

---
 R/estimation-cohort-method-results.R | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/R/estimation-cohort-method-results.R b/R/estimation-cohort-method-results.R
index acb73a7..499a9a7 100644
--- a/R/estimation-cohort-method-results.R
+++ b/R/estimation-cohort-method-results.R
@@ -145,7 +145,12 @@ estimationGetCmResultSummaryTableColDef <- function(){
       )
     ),
     
-    targetId = reactable::colDef(show = F),
+    targetId = reactable::colDef(header = withTooltip(
+      "Target ID",
+      "The ID of the target cohort of interest"
+      )
+    ),
+    
     target = reactable::colDef(
       header = withTooltip(
         "Target",
@@ -154,7 +159,12 @@ estimationGetCmResultSummaryTableColDef <- function(){
       minWidth = 300
     ),
     
-    comparatorId = reactable::colDef(show = F),
+    comparatorId = reactable::colDef(header = withTooltip(
+      "Comparator ID",
+      "The ID of the comparator cohort of interest"
+      )
+    ),
+    
     comparator = reactable::colDef(
       header = withTooltip(
         "Comparator",
@@ -163,7 +173,12 @@ estimationGetCmResultSummaryTableColDef <- function(){
       minWidth = 300
     ),
     
-    outcomeId = reactable::colDef(show = F),
+    outcomeId = reactable::colDef(header = withTooltip(
+      "Outcome ID",
+      "The ID of the outcome of interest"
+      )
+    ),
+    
     outcome = reactable::colDef(
       header = withTooltip(
         "Outcome",