# Report <- function(start, end) {
# if (missing(start)) start <- lubridate::ymd("2020-01-01")
# if (missing(end)) end <- lubridate::today()
# list(Start = start,
# End = end)
# }
# input <- list(
# region = "Homeless Planning Region 11"
# )
# data_env <- function() {
# .out
# }
#
qpr_expr <- list()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.