So bad

OHDSI · Nov 15, 2023 · 33f8d02 · 33f8d02
1 parent f627d10
commit 33f8d02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ConceptSets.R b/R/ConceptSets.R
@@ -20,7 +20,7 @@ extractConceptSetsSqlFromCohortSql <- function(cohortSql) {
   }
   sql <- gsub("with primary_events.*", "", cohortSql)
 
-  if (is.null(sql) || isTRUE(nchar(sql) < 1) || is.na(nchar(sql)) || is.nan(nchar(sql))) {
+  if (is.null(sql) || length(nchar(sql)) == 0 || is.na(nchar(sql)) || is.nan(nchar(sql))) {
     return(tidyr::tibble())
   }
   # Find opening and closing parentheses: