X-Git-Url: http://git.vanrenterghem.biz/R/operatingdays.git/blobdiff_plain/27aa1e25ea0c4c8fd6fbb13df8dd3b1fba3731e7..HEAD:/R/getRemainingOpDays.R

diff --git a/R/getRemainingOpDays.R b/R/getRemainingOpDays.R
index eae5c87..a201071 100644
--- a/R/getRemainingOpDays.R
+++ b/R/getRemainingOpDays.R
@@ -21,6 +21,7 @@ getRemainingOpDays <- function(country,state,date) {
   state.public.holidays <- public.holidays[public.holidays$Applicable.To %in% c(state,"NAT"),]
   state.public.holidays$Date<-as.Date(state.public.holidays$Date,"%Y%m%d")
 
+  date <- as.Date(date)
   today <- Sys.Date()
   startdate <- as.Date(cut(date, "month"))
   enddate <- seq(startdate, by = "1 months", length.out = 2)[2]