have cohort concept sets function exit cleanly

OHDSI · Nov 15, 2023 · 447c64c · 447c64c
1 parent 5a4b974
commit 447c64c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/ConceptSets.R b/R/ConceptSets.R
@@ -74,8 +74,11 @@ extractConceptSetsSqlFromCohortSql <- function(cohortSql) {
 
 
 extractConceptSetsJsonFromCohortJson <- function(cohortJson) {
-  cohortDefinition <-
+  cohortDefinition <- tryCatch({
     RJSONIO::fromJSON(content = cohortJson, digits = 23)
+  }, error = function(msg) {
+    return(list())
+  })
   if ("expression" %in% names(cohortDefinition)) {
     expression <- cohortDefinition$expression
   } else {