diff options
| -rw-r--r-- | R/yieldcurve.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/yieldcurve.R b/R/yieldcurve.R index aa76e91c..cf2941f9 100644 --- a/R/yieldcurve.R +++ b/R/yieldcurve.R @@ -5,7 +5,7 @@ source("db.R") getMarkitIRData <- function(date=Sys.Date(), currency=c("USD", "EUR")) { ## returns Markit rates from serenitasdb currency <- match.arg(currency) - table_name <- paste(tolower(currency), "rates", sep="_") + table_name <- paste(currency, "rates", sep="_") serenitasdb <- dbConn("serenitasdb") return( serenitasdb %>% tbl(table_name) %>% filter(effective_date == date) %>% collect() ) |