fix bug in skip_if_custom (possibility of NULL result)

surveydown-dev · Aug 20, 2024 · 135963c · 135963c
1 parent 8a30c21
commit 135963c
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/R/server.R b/R/server.R
@@ -391,12 +391,8 @@ handle_custom_skip_logic <- function(
         # Evaluate the condition
         condition_result <- rule$condition(input)
 
-        # Check if the condition is met (and not logical(0))
-        if (
-            (length(condition_result) > 0) &
-            (current_page != rule$target) &
-            condition_result
-        ) {
+        # Check if the condition is met 
+        if (isTRUE(condition_result) & (current_page != rule$target)) {
             return(rule$target)
         }
     }