Fix tests.

OHDSI · Jul 8, 2024 · 4eb1a0c · 4eb1a0c
1 parent 3c83e66
commit 4eb1a0c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Builders.R b/R/Builders.R
@@ -156,7 +156,7 @@ createStrataSettings <- function (byAge = F, byGender = F, byYear = F, ageBreaks
   strataSettings$byAge <- byAge;
   strataSettings$byGender <- byGender;
   strataSettings$byYear <- byYear;
-  if(byAge == T && (missing(ageBreaks) || missing(ageBreakList))) stop ("Error: when byAge = TRUE, ageBreaks or ageBreakList must be provided.")
+  if(byAge == T && missing(ageBreaks) && missing(ageBreakList)) stop ("Error: when byAge = TRUE, ageBreaks or ageBreakList must be provided.")
   if (!missing(ageBreaks)) strataSettings$ageBreaks <- ageBreaks;
 
   return(strataSettings);