Preventing error when analysisToExclude is empty but not NULL

OHDSI · Nov 2, 2023 · 5a036bb · 5a036bb
1 parent bcd6320
commit 5a036bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/RunAnalyses.R b/R/RunAnalyses.R
@@ -679,7 +679,7 @@ createReferenceTable <- function(sccsAnalysisList,
   referenceTable$sccsModelFile <- generateFileName(1:nrow(referenceTable))
 
   # Remove rows that the user specified to exclude ---------------------------------
-  if (!is.null(analysesToExclude)) {
+  if (!is.null(analysesToExclude) && nrow(analysesToExclude) != 0) {
     matchingColumns <- colnames(analysesToExclude)[colnames(analysesToExclude) %in% c("exposureId", "outcomeId", "analysisId", "nestingCohortId")]
     if (length(matchingColumns) == 0) {
       stop("The 'analysesToExclude' argument should contain columns 'exposureId', 'outcomeId', or 'analysisId'.")