From a7eed1b446f116c652b83222a4137b2808c510c8 Mon Sep 17 00:00:00 2001
From: vedhav <vedhaviyash4@gmail.com>
Date: Mon, 20 Nov 2023 21:50:50 +0530
Subject: [PATCH] fix: update renv.lock and remove unwanted join_key

---
 efficacy/renv.lock | 9 ++++++++-
 exploratory/app.R  | 3 ---
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/efficacy/renv.lock b/efficacy/renv.lock
index 416aff6d..2c000062 100644
--- a/efficacy/renv.lock
+++ b/efficacy/renv.lock
@@ -1620,6 +1620,7 @@
       "Source": "GitHub",
       "RemoteType": "github",
       "RemoteHost": "api.github.com",
+      "RemoteUsername": "insightsengineering",
       "RemoteRepo": "nestcolor",
       "RemoteRef": "main",
       "RemoteSha": "03d0b1e84bfbda25d1431bdd45d4ab281422d8d2",
@@ -2326,7 +2327,13 @@
     "sparkline": {
       "Package": "sparkline",
       "Version": "2.0",
-      "Source": "Repository"
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Requirements": [
+        "htmltools",
+        "htmlwidgets"
+      ],
+      "Hash": "06e5e4017ecb00fd142bada4b380c59a"
     },
     "stringi": {
       "Package": "stringi",
diff --git a/exploratory/app.R b/exploratory/app.R
index fd7f527e..775d6d58 100644
--- a/exploratory/app.R
+++ b/exploratory/app.R
@@ -47,9 +47,6 @@ datanames <- c("ADSL", "ADRS", "ADLB", "ADLBPCA")
 datanames(data) <- datanames
 
 join_keys(data) <- default_cdisc_join_keys[datanames]
-adlbpca_keys <- default_cdisc_join_keys["ADLB"]
-names(adlbpca_keys)[1] <- "ADLBPCA"
-join_keys(data) <- c(join_keys(data), adlbpca_keys)
 
 ## Reusable Configuration For Modules
 ADSL <- data[["ADSL"]]