vectorize dmonth

[ibarraespinosa]

currently, dmonth is not vectorized.

[ibarraespinosa]

dmonth <- function(x) {

dmonth0 <- function(date) {
date <- as.Date(date, format = "%Y-%m-%d")
m <- format(date, format="%m")

while (format(date, format="%m") == m) {
date <- date + 1
}
return(as.integer(format(date - 1, format="%d")))
}
return(unlist(lapply(X = x, FUN = dmonth0)))

}