# First a basic example
x <- seq.Date(as.Date("1999-01-01"), as.Date("2000-01-01"), by = "month")
sm_expand_date(x)
sm_expand_date(x, gen = .SAMADB_T[-1L], keep.date = FALSE)
if (FALSE) {
# Now using the API
sm_expand_date(sm_data("BUSINESS_CYCLES"))
# Same thing
sm_data("BUSINESS_CYCLES", expand.date = TRUE)
}
Run the code above in your browser using DataLab