diff --git a/R/characterization-riskFactors.R b/R/characterization-riskFactors.R index 9a5db4f..7623c0e 100644 --- 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'))