library(ldsmls)
Primary children turning 8 years old between
r format(as.Date(params$start_date), format = "%d %B %Y")
and
r format(as.Date(params$end_date), format = "%d %B %Y")
Membership <- rpt_baptisms(params$start_date, params$end_date, cat = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.