From 8c1a59ba54288a8cfdfbee96dbedda6a90397fbe Mon Sep 17 00:00:00 2001
From: m7pr <marcin.kosinski.mk1@roche.com>
Date: Wed, 24 Jul 2024 14:41:06 +0200
Subject: [PATCH] substitute dplyr::full join with base::merge in
 correlationplot

---
 R/tm_g_gh_correlationplot.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/tm_g_gh_correlationplot.R b/R/tm_g_gh_correlationplot.R
index 8376faa5..cd1ceb1f 100644
--- a/R/tm_g_gh_correlationplot.R
+++ b/R/tm_g_gh_correlationplot.R
@@ -668,10 +668,10 @@ srv_g_correlationplot <- function(id,
 
       qenv <- qenv %>% teal.code::eval_code(
         code = bquote({
-          ANL_TRANSPOSED <- dplyr::full_join( # nolint
+          ANL_TRANSPOSED <- merge( # nolint
             ANL_x, ANL_y,
             by = c("USUBJID", "AVISITCD", .(trt_group)),
-            suffix = .(sprintf("_%s", c(input$xaxis_param, input$yaxis_param)))
+            suffixes = .(sprintf("_%s", c(input$xaxis_param, input$yaxis_param)))
           )
           ANL_TRANSPOSED <- ANL_TRANSPOSED %>% # nolint
             dplyr::mutate(