diff options
Diffstat (limited to 'R/calibrate_tranches_BC.R')
| -rw-r--r-- | R/calibrate_tranches_BC.R | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/R/calibrate_tranches_BC.R b/R/calibrate_tranches_BC.R index 38294f0f..345cca70 100644 --- a/R/calibrate_tranches_BC.R +++ b/R/calibrate_tranches_BC.R @@ -118,8 +118,10 @@ for(i in seq_along(runs$name)){ cat(csvheaders(index), sep="\n", file=filename)
}
cat(tocsv(index), sep="\n", file=filename, append=TRUE)
- dbSendQuery(serenitasdb, tosql(index))
+ r <- dbSendQuery(serenitasdb, tosql(index))
+ if(dbHasCompleted(r)){
+ dbClearResult(r)
+ }
loginfo("done")
}
}
-dbDisconnect(serenitasdb)
|