diff options
Diffstat (limited to 'R/build_scenarios.R')
| -rw-r--r-- | R/build_scenarios.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/R/build_scenarios.R b/R/build_scenarios.R index 6bf06a9f..b49f99e7 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -29,8 +29,7 @@ source(file.path(root.dir, "code", "R", "cds_functions_generic.R")) source(file.path(root.dir, "code", "R", "cds_utils.R"))
get.reinvassets <- function(dealname, workdate){
- r <- vector("list", 2)
- names(r) <- paste0("REINV_TBA", 1:2)
+ r <- list()
sqlstr <- sprintf("select * from et_historicaldealinfo('%s', '%s') where ReinvFlag Is true",
dealname, workdate)
data <- dbGetQuery(dbCon, sqlstr)
|