#' @title Title
#'
#' @description Description
#'
#' @param x A number.
#' @param y A number.
#' @return return value here.
#' @details
#' Additional details here
#' @examples
#' example function call here
###################################################################
#
#' @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.