From 04da5e63fbf43077aa2a14d0530493ca91cb1e4f Mon Sep 17 00:00:00 2001
From: Maciej Nasinski <nasinski.maciej@gmail.com>
Date: Tue, 30 Aug 2022 18:26:59 +0200
Subject: [PATCH] fix join_fun crosstable

---
 NEWS.md             | 1 +
 R/tm_t_crosstable.R | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index fb9fac8b4..fad6384c8 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -7,6 +7,7 @@
 
 ### Bug fixes
 * Fixed an overflow for very wide `tm_a_pca` tables.
+* Fixed the join type functionality in the `tm_t_crosstable`.
 
 # teal.modules.general 0.2.14
 
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
index d12a2d3a1..66ff88235 100644
--- a/R/tm_t_crosstable.R
+++ b/R/tm_t_crosstable.R
@@ -178,10 +178,10 @@ srv_t_crosstable <- function(id, datasets, reporter, label, x, y, basic_table_ar
     )
 
     merge_function <- reactive({
-      if (is.null(input$merge_fun)) {
+      if (is.null(input$join_fun)) {
         "dplyr::full_join"
       } else {
-        input$merge_fun
+        input$join_fun
       }
     })