add check for restrictPlpDataSettings class if list

OHDSI · Oct 7, 2024 · f57367e · f57367e
1 parent 5b8260d
commit f57367e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ExternalValidatePlp.R b/R/ExternalValidatePlp.R
@@ -401,7 +401,7 @@ createValidationDesign <-
 
     # if restrictPlpDataSettings is a list make a list of designs with each
     # settings
-    if (is.list(restrictPlpDataSettings)) {
+    if (is.list(restrictPlpDataSettings) && !inherits(restrictPlpDataSettings, "restrictPlpDataSettings"))) {
       design <- lapply(restrictPlpDataSettings, function(x) {
         design <- list(
           targetId = targetId,