Nothing
produce_jags_names <- function(jags_files) {
out <- if_any(
is.null(names(jags_files)),
tools::file_path_sans_ext(basename(jags_files)),
names(jags_files)
)
targets::tar_assert_unique(
out,
"target suffixes from jags_files must be unique."
)
targets::tar_assert_nzchar(
out,
"target suffixes from jags_files must be nonempty."
)
make.names(out)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.