substitute dplyr::full join with base::merge in correlationplot

insightsengineering · Jul 24, 2024 · 8c1a59b · 8c1a59b
1 parent 2d33b3b
commit 8c1a59b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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(