[R-SIG-Finance] getEndOfMonth and getEndOfBizWeek in RcppBDT broken?

[Dirk Eddelbuettel]

Ok, bug found.  In the R file definining the convenience functions

getEndOfBizWeek <- function(date = Sys.Date()) {
    stopifnot(inherits(date, "Date"))
    bdt$getEndOfBizWeek(date)
}

getEndOfMonth <- function(date = Sys.Date()) {
    stopifnot(inherits(date, "Date"))
    bdt$getEndOfMonth(date)
}

both of these miss the crucial 

    bdt$fromDate(date)

to actually set the date you supply.  You could write yourself a local
variant til the updated package comes through.

Thanks for spotting this.

Dirk

-- 
Dirk Eddelbuettel | edd at debian.org | http://dirk.eddelbuettel.com