From 49130c6cf8380ede6725ee70b6d4d6e6ded60bfd Mon Sep 17 00:00:00 2001
From: jgilber2 <jgilber2@its.jnj.com>
Date: Thu, 26 Sep 2024 16:02:24 -0700
Subject: [PATCH] minor touch ups to vis

---
 R/cohort-diagnostics-cohort-overlap.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/R/cohort-diagnostics-cohort-overlap.R b/R/cohort-diagnostics-cohort-overlap.R
index 767a67c..e7f2d86 100644
--- a/R/cohort-diagnostics-cohort-overlap.R
+++ b/R/cohort-diagnostics-cohort-overlap.R
@@ -656,7 +656,7 @@ cohortOverlapModule <- function(id,
         )  |>
           dplyr::mutate(cohortSubjects = abs(.data$cohortSubjects)) |>
           dplyr::inner_join(cohortTable, by = "cohortId") |>
-          dplyr::mutate(label = paste("c", .data$cohortId),
+          dplyr::mutate(label = paste0("C", .data$cohortId),
                         value = log(.data$cohortSubjects)) |>
           dplyr::rename(title = "cohortName",
                         id = "cohortId")
@@ -673,13 +673,14 @@ cohortOverlapModule <- function(id,
 
       visNetwork::visNetwork(nodes,
                              edges,
-                             main = paste0("Cohort subject overlap for ", dbName)) |>
+                             main = paste0(dbName)) |>
         visNetwork::visIgraphLayout(layout = "layout_in_circle") |>
         visNetwork::visOptions(highlightNearest = list(enabled = TRUE, hover = TRUE),
                                width = "100%",
                                clickToUse = FALSE,
                                manipulation = FALSE,
                                nodesIdSelection = FALSE) |>
+        visNetwork::visEdges(color = list(opacity = 0.2)) |>
         visNetwork::visPhysics(enabled = FALSE)
     })
   })