fix: apply facet rule only when supplied

insightsengineering · Nov 10, 2023 · 944d4be · 944d4be
1 parent eef36c1
commit 944d4be
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/tm_g_response.R b/R/tm_g_response.R
@@ -235,10 +235,12 @@ srv_g_response <- function(id,
 
     rule_diff <- function(other) {
       function(value) {
-        othervalue <- selector_list()[[other]]()[["select"]]
-        if (!is.null(othervalue)) {
-          if (identical(value, othervalue)) {
-            "Row and column facetting variables must be different."
+        if (other %in% names(selector_list())) {
+          othervalue <- selector_list()[[other]]()[["select"]]
+          if (!is.null(othervalue)) {
+            if (identical(value, othervalue)) {
+              "Row and column facetting variables must be different."
+            }
           }
         }
       }