diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/intex_deal_functions.R | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/R/intex_deal_functions.R b/R/intex_deal_functions.R index 3e58cdc6..1b39834c 100644 --- a/R/intex_deal_functions.R +++ b/R/intex_deal_functions.R @@ -35,11 +35,13 @@ getdealdata <- function(dealname, workdate){ getcollateral <- function(dealname, date){
if(missing(date)){
- sqlstring <- sprintf("select * from et_aggdealinfo('%s')", dealname)
+ collatdata <- dbGetQuery(dbCon, "select * from et_aggdealinfo($1)",
+ params=list(dealname))
}else{
- sqlstring <- sprintf("select * from et_aggdealinfo_historical('%s', '%s')", dealname, date)
+ collatdata <- dbGetQuery(dbCon,
+ "select * from et_aggdealinfo_historical($1, $2)",
+ params=list(dealname, date))
}
- collatdata <- dbGetQuery(dbCon, sqlstring)
return(collatdata)
}
|