###################################################################
#
#' @export
vital_aging_module <- function(dat,at){
ix <- is.element(dat$pop$Status, c(0:1))
dat$pop$age[ix] <- round( dat$pop$age[ix] + (1/365) ,5 )
return(dat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.