use explaining variables

greta-dev · Jan 9, 2024 · 40b2738 · 40b2738
1 parent 11b9133
commit 40b2738
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/probability_distributions.R b/R/probability_distributions.R
@@ -16,8 +16,9 @@ uniform_distribution <- R6Class(
         )
       }
 
-      good_types <- is.numeric(min) && length(min) == 1 &
-        is.numeric(max) && length(max) == 1
+      good_min <- is.numeric(min) && length(min) == 1
+      good_max <- is.numeric(max) && length(max) == 1
+      good_types <- good_min & good_max
 
       if (!good_types) {
         msg <- cli::format_error(