From dd4a596ecc30aaab38b9df77bcc33687aaa0ae64 Mon Sep 17 00:00:00 2001
From: Nikolas Burkoff <nikolas.burkoff@roche.com>
Date: Fri, 6 Jan 2023 12:08:45 +0000
Subject: [PATCH] bivariate fix

---
 R/tm_g_bivariate.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
index 4f35073b6..6cfd1c7c5 100644
--- a/R/tm_g_bivariate.R
+++ b/R/tm_g_bivariate.R
@@ -396,7 +396,7 @@ srv_g_bivariate <- function(id,
     }
     rule_diff <- function(other) {
       function(value) {
-        if (!is.null(input[[other]])) {
+        if (other %in% names(selector_list()) && !is.null(selector_list()[[other]]()$select)) {
           othervalue <- selector_list()[[other]]()$select
           if (identical(value, othervalue))
             "Row and column facetting variables must be different."