## -----------------------------------------------------------------------------
#| include: false
#| eval: false
# library(ascribe)


## -----------------------------------------------------------------------------
#| eval: false
# stan_pkgs <- c("cmdstanr", "posterior", "bayesplot", "rstan")
# universe <- build_universe_data(stan_pkgs)
# names(universe)


## -----------------------------------------------------------------------------
#| eval: false
# project <- tempfile("stan-project-")
# dir.create(project)
# script <- file.path(project, "analysis.R")
# 
# writeLines(
#   c(
#     "library(cmdstanr)",
#     "library(posterior)",
#     "fit <- cmdstan_model('model.stan')$sample()",
#     "draws <- fit$draws()",
#     "summarise_draws(draws)",
#     "bayesplot::mcmc_hist(draws)"
#   ),
#   script
# )
# 
# usage <- scan_usage(
#   path = project,
#   allowed_packages = universe$packages,
#   export_index = universe$export_index,
#   origin_map = universe$origin_map,
#   strict = TRUE,
#   quiet = TRUE
# )
# 
# usage
# unlink(project, recursive = TRUE)


## -----------------------------------------------------------------------------
#| eval: false
# citations <- cite_usage(usage)
# writeLines(citations)


## -----------------------------------------------------------------------------
#| eval: false
# # data-raw/sysdata.R
# generate_universe_sysdata(
#   packages = c("cmdstanr", "posterior", "bayesplot", "rstan"),
#   prefix = "stan",
#   file = "R/sysdata.rda"
# )