From 51848b2125c826976fc67e7d05e1436335ee7dc0 Mon Sep 17 00:00:00 2001 From: Kara Woo Date: Mon, 17 Jun 2024 10:10:36 -0700 Subject: [PATCH] Raise error when no markets meet criteria --- R/pre_test_power.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/R/pre_test_power.R b/R/pre_test_power.R index d3f1a195..3fe76cc8 100644 --- a/R/pre_test_power.R +++ b/R/pre_test_power.R @@ -1990,8 +1990,7 @@ GeoLiftMarketSelection <- function(data, if (nrow(resultsM) > 0) { resultsM$ID <- 1:nrow(resultsM) } else { - message("\nWarning: No markets meet the criteria you provided. Consider modifying - the input parameters") + stop("\nNo markets meet the criteria you provided. Consider modifying the input parameters") } # Re-order columns