From 40b2738f789c2be3e6ee916c768d03c03a0dd4e5 Mon Sep 17 00:00:00 2001 From: njtierney Date: Tue, 9 Jan 2024 13:10:08 +1100 Subject: [PATCH] use explaining variables --- R/probability_distributions.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/probability_distributions.R b/R/probability_distributions.R index 44bafc03..87a13abc 100644 --- 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(