Update characterization-riskFactors.R

updating as setting id is now a character
OHDSI · Aug 21, 2024 · 0a22d6c · 0a22d6c
1 parent 6e7afdc
commit 0a22d6c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/characterization-riskFactors.R b/R/characterization-riskFactors.R
@@ -314,7 +314,7 @@ characterizationGetRiskFactorData <- function(
     target_id = targetId,
     outcome_id = outcomeId,
     database_id = databaseId,
-    setting_ids = paste0(ids$settingId, collapse=',')
+    setting_ids = paste0(paste0("'",ids$settingId, "'"), collapse=',')
   )
   message(paste0('Extracted ',nrow(binary),' binary RF rows'))
 
@@ -357,7 +357,7 @@ characterizationGetRiskFactorData <- function(
     target_id = targetId,
     outcome_id = outcomeId,
     database_id = databaseId,
-    setting_ids = paste0(ids$settingId, collapse=',')
+    setting_ids = paste0(paste0("'",ids$settingId, "'"), collapse=',')
   ) 
 
   message(paste0('Extracted ',nrow(binary),' continuous RF rows'))